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

wgmaster/vba/form/Form_FGebietshierarchie.frm

@@ -0,0 +1,345 @@
+Option Compare Database
+Option Explicit
+
+Private Sub BGebietBearbeiten_Click()
+
+DoCmd.OpenForm "FGebiete", acNormal, , "WBGNR=" + Format(LGebiete.Value), acFormEdit
+
+End Sub
+
+Private Sub BGebietLoeschen_Click()
+
+If MsgBox("Sind Sie sicher, daß Sie dieses Gebiet löschen wollen ?", vbYesNo) = vbYes Then
+
+
+Dim db1 As Database
+Dim rs1 As Recordset
+
+Set db1 = CurrentDb
+
+Set rs1 = db1.OpenRecordset("SELECT * FROM TGebiete WHERE WBGNR=" + Format(Forms!FGebietshierarchie!LGebiete) + ";")
+
+rs1.MoveFirst
+rs1.Delete
+rs1.Close
+
+LGebiete.SetFocus
+InitGebiete
+
+
+End If
+
+
+End Sub
+
+Private Sub BGebietNeu_Click()
+
+DoCmd.OpenForm "FGebiete", acNormal, , "RNR=" + Format(LRegionen.Value), acFormAdd
+
+End Sub
+
+Private Sub BGemeindeBearbeiten_Click()
+
+DoCmd.OpenForm "FGemeinden", acNormal, , "GNR=" + Format(LGemeinden.Value), acFormEdit
+
+End Sub
+
+Private Sub BGemeindeLoeschen_Click()
+
+If MsgBox("Sind Sie sicher, daß Sie diese Gemeinde löschen wollen ?", vbYesNo) = vbYes Then
+
+
+Dim db1 As Database
+Dim rs1 As Recordset
+
+Set db1 = CurrentDb
+
+Set rs1 = db1.OpenRecordset("SELECT * FROM TGemeinden WHERE GNR=" + Format(Forms!FGebietshierarchie!LGemeinden) + ";")
+
+rs1.MoveFirst
+rs1.Delete
+rs1.Close
+
+LGemeinden.SetFocus
+InitGemeinden
+
+End If
+
+
+
+End Sub
+
+Private Sub BGemeindeNeu_Click()
+
+DoCmd.OpenForm "FGemeinden", acNormal, , "GLNR=" + Format(LGrosslagen.Value), acFormAdd
+
+End Sub
+
+Private Sub BGrosslageBearbeiten_Click()
+
+DoCmd.OpenForm "FGrosslagen", acNormal, , "GLNR=" + Format(LGrosslagen.Value), acFormEdit
+
+End Sub
+
+Private Sub BGrosslageLoeschen_Click()
+
+If MsgBox("Sind Sie sicher, daß Sie diese Großlage löschen wollen ?", vbYesNo) = vbYes Then
+
+
+Dim db1 As Database
+Dim rs1 As Recordset
+
+Set db1 = CurrentDb
+
+Set rs1 = db1.OpenRecordset("SELECT * FROM TGrosslagen WHERE GLNR=" + Format(Forms!FGebietshierarchie!LGrosslagen) + ";")
+
+rs1.MoveFirst
+rs1.Delete
+rs1.Close
+
+LGrosslagen.SetFocus
+InitGrosslagen
+
+
+End If
+
+
+
+End Sub
+
+Private Sub BGrosslageNeu_Click()
+
+DoCmd.OpenForm "FGrosslagen", acNormal, , "WBGNR=" + Format(LGebiete.Value), acFormAdd
+
+End Sub
+
+Private Sub BRegionBearbeiten_Click()
+
+DoCmd.OpenForm "FRegionen", acNormal, , "RGNR=" + Format(LRegionen.Value), acFormEdit
+
+End Sub
+
+Private Sub BRegionLoeschen_Click()
+
+If MsgBox("Sind Sie sicher, daß Sie diese Region löschen wollen ?", vbYesNo) = vbYes Then
+
+
+Dim db1 As Database
+Dim rs1 As Recordset
+
+Set db1 = CurrentDb
+
+Set rs1 = db1.OpenRecordset("SELECT * FROM TRegionen WHERE RGNR=" + Format(Forms!FGebietshierarchie!LRegionen) + ";")
+
+rs1.MoveFirst
+rs1.Delete
+rs1.Close
+
+LRegionen.SetFocus
+InitRegionen
+
+
+End If
+
+
+End Sub
+
+Private Sub BRegionNeu_Click()
+
+DoCmd.OpenForm "FRegionen", acNormal, , , acFormAdd
+
+End Sub
+
+Private Sub BRiedBearbeiten_Click()
+
+DoCmd.OpenForm "FRiede", acNormal, , "RNR=" + Format(LRiede.Value), acFormEdit
+
+End Sub
+
+Private Sub BRiedLoeschen_Click()
+
+If MsgBox("Sind Sie sicher, daß Sie diesen Ried löschen wollen ?", vbYesNo) = vbYes Then
+
+
+Dim db1 As Database
+Dim rs1 As Recordset
+
+Set db1 = CurrentDb
+
+Set rs1 = db1.OpenRecordset("SELECT * FROM TRiede WHERE RNR=" + Format(Forms!FGebietshierarchie!LRiede) + ";")
+
+rs1.MoveFirst
+rs1.Delete
+rs1.Close
+
+LRiede.SetFocus
+InitRiede
+
+End If
+
+
+End Sub
+
+Private Sub BRiedNeu_Click()
+
+DoCmd.OpenForm "FRiede", acNormal, , "GNR=" + Format(LGemeinden.Value), acFormAdd
+
+End Sub
+
+Private Sub Form_Open(Cancel As Integer)
+
+InitRegionen
+
+End Sub
+
+
+Sub InitRegionen()
+
+'LRegionen.SetFocus
+BRegionNeu.Visible = True
+BRegionLoeschen.Visible = True
+BRegionBearbeiten.Visible = True
+
+LRegionen.Requery
+If LRegionen.ListCount > 0 Then
+  LRegionen = LRegionen.ItemData(0)
+  BGebietNeu.Visible = True
+  BRegionLoeschen.Visible = True
+  BRegionBearbeiten.Visible = True
+Else
+  LRegionen = -1
+  BRegionLoeschen.Visible = False
+  BRegionBearbeiten.Visible = False
+  BGebietNeu.Visible = False
+  BGebietBearbeiten.Visible = False
+  BGebietLoeschen.Visible = False
+End If
+
+InitGebiete
+
+End Sub
+
+Sub InitGebiete()
+
+
+LGebiete.Requery
+'LGebiete.SetFocus
+If LGebiete.ListCount > 0 Then
+ LGebiete = LGebiete.ItemData(0)
+ BGebietBearbeiten.Visible = True
+ BGebietLoeschen.Visible = True
+ BGrosslageNeu.Visible = True
+Else
+ LGebiete = -1
+ BGebietLoeschen.Visible = False
+ BGebietBearbeiten.Visible = False
+ BGrosslageNeu.Visible = False
+ BGrosslageLoeschen.Visible = False
+ BGrosslageBearbeiten.Visible = False
+End If
+
+InitGrosslagen
+
+End Sub
+
+Sub InitGrosslagen()
+
+LGrosslagen.Requery
+'LGrosslagen.SetFocus
+If LGrosslagen.ListCount > 0 Then
+ LGrosslagen = LGrosslagen.ItemData(0)
+ BGrosslageLoeschen.Visible = True
+ BGrosslageBearbeiten.Visible = True
+ BGemeindeNeu.Visible = True
+Else
+ LGrosslagen = -1
+ BGrosslageLoeschen.Visible = False
+ BGrosslageBearbeiten.Visible = False
+ BGemeindeNeu.Visible = False
+ BGemeindeLoeschen.Visible = False
+ BGemeindeBearbeiten.Visible = False
+End If
+
+InitGemeinden
+
+End Sub
+
+Sub InitGemeinden()
+
+'LGemeinden.SetFocus
+LGemeinden.Requery
+
+If LGemeinden.ListCount > 0 Then
+ LGemeinden = LGemeinden.ItemData(0)
+ BGemeindeLoeschen.Visible = True
+ BGemeindeBearbeiten.Visible = True
+ BRiedNeu.Visible = True
+Else
+ LGemeinden = -1
+ BGemeindeLoeschen.Visible = False
+ BGemeindeBearbeiten.Visible = False
+ BRiedNeu.Visible = False
+ BRiedLoeschen.Visible = False
+ BRiedBearbeiten.Visible = False
+End If
+
+InitRiede
+
+End Sub
+
+Sub InitRiede()
+
+LRiede.Requery
+'LRiede.SetFocus
+
+If LRiede.ListCount > 0 Then
+ LRiede = LRiede.ItemData(0)
+ BRiedLoeschen.Visible = True
+ BRiedBearbeiten.Visible = True
+Else
+ LRiede = -1
+ BRiedLoeschen.Visible = False
+ BRiedBearbeiten.Visible = False
+End If
+
+End Sub
+
+Private Sub LGebiete_Click()
+
+InitGrosslagen
+
+End Sub
+
+Private Sub LGemeinden_Click()
+
+InitRiede
+
+End Sub
+
+Private Sub LGrosslagen_Click()
+
+InitGemeinden
+
+End Sub
+
+Private Sub LRegionen_Click()
+
+InitGebiete
+
+End Sub
+Private Sub Befehl34_Click()
+On Error GoTo Err_Befehl34_Click
+
+    Dim stDocName As String
+
+    stDocName = "BGebietshierarchie"
+    DoCmd.OpenReport stDocName, acViewPreview
+
+Exit_Befehl34_Click:
+    Exit Sub
+
+Err_Befehl34_Click:
+    MsgBox Err.Description
+    Resume Exit_Befehl34_Click
+    
+End Sub