ik heb volgende code waarvoor ik foutmelding 424; Object vereist als resultaat krijg bij de lijn:
Set TB = db.OpenRecordset(SQL)
als ik de waarde van SQL vraag, dan krijg ik:
SELECT Fiche.Volgnr_beurten FROM Fiche WHERE Fiche.Kode='30011842'
laat ik dit runnen dan krijg ik 1 record...
Van waar die foutmelding?
Bedankt
JP
Set TB = db.OpenRecordset(SQL)
Code:
Private Sub cijfer_AfterUpdate()
Dim TB As Recordset
Dim SQL As String
SQL = "SELECT Fiche.Volgnr_beurten FROM Fiche WHERE Fiche.Kode='" & [Forms]![patlijst]![txtKode] & "'; "
Set TB = db.OpenRecordset(SQL)
TB.Edit
TB!volgnr_beurten = Me!cijfer + 1
TB.Update
Forms!patlijst!Beh_tel = Me!cijfer
End Sub
als ik de waarde van SQL vraag, dan krijg ik:
SELECT Fiche.Volgnr_beurten FROM Fiche WHERE Fiche.Kode='30011842'
laat ik dit runnen dan krijg ik 1 record...
Van waar die foutmelding?
Bedankt
JP