Ereigniss funktioniert bei Textfeld nicht

[PePan]

Hallo zusammen,

habe folgendes Ereigniss bei einem Button im Einsatz.
Jetzt habe ich in der Tabelle das Feld WEM von einem Zahlenfeld in ein Textfeld geändert und das Ereigniss funktioniert nicht mehr.((
Die Änderung Zahl zu Text ist notwendig!
Kann die Lösung nicht finden. Hatt hier jemand eine Idee?

Private Sub schild_Click()
On Error GoTo Err_schild_Click
    Dim stDocName As String
    DoCmd.OpenReport "schild", acPreview, , "[WEM]=" & Me!WEM, acPreview
    stDocName = "schild"
    'DoCmd.OpenReport stDocName, acPreview

Exit_schild_Click:
    Exit Sub

Err_schild_Click:
    MsgBox Err.Description
    Resume Exit_schild_Click
End Sub

PePan

[DF6GL]

Hallo,

DoCmd.OpenReport "schild", acPreview, , "[WEM]='" & Me!WEM & "'", acPreview

[PePan]

Hallo DF6GL,

was so ein paar zusätzliche Striche ausmachen ))
Vielen Dank, funktioniert einwandfrei.

PePan