In het volgende satukje VBA gaat er iets fout als ik kies voor het vakje Gestopt.
Gestopt is een selectievakje in een tabel. Gegevenstype van die vakje is Ja/Nee
Nu dacht ik dat je dan in plaats van ja/nee met -1 en 0 zou moeten werken. Alleen dat krijg je de fout melding dat de gegevenstypen niet overeenkomen. Fout 3464.
Moet het gegevenstype van het selectievakje op nummeriek gezet worden of zijn er nog andere mogelijkheden.
He ook al met een If lus geprobeerd dat als Keuze = Gestopt dat dan de criteria waarde 0 zou hebben. Ook dat levert foutmelding op.
Ook als je Criteria opgeeft als Dim as Integer lukt het niet.
Iemand een tip?
Groet,
BB
Gestopt is een selectievakje in een tabel. Gegevenstype van die vakje is Ja/Nee
Nu dacht ik dat je dan in plaats van ja/nee met -1 en 0 zou moeten werken. Alleen dat krijg je de fout melding dat de gegevenstypen niet overeenkomen. Fout 3464.
Moet het gegevenstype van het selectievakje op nummeriek gezet worden of zijn er nog andere mogelijkheden.
He ook al met een If lus geprobeerd dat als Keuze = Gestopt dat dan de criteria waarde 0 zou hebben. Ook dat levert foutmelding op.
Ook als je Criteria opgeeft als Dim as Integer lukt het niet.
Iemand een tip?
Groet,
BB
Code:
Private Sub KeuzeLijst_AfterUpdate()
Dim locatie, DBase, strSQL
Dim Leden, Keuze, Criteria
Dim Message, Title, default
Keuze = Me.KeuzeLijst.Value
Message = "de gemaakte keuze is: " & Keuze & Chr(10) & Chr(10) & _
"aan welke criteria moet de keuze voldoen?"
default = ""
Criteria = InputBox(Message, Title, default)
DoCmd.RunSQL "DELETE * From TabelKeuzeLijst"
DoCmd.RunSQL "DELETE * From TabelKeuzeLijstNiet"
DoCmd.RunSQL "INSERT INTO TabelKeuzeLijst (StudiegroepCode, Keuze) SELECT StudiegroepCode, " & Me.KeuzeLijst.Value & " FROM Leden WHERE [" & Keuze & "] ='" & Criteria & "'"
DoCmd.RunSQL "INSERT INTO TabelKeuzeLijstNiet (StudiegroepCode, Keuze) SELECT StudiegroepCode, " & Me.KeuzeLijst.Value & " FROM Leden WHERE [" & Keuze & "] <>'" & Criteria & "'"
strSQL = "SELECT StudiegroepCode, " & Me.KeuzeLijst.Value & " FROM Leden"
MsgBox strSQL
End Sub