3
1

Move wgmaster/vba/Form_* to wgmaster/vba/form/*

This commit is contained in:
2023-08-14 18:45:15 +02:00
parent ec9531b1fa
commit f7efd93c59
63 changed files with 0 additions and 0 deletions
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

@ -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