errore run-time 13

[postmaster1]

scusate ragazzi ho un problema ho questo codice

Set mydatabase = OpenDatabase(App.Path + "\" + "gestione1.mdb")
    Set myrecord = mydatabase.OpenRecordset("societa")

pero' mi da errore sulla seconda linea cioè mi dice:
errore run-time 13

tipo non corrispondente
eppure su un altro programma in cui l'ho usato non mi davva problemi..

da cosa dipende?

grazie mille

[kalosjo]

Il caro vecchio DAO....

Forse che myrecod non è di tipo recordset...?

[postmaster1]

vale a dire?

e tutto il giorno che ci giro intorno e non ho capito una ceppa...

eppure quel codice l'ho copiato e incollato da un altro programma che avevo fatto tempo fa...

manca qualcosa nei riferimenti?anche se aprendo il progetto del vecchio soft mi pare siano gli stessi...

[kalosjo]

Metti intesta al codice dim myrecord as recordset

[postmaster1]

l'ho fatto ho dichiaratola variabile cosi:

Option Explicit
Dim myrecord as recordset

ma niente...

[postmaster1]

niente da fare le ho provate veramente tutte vi posto il codice completo magari voi riuscite a capire...

Private Sub command2_Click()
    Set mydata = OpenDatabase(App.Path + "\" + "db1.mdb")
    Set myrecord = mydata.OpenRecordset("agenzia")
    With myrecord
        .AddNew
        !ragione = Trim(Text1.Text)
        !via_ditta = Trim(Text2.Text)
        !citta = Trim(Text3.Text)
        !cap = Trim(Text4.Text)
        !prov = Trim(Text5.Text)
        !telefono = Trim(Text6.Text)
        !fax = Trim(Text7.Text)
        !telefono2_ditta = Trim(Text8.Text)
        !email = Trim(Text9.Text)
        !partita_iva = Trim(Text10.Text)
        !codice_fiscale = Trim(Text11.Text)
        !codice_iva = Trim(Text12.Text)
          .Update
    End With
MsgBox "Dati Inseriti Correttamente", vbInformation
End Sub

grazie mille a tutti...

[giorgiogio48]

Originariamente inviato da postmaster1
scusate ragazzi ho un problema ho questo codice

Set mydatabase = OpenDatabase(App.Path + "\" + "gestione1.mdb")
    Set myrecord = mydatabase.OpenRecordset("societa")

pero' mi da errore sulla seconda linea cioè mi dice:
errore run-time 13

tipo non corrispondente
eppure su un altro programma in cui l'ho usato non mi davva problemi..

da cosa dipende?

grazie mille

Attento alle dichiarazioni DIM.
Fai così:

Dim rs As DAO.Recordset
Dim db As Dao.Database
Set db = OpenDatabase(App.Path & "\gestione1.mdb")
Set rs = db.OpenRecordset("Società")

[postmaster1]

grazie giorgio ora funziona..mi ci sono impazzito sopra per 2 giorni...

pero' quello che non riesco a capire è perche l'altro codice non funzione eppure è lo stesso che ho in un altra applicazione e funziona benissimo :master:

beh l'importante è che ora vada...

grazie ancora

[MMarzia]

lingguaggio e versione vanno sempre indicati nel titolo: leggi il regolamento

[giorgiogio48]

Originariamente inviato da postmaster1
grazie giorgio ora funziona..mi ci sono impazzito sopra per 2 giorni...

pero' quello che non riesco a capire è perche l'altro codice non funzione eppure è lo stesso che ho in un altra applicazione e funziona benissimo :master:

beh l'importante è che ora vada...

grazie ancora

Prego.
Ora che il problema è risolto godiamoci il risultato. Poi penseremo ai casi passati specialmente perchè facilmente si ripresenteranno in futuro.