345 lines
5.9 KiB
Plaintext
345 lines
5.9 KiB
Plaintext
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 |