title image


Smiley Re: In einer Function auf Menüauswahl beziehen?
Hallo mumy,Du kannst die Menüauswahl als Parameter an die Funktion übergeben:Public Function AdressendatenOeffnen(Auswahl As String)Select Case AuswahlCase "lieferantendaten" 'Nur den Lieferantendaten OeffnenDoCmd.OpenForm "frm_Personendaten", acNormal, "", , , acNormalDoCmd.GoToRecord acActiveDataObject, , acNewRecForms!frm_Personendaten.Caption = "Lieferantendatenerfassung"Case "Mitarbeiterdaten"'Nur den Mitarbeiterdaten OeffnenDoCmd.OpenForm "frm_Personendaten", acNormal, "", , , acNormalDoCmd.GoToRecord acActiveDataObject, , acNewRecForms!frm_Personendaten.Caption = "Mitarbeiterdatenerfassung"End SelectEnd Functionund in den Menüunterpunkten: rechte Maustaste aufs Menü - Anpassen - rechte Maustaste auf den Menüunterpunkt Lieferantendaten - Eigenschaften - Bei Aktion reinschreiben:=AdressendatenOeffnen("Lieferantendaten")und beim Menüunterpunkt Mitarbeiterdaten ebenso:=AdressendatenOeffnen("Mitarbeiterdaten")Walter

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: