Sytse1
Gebruiker
- Lid geworden
- 9 aug 2007
- Berichten
- 584
- Office versie
- miDer
In Access 2016 wordt voor het vinden van de actuele datum de volgende VBA code gebruikt.
De code werkt probleemloos en de actuele datum wordt direct getoond.
Dezelfde code in Access 2007 geeft aan dat de actuele code niet gevonden kan worden.
Geen foutmelding of iets dergelijks maar de actuele datum kan niet gevonden worden.
Waarom zou in Access 2007 deze code niet werken?
De code werkt probleemloos en de actuele datum wordt direct getoond.
Dezelfde code in Access 2007 geeft aan dat de actuele code niet gevonden kan worden.
Geen foutmelding of iets dergelijks maar de actuele datum kan niet gevonden worden.
Waarom zou in Access 2007 deze code niet werken?
Code:
Me.S_MJ1.Form.RecordSource = "QSmj1"
Dim rst As Recordset
Dim frm As Form
Set frm = Me.S_MJ1.Form
If IsDate(Me.FindRec) Then
Set rst = frm.RecordsetClone
With rst
'Datum is de huidige datum
.FindFirst "Datum = Cdate(" & CDbl(Me.FindRec) & ")"
If Not .NoMatch Then
frm.Bookmark = .Bookmark
Else
MsgBox "De huidige datum is niet gevonden!" & Chr(13) & " Kies Ok ", 0, "Attentie"
End If
.Close
End With
End If
Set rst = Nothing