Exported VBA

wgmaster/vba/Form_FRegionen.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 Regionsnr As Long
+
+Regionsnr = CLng(Forms!FRegionen!TRGNR)
+
+Forms!FGebietshierarchie.InitRegionen
+Forms!FGebietshierarchie!LRegionen = Regionsnr
+Forms!FGebietshierarchie.InitGebiete
+
+End Sub
+