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

Regionsnr = CLng(Forms!FRegionen!TRGNR)

Forms!FGebietshierarchie.InitRegionen
Forms!FGebietshierarchie!LRegionen = Regionsnr
Forms!FGebietshierarchie.InitGebiete

End Sub