knop om te wisselen van query

Status
Niet open voor verdere reacties.
Sytse1

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).
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?
 
Het is zó veel simpeler als je dit hele plan laat varen, en met één query blijft werken op je formulier waarvan je m.b.v. de QueryDefs collectie de SQL verandert. Zoek binnen dit forum maar eens op 'Querydef' en je vindt zat voorbeelden.
 
Octafish, bedankt voor je reactie.
Wellicht in jouw ogen een simpele oplossing maar ik heb het opgelost met een groepsvak.
Achter elk vinkje een query
Code: 
Private Sub Selectievakje48_GotFocus()
Me.S_MJ1.Form.RecordSource = "Q1_JaarWeekend"
End Sub
 
Octafish, bedankt voor je reactie.
Wellicht in jouw ogen een simpele oplossing maar ik heb het opgelost met een groepsvak.
Achter elk vinkje een query
Code: 
Private Sub Selectievakje48_GotFocus()
Me.S_MJ1.Form.RecordSource = "Q1_JaarWeekend"
End Sub

Private Sub Selectievakje50_GotFocus()
Me.S_MJ1.Form.RecordSource = "Q1_NaamJaar"
End Sub

Private Sub Selectievakje52_GotFocus()
Me.S_MJ1.Form.RecordSource = "Q1_JaarAlleMedew"
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan