Exported VBA

wgmaster/vba/Form_FGemeinden.frm

@@ -0,0 +1,27 @@
+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
+