Hallo zusammen,
mit folgendem habe ich ein UFO selekriert:
On Error GoTo Err_Produktgruppe_Click
Dim strkrit As String
If Not IsNull(Me!Produktgruppe) Then strkrit = strkrit & " and [Produktgruppe] =" & Me!Produktgruppe
If Len(strkrit) > 0 Then strkrit = Mid(strkrit, 6)
Me!F_Stammdaten_Produkt_1.Form.Filter = strkrit
Me!F_Stammdaten_Produkt_1.Form.FilterOn = True
Exit_Produktgruppe_Click:
Exit Sub
Err_Produktgruppe_Click:
MsgBox Error$
Resume Exit_Produktgruppe_Click
Die Produktgruppe ist ein nummerisches Feld.
Ich möchte das selbe mit eine Textfeld ( Produktname) machen:
If Not IsNull(Me!Produktname) Then strkrit = strkrit & " and [Produktname] =" & Me!Produktname
If Len(strkrit) > 0 Then strkrit = Mid(strkrit, 6)
Me!F_Stammdaten_Produkt_1.Form.Filter = strkrit
Me!F_Stammdaten_Produkt_1.Form.FilterOn = True
Was muss ich ändern, damit es auch funktioniert?
Danke
Hallo,
Texte sind in einfache Hochkommas (') einzuschließen.
Hallo,
und warum bei einem Auswahlfeld mit AND und dann AND wieder abziehen?
Gruß Oma
Zitat von: oma am Februar 27, 2012, 12:44:37
Hallo,
und warum bei einem Auswahlfeld mit AND und dann AND wieder abziehen?
Gruß Oma
War nur ein Beispiel. Es kommen noch drei weitere hinzu.