Exported VBA
This commit is contained in:
345
wgmaster/vba/Form_FGebietshierarchie.frm
Normal file
345
wgmaster/vba/Form_FGebietshierarchie.frm
Normal file
@ -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
|
||||
Reference in New Issue
Block a user