Thema Datum  Von Nutzer Rating
Antwort
24.05.2007 10:58:01 derBarki
NotSolved
31.05.2007 13:00:11 Rasta
NotSolved
Rot Aw:Ein Sub über mehrere Button aufrufen
 03.06.2007 11:03:17 sigi
NotSolved

Ansicht des Beitrags:
Von:
sigi		 Datum:
03.06.2007 11:03:17		 Views:
1647		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Ein Sub über mehrere Button aufrufen
derBarki schrieb am 24.05.2007 10:58:01:

Hallo zusammen,

ich möchte gerne ein Sub über mehrere Button aufrufen können. Zur Zeit habe das mit einem kleinen Sub, das über eine Call Funktion das HauptSub aufruft, für jeden Button gelöst.
Das sieht bisher wie folgt aus:

Private Sub ComboBox1_Change()
Call mr_check
End Sub

Private Sub CheckBox1_change()
Call mr_check
End Sub

Private Sub CheckBox2_change()
Call mr_check
End Sub

Private Sub CheckBox3_change()
Call mr_check
End Sub

Private Sub CheckBox4_change()
Call mr_check
End Sub

Private Sub CheckBox5_change()
Call mr_check
End Sub

Private Sub CheckBox6_change()
Call mr_check
End Sub

Private Sub CheckBox7_change()
Call mr_check
End Sub

Private Sub CheckBox8_change()
Call mr_check
End Sub

Private Sub OptionButton1_change()
Call mr_check
End Sub

Private Sub OptionButton2_change()
Call mr_check
End Sub

Private Sub OptionButton3_change()
Call mr_check
End Sub


Private Sub mr_check()
...

Ich denke nur, dass man das vielleicht auch einfacher hinbekommen kann. Evtl. ein Sub für alle Button?
Ich wäre Euch für schnelle Hilfe sehr dankbar.

Vielen Dank schonmal.
LG

Aufruf durch Klickereignis bei jedem Button die gleiche Ereignisprocedur ( Access )

Call mr_check({Variable}) z.Bsp. combBox1 für ComboBox1
chkBox1 für CheckBox1

Private Sub mr_check(strButtonName as String)
select case strButtonName
case "combBox1"
Aktion
case "chkBox1"
Aktion
case else '? wenn keine Bedingung zutrifft
end select

Gibt es für einige Button die gleiche Aktion so geht das wie folgt

Private Sub mr_check(strButtonName as String)
select case strButtonName
case "combBox1","chkBox1"
Aktion
case else '? wenn keine Bedingung zutrifft
end select

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
24.05.2007 10:58:01 derBarki
NotSolved
31.05.2007 13:00:11 Rasta
NotSolved
Rot Aw:Ein Sub über mehrere Button aufrufen
 03.06.2007 11:03:17 sigi
NotSolved