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

RNR = CLng(Forms!FRiede!TRNR)

Forms!FGebietshierarchie.InitRiede
Forms!FGebietshierarchie!LRiede = RNR

End Sub