28 lines
376 B
Plaintext
28 lines
376 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 Regionsnr As Long
|
|
|
|
Regionsnr = CLng(Forms!FRegionen!TRGNR)
|
|
|
|
Forms!FGebietshierarchie.InitRegionen
|
|
Forms!FGebietshierarchie!LRegionen = Regionsnr
|
|
Forms!FGebietshierarchie.InitGebiete
|
|
|
|
End Sub
|
|
|