Newsgroup: it.comp.appl.access
Titolo: creazione file .mde

Ciao a tutto il ng.
Ho convertito un db creato con A97 in A2k. Durante la conversione, che
nonostante tutto è andata a buon fine, mi è stato segnalato un errore che mi
ha riportato in una tabella apposita. Aprendo quest'ultima mi rendo conto
che l'errore era nel modulo MESSAGGI, che più sotto riporto. Tutto comunque
sembra funzionare perfettamente. Ho letto in questi ultimi giorni della
creazione di file mde. Incuriosito della funzione di questi ho provato a
convertire il db suddetto in un db.mde. Sorpresa: mi dice che è impossibile
creare il database mde. Provo quindi ad eliminare il modulo MESSAGGI; stesso
risultato. Provo quindi ad eliminare la funzione che usava questo modulo, in
una maschera sull'evento "non in elenco". Adesso il file mde riesce a
crearlo senza errori. Il codice che riporto qui sotto, premesso che sono
alle prime armi nell'uso di VBA per access, l'ho preso da un libro scritto
per A2k. Credo quindi, nella mia ignoranza, che dovrebbe essere stato
scritto per funzionare su A2k, almeno!!!
Sapreste dirmi in cosa sbaio o comunque perchè incontra problemi nella
conversione??
Grazie.
-----------------------
Modulo MESSAGGI
-----------------------
Option Compare Database
Option Explicit
Const conNomeApp = "osfacile"
________________________________________________________
Public Sub VisualizzaMessaggio(strMessage As String)
    'Visualizza un messaggio importante per l'utente
    MsgBox strMessaggio, vbExclamation, conNomeApp
End Sub
_____________________________________________________
Public Function Conferma(strMessaggio As String) As Boolean
'Chiedi all'utente di confermare un'azione, restituendo True o False.
    Dim bytScelta As Byte
    bytScelta = MsgBox(strMessaggio, vbQuestion + vbOKCancel, conNomeApp)
    If bytScelta = vbOK Then
        Conferma = True
    Else
        Conferma = False
    End If
End Function
----------------------------------------------------
Routine evento nella maschera su "non in elenco"
----------------------------------------------------
Private Sub id_cognome_NotInList(NewData As String, Response As Integer)
'Chiedi all'utente se desidera aggiungere un valore all'elenco.
    Dim strMessaggio As String
    Dim dbsContabilità As Database
    Dim rstCognome As DAO.Recordset
    strMessaggio = "Sei certo di voler aggiungere '" & NewData & _
        "' all'elenco dei nominativi?"
    If Conferma(strMessaggio) Then
        'Apri la tabella Cognome e aggiungi il valore NewData.
        Set dbsContabilità = CurrentDb
        Set rstCognome = dbsContabilità.OpenRecordset("Cognome")
        rstCognome.AddNew
        rstCognome!cognome = NewData
        rstCognome.Update
        Response = acDataErrAdded       'Interroga di nuovo l'elenco.
    Else
        Response = acDataErrDisplay     'Visualizza l'errore.
    End If
End Sub

 ha scritto nel messaggio
news:aqjk64$reo$1...@serv1.albacom.net...



apprezzo il metodo di Gugenheim ma:
generalmente quando non genera l'mde e' perche' c'e' l'errore
in compilazione, in questo caso e' sufficiente andare in 
visual basic (visualizazione del codice)
usare la funzione di "compila" nel menu' "debug".
Il sistema si ferma dove trova errore.
Correggere e ricompilare. Eliminati tutti gli errori
l'mde viene generato regolarmente
--
a.cara

 ha scritto nel messaggio
news:3DCE66A4...@blunet.it...

Grazie a entrambi.
Ho comunque seguito il consiglio di a. cara, anche perchè già sapevo
qual'era l'intoppo.
Infatti non mi ero accorto di aver definito una variabile "strMessage As
String" e poi nella riga successiva di averla chiamata "strMessaggio"

 ha scritto nel messaggio
news:3DCE66A4...@blunet.it...

azzolina e io che mi rifaccio tutto il db con importa!!!!
ah ah ah ah
GRAZIE

String" e poi nella riga successiva di averla chiamata "strMessaggio"
impara a quotare
Saluti.
Emanuele.


già che ci sei impara anche a quotare (io c'ho messo 4 mesi ad
accorgermene grazie al Biso)
Saluti.
Emanuele.

 ha scritto nel messaggio
news:spa1tuktg90si8n4t...@4ax.com...

Scusa se chiedo una cosa che forse può sembrarti banale: cosa vuoi dire con
"impara a quotare" (è da circa un mese che seguo il ng e sinceramento non
capisco se ho sbagliato in qualcosa)
Saluti e grazie comunque.


beh. io c'ho messo 4 mesi...
devi togliere il testo che non serve nella tua risposta e scrivere
sempre sotto il messaggio precedente od all'interno ....
Saluti.
Emanuele.

 ha scritto nel messaggio
news:bqa1tuk5j168fi8jj...@4ax.com...

Si fa cosi?
Ciao
Gugge


penso di si ma l'esperto è Biso
Saluti.
Emanuele.

 ha scritto nel messaggio
news:5sf6tuk2nq412b4rk...@4ax.com...

Dò ripetizioni a prezzi modici...
Antonio


abbi pietą mi sono sposato da poco... accetto solo free.....
Saluti.
Emanuele.