28 lines
358 B
Plaintext
28 lines
358 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 GNR As Long
|
|
|
|
GNR = CLng(Forms!FGemeinden!TGNR)
|
|
|
|
Forms!FGebietshierarchie.InitGemeinden
|
|
Forms!FGebietshierarchie!LGemeinden = GNR
|
|
Forms!FGebietshierarchie.InitRiede
|
|
|
|
End Sub
|
|
|