25 lines
438 B
Plaintext
25 lines
438 B
Plaintext
Private Sub LGNR_Exit(Cancel As Integer)
|
|
|
|
End Sub
|
|
Private Sub Befehl46_Click()
|
|
On Error GoTo Err_Befehl46_Click
|
|
|
|
Dim stDocName As String
|
|
|
|
stDocName = "BSorten"
|
|
DoCmd.OpenReport stDocName, acViewPreview
|
|
|
|
Exit_Befehl46_Click:
|
|
Exit Sub
|
|
|
|
Err_Befehl46_Click:
|
|
MsgBox Err.Description
|
|
Resume Exit_Befehl46_Click
|
|
|
|
End Sub
|
|
|
|
Private Sub BSortenKuerzelUmbenennen_Click()
|
|
|
|
DoCmd.OpenForm "FSortenkuerzelUmbenennen"
|
|
|
|
End Sub |