Hoe een form openen met vba

[t137294]

Hey,
Ik wil een form openen met vba waarin twee WHEREconditions zitten
Dit is de code die reeds werkt
Dim strKlas As String
If IsNull(Me.txtKlas) Then
strKlas = ""
Else
strKlas = Me.txtKlas
End If

DoCmd.Save
DoCmd.Close
DoCmd.OpenForm "frm_cntrlstage", , , "Klas = '" & strKlas & "'

dit is wat ik zou willen maar het werkt niet.
Dim strKlas As String
Dim Schooljaar As String
If IsNull(Me.txtKlas) Then
strKlas = ""
Else
strKlas = Me.txtKlas
End If

If Month(Now()) <= 6 Then
Schooljaar = Year(Now) - 1 & " - " & Year(Now)
Else
Schooljaar = Year(Now) & " - " & Year(Now) + 1
End If

DoCmd.Save
DoCmd.Close
DoCmd.OpenForm "frm_cntrlstage", , , "Klas = '" & strKlas & "' ""schooljaar = '" & Schooljaar & "'"

hij geeft steeds de fout in de laatste regel . kan je deze WHERE conditions zo achter elkaar plaatsen of moet het dan.
dank bij voorbaat.

 

[Guus2005]

met AND kan je de verschillende where condities aan elkaar plakken

Suc6

 

[t137294]

Hey,
Dit heb ik al geprobeerd maar weet niet goed hoe de accolades te zetten.
zo,
DoCmd.OpenForm "frm_cntrlstage", , , "Klas = '" & strKlas & "' and""schooljaar = '" & Schooljaar & "'"

 

[Guus2005]

Beetje moeilijk om de enkele quotes van de dubbele te onderscheiden

DoCmd.OpenForm "frm_cntrlstage", , , "Klas = '" & strKlas & "' and schooljaar = '" & Schooljaar & "'"

als je schooljaar een getal is dan kan je de enkele quotes weglaten

DoCmd.OpenForm "frm_cntrlstage", , , "Klas = '" & strKlas & "' and schooljaar = " & Schooljaar

HTH

 

[t137294]

Alvast bedankt
Ik weet niet of deze als een getal beschouwd wordt of als datum.
het resultaat komt uit de code.

If Month(Now()) <= 6 Then
Schooljaar = Year(Now) - 1 & " - " & Year(Now)
Else
Schooljaar = Year(Now) & " - " & Year(Now) + 1
End If

 

[Guus2005]

Omdat je er een string tussen plakt: & " - " & wordt het resultaat ook een string. Dit verschijnsel heet impliciet converteren. Schooljaar is dus een string. "2007 - 2008" In dat geval moet de variabele omgeven zijn door single quotes.

Je code wordt dan:

DoCmd.OpenForm "frm_cntrlstage", , , "Klas = '" & strKlas & "' and schooljaar = '" & Schooljaar & "'"

HTH

 

[t137294]

hoi Guus,
ik heb het geprobeerd en het werkt
.
Hartelijk bedankt voor de hulp.
Groetjes Rudi.