Exported VBA

wgmaster/vba/Form_FBanken.frm

@@ -0,0 +1,19 @@
+Private Sub LGNR_Exit(Cancel As Integer)
+
+End Sub
+Private Sub Befehl46_Click()
+On Error GoTo Err_Befehl46_Click
+
+    Dim stDocName As String
+
+    stDocName = "BBanken"
+    DoCmd.OpenReport stDocName, acViewPreview
+
+Exit_Befehl46_Click:
+    Exit Sub
+
+Err_Befehl46_Click:
+    MsgBox Err.Description
+    Resume Exit_Befehl46_Click
+    
+End Sub