Move wgmaster/vba/Form_* to wgmaster/vba/form/*
This commit is contained in:
26
wgmaster/vba/form/Form_FRiede.frm
Normal file
26
wgmaster/vba/form/Form_FRiede.frm
Normal file
@ -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
|
||||
|
Reference in New Issue
Block a user