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 gebietsnr As Long

gebietsnr = CLng(Forms!FGebiete!TWBGNR)

Forms!FGebietshierarchie.InitGebiete
Forms!FGebietshierarchie!LGebiete = gebietsnr
Forms!FGebietshierarchie.InitGrosslagen

End Sub