Sytse1
Gebruiker
- Lid geworden
- 9 aug 2007
- Berichten
- 584
- Office versie
- miDer
In het hoofdform wil ik een knop maken die bij het klikken op de knop wisselt tussen 2 queries die de basis zijn van het subform
De volgende code geeft een fout melding bij recordsource
(De Select is een eenvoudig voorbeeld).
Maar ik zou het nog eenvoudiger willen.
Gewoon een gemaakte query aanroepen.
Q1 = DoCmd.OpenQuery "Qry_Test1", acViewNormal, acEdit
Q2 = DoCmd.OpenQuery "Qry_Test2", acViewNormal, acEdit
Jammer genoeg werkt dit ook niet
Wat doe ik fout?
De volgende code geeft een fout melding bij recordsource
(De Select is een eenvoudig voorbeeld).
Code:
Private Sub Knop40_Click()
Dim Q1 As String, Q2 As String
Q1 = "SELECT * FROM " & Me.Naam & " WHERE [Jaar] = " & Me.Jaar
Q2 = "SELECT * FROM " & Me.Naam & " WHERE [NaamCompleet] = " & Me.NaamCompleet
If Forms!F_mj1!S_MJ1.Form.Recourdsource = Q1 Then
Forms!F_mj1!S_MJ1.Form.Recourdsource = Q2
Else
Forms!F_mj1!S_MJ1.Form.S_MJ1.Form.Recourdsource = Q1
End If
End Sub
Maar ik zou het nog eenvoudiger willen.
Gewoon een gemaakte query aanroepen.
Q1 = DoCmd.OpenQuery "Qry_Test1", acViewNormal, acEdit
Q2 = DoCmd.OpenQuery "Qry_Test2", acViewNormal, acEdit
Jammer genoeg werkt dit ook niet
Wat doe ik fout?