Sytse1
Gebruiker
- Lid geworden
- 9 aug 2007
- Berichten
- 584
- Office versie
- miDer
In een form heeft een subform een eigen tabel of query als basis.
In een tabblad niet heeft een subform dit niet.
Ik zou bij het laden van het form in het subform in het tabblad de acutele datum willen tonen.
De query die gebruikt wordt heeft geen filtering alleen een sortering op 1 veld.
Ik probeer met de volgende vba dit te realiseren. Maar gezien mij vraag hier zit er een fout in mijn vba.
Wellicht kun je mijn op de fout wijzen.
Bvd
Opnieuw de vba code aangepast en zo werkt het wel.
In een tabblad niet heeft een subform dit niet.
Ik zou bij het laden van het form in het subform in het tabblad de acutele datum willen tonen.
De query die gebruikt wordt heeft geen filtering alleen een sortering op 1 veld.
Ik probeer met de volgende vba dit te realiseren. Maar gezien mij vraag hier zit er een fout in mijn vba.
Wellicht kun je mijn op de fout wijzen.
Bvd
Code:
'Het subform S_MJ1 in het tabblad 2 tonen met de actuele datum tonen
'De query waarop dit is gebaseerd is QSmj1
Dim MijnDB As Database, MijnSet As Recordset
Set MijnDB = DBEngine.Workspaces(0).Databases(0)
Set MijnSet = MijnDB.OpenRecordset("QSmj1")
If IsDate(Me.FindRec) Then
With MijnSet
.FindFirst "Datum = Cdate(" & CDbl(Me.FindRec) & ")"
If Not .NoMatch Then
frm.Bookmark = .Bookmark
Else
MsgBox "Niet gevonden!" & Chr(13) & " Kies Ok ", 0, "Attentie"
End If
.Close
End With
End If
Set MijnSet = Nothing
Opnieuw de vba code aangepast en zo werkt het wel.
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
.FindFirst "Datum = Cdate(" & CDbl(Me.FindRec) & ")"
If Not .NoMatch Then
frm.Bookmark = .Bookmark
Else
MsgBox "Niet gevonden!" & Chr(13) & " Kies Ok ", 0, "Attentie"
End If
.Close
End With
End If
Set rst = Nothing
Laatst bewerkt: