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

GNR = CLng(Forms!FGemeinden!TGNR)

Forms!FGebietshierarchie.InitGemeinden
Forms!FGebietshierarchie!LGemeinden = GNR
Forms!FGebietshierarchie.InitRiede

End Sub