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