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

wgmaster/vba/form/Form_FRiedeMitglied.frm

@@ -0,0 +1,42 @@
+Option Compare Database
+Option Explicit
+
+Private Sub Form_Close()
+
+AddNewRied
+
+End Sub
+
+Private Sub Form_Open(Cancel As Integer)
+
+LGNR = Forms!FMitglieder!FUnter.Form![LGNR]
+If DCount("RNR", "TRiede", "") = 0 Then
+ TRNR = 1
+Else
+ TRNR = DMax("RNR", "TRiede", "") + 1
+End If
+TWGBZS = 0
+
+End Sub
+
+
+Sub AddNewRied()
+
+Dim db1 As Database
+Dim rs1 As Recordset
+
+If Not IsNull(TBezeichnung) Then
+
+  Set db1 = CurrentDb
+  Set rs1 = db1.OpenRecordset("TRiede")
+  rs1.AddNew
+  rs1!RNR = TRNR
+  rs1!GNR = LGNR
+  rs1!Bezeichnung = TBezeichnung
+  rs1!RZS = TWGBZS
+  rs1.Update
+  [Forms]![FMitglieder]![FUnter].[Form]![LRiede] = TRNR
+End If
+
+
+End Sub