Ik ben nog even aan het zoeken geweest in andere onderwerpen en forums en kwam ik het één en ander tegen over het benoemen van een recordset en .movelast. Naar aanleiding daarvan heb ik mijn code als volgt uitgebreid, maar je raad het al, hij werkt nog steeds niet zoals ik wil. Kan iemand mij vertellen waar de fout zit?
Private Sub Factureren_Click()
Dim iCount As Integer
Dim qdf As QueryDef
Dim rst As Recordset
Do
DoCmd.SetWarnings (WarningsOff)
DoCmd.OpenQuery "Factureren1", , acEdit
DoCmd.SetWarnings (WarningsOn)
Set qdf = Projectdatabase.QueryDef("Factureren1_voorlquery")
Set rst = qdf.OpenRecordset(dbOpenDynaset)
rstFacturen.MoveLast
iCount = rst.RecordCount
DoCmd.Close
Loop While iCount > 0
End Sub
Private Sub Factureren_Click()
Dim iCount As Integer
Dim qdf As QueryDef
Dim rst As Recordset
Do
DoCmd.SetWarnings (WarningsOff)
DoCmd.OpenQuery "Factureren1", , acEdit
DoCmd.SetWarnings (WarningsOn)
Set qdf = Projectdatabase.QueryDef("Factureren1_voorlquery")
Set rst = qdf.OpenRecordset(dbOpenDynaset)
rstFacturen.MoveLast
iCount = rst.RecordCount
DoCmd.Close
Loop While iCount > 0
End Sub