Supportnet / Forum / Datenbanken
Wie würde hierzu eine Funktion im Access ausschauen?
Frage
Hallo an Alle,
möchte diese Befehlszeilen in eine Funktion backen, da ich sie mehrmals aufrufe.
---Code---
Me.InventarNr.Locked = True
Me.InventarNr.BackColor = 12632256
Me.InventarNr.ForeColor = 4934475
Me.tbl_Hersteller_ID.Locked = True
Me.tbl_Hersteller_ID.BackColor = 12632256
Me.tbl_Hersteller_ID.ForeColor = 4934475
Me.tbl_Modell_ID.Locked = True
Me.tbl_Modell_ID.BackColor = 12632256
Me.tbl_Modell_ID.ForeColor = 4934475
usw...
---Code---
Antwort 1 von Marie
Ja, wenn Du sie immer vom selben Formular aus aufrufst, dann einfach in diesem Formular das in eine Funktion geschrieben und aufrufen, wenn Du es brauchst.
Zum Beispiel:
Und dann einfach an den Stellen, wo Du es aufrufen willst
call Color_change
aufrufen.
Willst Du aber von einer anderen Stelle aus aufrufen, dann musst Du das 'me' ändern und in ein Modul eine Function schreiben, keine Sub, also bitte etwas genauer sagen was Du ausprobiert hast und was nicht funktioniert.
Gruß Marie
Zum Beispiel:
Private Sub Color_change()
Me.InventarNr.Locked = True
Me.InventarNr.BackColor = 12632256
Me.InventarNr.ForeColor = 4934475
Me.tbl_Hersteller_ID.Locked = True
Me.tbl_Hersteller_ID.BackColor = 12632256
Me.tbl_Hersteller_ID.ForeColor = 4934475
Me.tbl_Modell_ID.Locked = True
Me.tbl_Modell_ID.BackColor = 12632256
Me.tbl_Modell_ID.ForeColor = 4934475
End SubUnd dann einfach an den Stellen, wo Du es aufrufen willst
call Color_change
aufrufen.
Willst Du aber von einer anderen Stelle aus aufrufen, dann musst Du das 'me' ändern und in ein Modul eine Function schreiben, keine Sub, also bitte etwas genauer sagen was Du ausprobiert hast und was nicht funktioniert.
Gruß Marie
Antwort 2 von AndiS
Danke funktioniert soweit ich es brauche herrvorragend :-)
lg
andi
lg
andi