Move wgmaster/vba/Form_* to wgmaster/vba/form/*
This commit is contained in:
27
wgmaster/vba/form/Form_FGrosslagen.frm
Normal file
27
wgmaster/vba/form/Form_FGrosslagen.frm
Normal file
@ -0,0 +1,27 @@
|
||||
Option Compare Database
|
||||
Option Explicit
|
||||
|
||||
Private Sub Form_Close()
|
||||
|
||||
RefreshMain
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub TBezeichnung_Exit(Cancel As Integer)
|
||||
|
||||
RefreshMain
|
||||
|
||||
End Sub
|
||||
|
||||
Sub RefreshMain()
|
||||
|
||||
Dim GLNR As Long
|
||||
|
||||
GLNR = CLng(Forms!FGrosslagen!TGLNR)
|
||||
|
||||
Forms!FGebietshierarchie.InitGrosslagen
|
||||
Forms!FGebietshierarchie!LGrosslagen = GLNR
|
||||
Forms!FGebietshierarchie.InitGemeinden
|
||||
|
||||
End Sub
|
||||
|
Reference in New Issue
Block a user