28 lines
377 B
Plaintext
28 lines
377 B
Plaintext
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
|
|
|