27 lines
311 B
Plaintext
27 lines
311 B
Plaintext
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
|
|
|