Move wgmaster/vba/Form_* to wgmaster/vba/form/*

wgmaster/vba/form/Form_FQualitaetsstufen.frm

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