title image


Smiley In einer Function auf Menüauswahl beziehen?
Hallo miteinand!Ich bastle mir zur Zeit eine Menüleiste. Diese enthält den Eintrag "Neu" der wiederum die Untermenüs "Personendaten", Mitarbeiterdaten", "Lieferantendaten" enthält. Wie beziehe ich mich in einer Function auf den Text welcher im Menü sichtbar ausgewählt ist?Ein Versuch wo mir der bezug jedoch noch fehltPublic Function AdressendatenOeffnen()Dim Auswahl As VariantSelect Case Auswahl Case "lieferantendaten" 'Nur den Lieferantendaten Oeffnen DoCmd.OpenForm "frm_Personendaten", acNormal, "", , , acNormal DoCmd.GoToRecord acActiveDataObject, , acNewRec Forms!frm_Personendaten.Caption = "Lieferantendatenerfassung" Case "Mitarbeiterdaten" 'Nur den Mitarbeiterdaten Oeffnen DoCmd.OpenForm "frm_Personendaten", acNormal, "", , , acNormal DoCmd.GoToRecord acActiveDataObject, , acNewRec Forms!frm_Personendaten.Caption = "Mitarbeiterdatenerfassung" End SelectEnd FunctionWer hilft mir weiter

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: