19 lines
350 B
Plaintext
19 lines
350 B
Plaintext
Private Sub LGNR_Exit(Cancel As Integer)
|
|
|
|
End Sub
|
|
Private Sub Befehl48_Click()
|
|
On Error GoTo Err_Befehl48_Click
|
|
|
|
Dim stDocName As String
|
|
|
|
stDocName = "BQualitätsstufen"
|
|
DoCmd.OpenReport stDocName, acViewPreview
|
|
|
|
Exit_Befehl48_Click:
|
|
Exit Sub
|
|
|
|
Err_Befehl48_Click:
|
|
MsgBox Err.Description
|
|
Resume Exit_Befehl48_Click
|
|
|
|
End Sub |