Selketion im UFO mit "strkrit"

[SG05]

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

[MzKlMu]

Hallo,
Texte sind in einfache Hochkommas (') einzuschließen.

[oma]

Hallo,

und warum bei einem Auswahlfeld mit AND und dann AND wieder abziehen?

Gruß Oma

[SG05]

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.