vreemd typpetje

[JEPEDEWE]

Heb volgende code:

Private Sub Command4_Click()
    DoCmd.RunCommand acCmdSaveRecord
    Dim db As Database
    Dim SQL As String
    Dim Project_code As String
    Dim tb As Recordset
    Dim tb_project As Recordset
    Dim tb_code As Recordset
    Set db = CurrentDb()
    Set tb_comp = db.OpenRecordset("BGV Competenties")
    Set tb_project = db.OpenRecordset("Doelstellingen_per_project")

bij de laatste lijn krijg ik volgende foutmelding

Typen komen niet met elkaar overeen

Wat doe ik in Gods naam, nu weer verkeerd?
Merci voor de hulp
JP

 

[OctaFish]

Dus:

Set tb_comp = db.OpenRecordset("BGV Competenties")

pakt hij wel, en

Set tb_project = db.OpenRecordset("Doelstellingen_per_project")

pakt hij niet?
Dat kan alleen betekenen dat de tabel niet goed is benoemd. Wat is de foutmelding die je krijgt?

 

[JEPEDEWE]

de foutmelding is zoals ik schreef:
Typen komen niet met elkaar overeen

en inderdaad de eerste st_comp= pakt hij wel, de tweede niet, alhoewel ik de naam copy-paste deed...

Raar
JP

 

[OctaFish]

Ik heb 'm nog even gecontroleerd in die van mij, en daar doet-ie het. Dus het ligt niet aan de code, al heb ik de variabelen wel als DAO gedeclareerd. Kun je dus ook nog eens proberen.
Dim db as DAO.Database etc.

 

[JEPEDEWE]

maaakt niks uit Michel!
JP

 

[OctaFish]

Heb je het probleem in een eigen variant, of in de db die ik heb opgestuurd?

 

[JEPEDEWE]

in die van jou... ik stuur ze nog eens door se!
JP