Forum des VBA-Tutorials

Über 2 Komboboxen eine Abfrage auslesen mit 2 Argumenten (VBA)

fraloh, Freitag, 21. Juli 2017, 20:19 (vor 90 Tagen)

Private Sub cbx_GruppeName_AfterUpdate()

Dim strSQL_SchuelerInGruppe As String

strSQL_SchuelerInGruppe = "SELECT schuelerID, schuelerNachname, schuelerVorname, " & _
"schuelerGanzerName FROM qry_3_AlleSchueler " & _
"WHERE schuelerKlaGrupIDRef AND schuelerKlasseIDRef = " & Str(cbx_GruppeName)

MsgBox strSQL_SchuelerInGruppe

' Definition der Datenquelle unter Auswahl der Gruppe ("RowSource") für das Listenfelds
lst_SchuelerListe.RowSourceType = "Table/Query"
lst_SchuelerListe.RowSource = strSQL_SchuelerInGruppe
lst_SchuelerListe.Requery

' Füllen der Schülerliste
lst_SchuelerListe.SetFocus
If Nz(lst_SchuelerListe.ListCount) > 0 Then ' erste Zeile auswählen
Me!lst_SchuelerListe = Me!lst_SchuelerListe.ItemData(0)
Call lst_SchuelerListe_AfterUpdate
Else
schuelerNachname = ""
schuelerVorname = ""
schuelerGanzerName = ""
End If

End Sub

=> Das Problem ist bei der WHERE Bedingung und ich weiß nicht wie ich es schreiben soll.


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum