Hallo
Follegender Code ist hinter einem Kombinationsfeld [Produktauswahl] auf einem Formular hinterlegt. Wird er ausgeführt, so wird die Listbox[lboxAuflistung] (auf dem gleichen Formular) aktualisiert. Durch die Dynamische Abfrage. Jetzt ist es aber so, dass jedesmal eine Inputbox erscheint, die die WHERE Abfrage nochmals abfragt. Was mache ich falsch?
Wie kann diese Eingabebox umgangen werden?
Besten Dank für sämtliche Hinweise.
MFG Sebastian
Private Sub Produktauswahl_Change()
Dim strSQL As String
Dim grp1
On Error GoTo myError
Me![lboxAuflistung] = Null
Me![lboxAuflistung].RowSource = „“
grp1 = Me![Produktauswahl].Column(0)
strSQL = " SELECT Zubehör_Nummer, Produkt, Artikel, Dimension, Sonstiges, BestllNummer, Anzahl "
strSQL = strSQL & " FROM Produkt_Zubehör "
strSQL = strSQL & " WHERE (Produkt_Zubehör.Produkt) = " & grp1
strSQL = strSQL & " ORDER BY Produkt_Zubehör.Zubehör_Nummer "
Me![lboxAuflistung].RowSource = strSQL
my_err_Exit:
Exit Sub
myError:
MsgBox Err.Number & " " & Err.Description
Resume my_err_Exit
End Sub