Errore 3043

di Anonimizzato15054 il
2 risposte
/
Anonimizzato15054
Utente anonimizzato
Ho riesumato un programma in access 2002, ma usando access 2010 mi da errore 3043 nell'apertura della tabella Pilota (ultima riga). Mi suggerite come devo cambiare le istruzioni?
grazie
Roby_cr

Sub PilotaRic()
' aggiorna pilota :
' ricerca codice e controlla password
Dim Miodb As Database
Dim Pilota As Recordset
Set Miodb = DBEngine.Workspaces(0).Databases(0)
Set Pilota = Miodb.OpenRecordset("Pilota")[/i]

2 Risposte

  • Avatar di @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi
    8951
    Rendi esplicito il Riferimento a DAO vedrai che funziona
    
Dim Miodb As DAO.Database
Dim Pilota As DAO.Recordset
....
    Ovviamente verifica che nelle LIB ci sia DAO...

    Personalmente la semplificherei così, evitando di dichiarare un'oggetto DataBase... 
    
Dim Pilota As DAO.Recordset
Set Pilota = DbEngine(0)(0).OpenRecordset("Pilota")
  • /
    Anonimizzato15054
    Utente anonimizzato
    Problema risolto:
    sistemato e attivato il collegamento alle tabelle collegate.
    grazie e saluti
    roby_cr
Devi accedere o registrarti per scrivere nel forum
2 risposte