Newsgroup: it.comp.appl.access
Titolo: Mdb-->Mde

Buongiorno a tutti,
Ho preso la funzione di AntonGal sul SC che crea da codice un Mde da un Mdb.
Volevo fare 2 domande:
1-ma, l'Mdb puo' anche essere quello corrente da dove faccio partire la
procedura?
2.ho messo la funzione in un modulo e viene lanciato da una
orms( doppioclick su un tasto ) con questo comando:
CreaMDE("C:\Tizio.mdb", "C:\Caio.mde") = True
ma il risultato è : "Proprietà o metodo non supportati dall'oggetto"
e mi rimanda al comando di cui sopra.
Credo che io sbagli ad assegnare "= true"  (del resto è l'unica cosa che ho
fatto io)
La funzione richiede un valore boolean:
Public Function CreaMDE(strMDBFile As String, strMDEFile As String) As
Boolean
Dove sbaglio?
grazie
Marco

Buongiorno a tutti,
Ho preso la funzione di AntonGal sul SC che crea da codice un Mde da un Mdb.
Volevo fare 2 domande:
1- l'Mdb puo' anche essere quello corrente da dove faccio partire la
procedura?
2-ho messo la funzione in un modulo e viene lanciato da una




 ha scritto nel messaggio
news:9oc6q9$6a0$1...@fe2.cs.interbusiness.it...

Come tutte le funzioni restituisce un valore che va raccolto in una
variabile, perciò
TuaVar = CreaMDE("C:\Tizio.mdb", "C:\Caio.mde")
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com

 CreaMDE("C:\Tizio.mdb", "C:\Caio.mde") = True
La sintassi è sbagliata. Non c'entra "= True". Se vuoi utilizzare il valore
restituito dovresti scrivere ad esempio:
Dim ris As Boolean
ris = CreaMDE("C:\Tizio.mdb", "C:\Caio.mde")
If ris = False Then
 MsgBox "Errore nel creare il file MDE."
End If
--
Ciao, AntoGal
*************************************************
Gestione punti vendita (casse e pos NCR)
 
www.powerretail.it
-------------------------------------------------------------
per scaricare un gioco di DAMA ITALIANA
http://volftp.mondadori.com/italiani/galletta/
*************************************************

 Ciao, AntoGal
Ciao, e grazie per la risposa, ma malgrado io abbia seguito alla lettera le
indicazioni tue e di Silvio ..sono ancora ...locked.
Allora..io nell'evento doppioclick di un pulsante di un form ho scritto :
Dim ris As Boolean
 ris = CreaMDE("C:\Tizio.mdb", "C:\Caio.mde")
 If ris = False Then
  MsgBox "Errore nel creare il file MDE."
 End If
e in un modulo ho scritto :
Public Function CreaMDE(strMDBFile As String, strMDEFile As String) As
Boolean
   On Error GoTo mde_err
   SysCmd 603, strMDBFile, strMDEFile
      CreaMDE = True
   Exit Function
mde_err:
   MsgBox Err.Description
   Exit Function
End Function
Ora..va bene che non sono un esperto..ma neanche col copia incolla.....
Ho provato anche a cambiare l'mdb con un altro che non è quello dal quale
chiamo la routine, ma
Access inflessibile mi dice :
"Proprietà o metodo non supportati dall'oggetto"
Perchè ????????
grazie ancora
Marco

 Ciao, AntoGal
Ciao, e grazie per la risposa, ma malgrado io abbia seguito alla lettera le
indicazioni tue e di Silvio ..sono ancora ...locked.
Allora..io nell'evento doppioclick di un pulsante di un form ho scritto :
Dim ris As Boolean
 ris = CreaMDE("C:\Tizio.mdb", "C:\Caio.mde")
 If ris = False Then
  MsgBox "Errore nel creare il file MDE."
 End If
e in un modulo ho scritto :
Public Function CreaMDE(strMDBFile As String, strMDEFile As String) As
Boolean
   On Error GoTo mde_err
   SysCmd 603, strMDBFile, strMDEFile
      CreaMDE = True
   Exit Function
mde_err:
   MsgBox Err.Description
   Exit Function
End Function
Ora..va bene che non sono un esperto..ma neanche col copia incolla.....
Ho provato anche a cambiare l'mdb con un altro che non è quello dal quale
chiamo la routine, ma
Access inflessibile mi dice :
"Proprietà o metodo non supportati dall'oggetto"
Perchè ????????
grazie ancora
Marco

 Perchè ????????
Quel comando non è documentato e funziona con Access 97. Non vorrei che con
Access 2000 (se stai utilizzando questa versione) fosse cambiato qualcosa.
