Record lezen uit tabel met VBA in Access

[care]

Ik probeer met Visual Basic een waarde op te halen uit een tabel.
Ik gebruik hiervoor de programmacode die ik in verschillende boeken heb aangetroffen, maar op de een of andere wijze werkt dit niet.

De programmacode:

Dim rst As Recordset

Set rst = CurrentDb.OpenRecordset("Klantgegevens")
rst.Index = "SecundaryKey"
rst.Seek "=", "bos"
Me.IF_Vervaldatum_Deb = Me.IFFactuurdatum + rst.Kredietdagen

Ik krijg steeds de foutmelding 13 (type mismatch)

NB . Ik gebruik Access2000 9.0 en Visal Basic 6.0

Wie helpt mij verder?

 

[vanzwam]

Dim rst As Recordset

Set rst = CurrentDb.OpenRecordset("Klantgegevens")
rst.Index = "SecundaryKey"
rst.Seek "=", "bos"
Me.IF_Vervaldatum_Deb = Me.IFFactuurdatum + rst.Kredietdagen

Ik denk dat daar de fout zit.

rst.Seek = ", "bos"

Ik denk dat het zo moet

 

[care]

Helaas dit is niet de oplossing

Dim rst As Recordset

Set rst = CurrentDb.OpenRecordset("Klantgegevens")
rst.Index = "SecundaryKey"
rst.Seek "=", "bos"
Me.IF_Vervaldatum_Deb = Me.IFFactuurdatum + rst.Kredietdagen

Ik denk dat daar de fout zit.

rst.Seek = ", "bos"

Ik denk dat het zo moet

Als ik alleen de twee eerste regels opneem (Set rst en rst.index) dan krijg ik ook de type mismatch foutmelding.

 

[vanzwam]

Dan zou het wel eens kunnen. Zou het niet "SecondaryKey" moeten zijn, ipv "SecundaryKey"

 

[care]

Ook dit is geen optie.

Dan zou het wel eens kunnen. Zou het niet "SecondaryKey" moeten zijn, ipv "SecundaryKey"

Ik heb zelf in het tabelontwerp de naam "SecundaryKey" toegekend aan een veld uit de tabel

Groet
Henk