28 lines
369 B
Plaintext
28 lines
369 B
Plaintext
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
|
|
|