Move wgmaster/vba/Form_* to wgmaster/vba/form/*
This commit is contained in:
wgmaster/vba/form
Form_FAbschlaege.frmForm_FAllgemein.frmForm_FAuszahlung.frmForm_FAuszahlungParameter.frmForm_FAuszahlungSorten.frmForm_FAuszahlungSortenAuswahl.frmForm_FAuszahlungSortenQualitätsstufe.frmForm_FBanken.frmForm_FBewirtschaftungsarten.frmForm_FChargeUmfuellen.frmForm_FChargen.frmForm_FFlaechenbindungen.frmForm_FGebiete.frmForm_FGebietshierarchie.frmForm_FGemeinden.frmForm_FGrosslagen.frmForm_FLeseplanung.frmForm_FLiefermengen.frmForm_FLieferungAbschlag.frmForm_FLieferungen.frmForm_FMandant.frmForm_FMitglieder.frmForm_FQualitaetsstufen.frmForm_FRegionen.frmForm_FRiede.frmForm_FRiedeMitglied.frmForm_FSorten.frmForm_FSortenkuerzelUmbenennen.frmForm_FTextelemente.frmForm_FUebernahmeChargenauswahl.frmForm_FUmrechnung.frmForm_FÜbernahme.frmForm_FÜbernahmeAbschlag.frmForm_MAbwertungen.frmForm_MAdministration.frmForm_MAdministrationCopy.frmForm_MAdministrationCopy2.frmForm_MAnlieferung.frmForm_MAnlieferungenJahresvergleich.frmForm_MAuswertung.frmForm_MAuswertungMitglieder.frmForm_MAuszahlung.frmForm_MAuszahlungAuswahl.frmForm_MChargenAuswahl.frmForm_MChargenListe.frmForm_MExport.frmForm_MExportAuszahlung.frmForm_MExportBKIListe.frmForm_MExportMitglieder.frmForm_MHauptmenü.frmForm_MImport.frmForm_MLeseauswertung.frmForm_MLieferscheinBereinigung.frmForm_MLieferungAuswahl.frmForm_MLieferungSuchen.frmForm_MMandantenauswahl.frmForm_MMitgliederKonsistenz.frmForm_MMitgliederliste.frmForm_MRundschreiben.frmForm_MRundschreibenEMail.frmForm_MStammblatt.frmForm_MStammdaten.frmForm_MUnterlieferungen.frm
27
wgmaster/vba/form/Form_FGemeinden.frm
Normal file
27
wgmaster/vba/form/Form_FGemeinden.frm
Normal file
@ -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 GNR As Long
|
||||
|
||||
GNR = CLng(Forms!FGemeinden!TGNR)
|
||||
|
||||
Forms!FGebietshierarchie.InitGemeinden
|
||||
Forms!FGebietshierarchie!LGemeinden = GNR
|
||||
Forms!FGebietshierarchie.InitRiede
|
||||
|
||||
End Sub
|
||||
|
Reference in New Issue
Block a user