Exported VBA

wgmaster/vba/Form_FSorten.frm

@@ -0,0 +1,25 @@
+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