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
Hallo,
DoCmd.OpenReport "schild", acPreview, , "[WEM]='" & Me!WEM & "'", acPreview
Hallo DF6GL,
was so ein paar zusätzliche Striche ausmachen :)))
Vielen Dank, funktioniert einwandfrei.
PePan