Exported VBA

2022-11-14 23:29:49 +01:00
parent 6348c7d6bb
commit 789f79c2f8
134 changed files with 17682 additions and 0 deletions
--- a/wgmaster/vba/Form_FRiede.frm
+++ b/wgmaster/vba/Form_FRiede.frm
@ -0,0 +1,26 @@
+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
+