Sub open_DB_Maske(praefix,btn_name) 'öffnet/konfiguriert form3(DB Maske)
Select praefix
Case "a", "f", "l", "b", "i" 'Bruch+Verderb, Blühende Liste, Etiketten, Reservierung, Inventur
dbMaskConfig1
Case "c", "s" 'Auftrag Kunden, Bestellung Lieferanten
dbMaskConfig2
Case "d" 'Quatierverwaltung
dbMaskConfig3
End Select
form3.Show
open_txt(praefix)
form3.Text = StrReplace(btn_name, "-","") 'name ohne "-"
End Sub
'--------------------
Sub dbMaskConfig1
F3L1.show
F3TB1.show
F3L4.show
F3L2.show
F3L3.show
F3TB2.show
F3TB1G.show
F3TB2G.hide
F3TB3G.hide
F3TB4G.hide
F3TB1M.show
F3TB2M.hide
F3TB3M.hide
F3TB4M.hide
End Sub