title image


Smiley Code verkürzen
Hallo zusammen,

ich habe in meinem Formular ca. 80 Schaltflächen welche alle

die gleiche Funktion aufrufen.

Kann man für das Click Ereignis der Schaltflächen

irgendwie eine Funktion schreiben so dass man nicht

80 mal das gleiche schreiben muss?

Habe nämlich vor das ganze noch über Register auf ca. 300

zu erweitern, da wird das ganze schon sehr mühsam.



Private Sub Reg()



Dim C

C = Screen.ActiveControl.Tag

Me!txtPlu = Nz(C)

AddDS



End Sub



Private Sub Schnelltaste1_Click()

Reg

End Sub



Private Sub Schnelltaste2_Click()

Reg

End Sub



Private Sub Schnelltaste3_Click()

Reg

End Sub



usw...
Gruß Stephan



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: