Exported VBA

wgmaster/vba/Form_FGebiete.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 gebietsnr As Long
+
+gebietsnr = CLng(Forms!FGebiete!TWBGNR)
+
+Forms!FGebietshierarchie.InitGebiete
+Forms!FGebietshierarchie!LGebiete = gebietsnr
+Forms!FGebietshierarchie.InitGrosslagen
+
+End Sub
+