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