wert von objektbuttons prüfen
20.08.2008 13:33:00
objektbuttons
vielleicht könnt ihr mir ja helfen, ich suche schon seit Tagen im Netz nach einer Lösung finde aber nichts passendes für meine VBA Kenntnisse.
also ich habe ein formular in dem es gewisse Pflichtfelder gibt (unteranderem Textboxen und Comboboxen). Am Ende des Forumluars ist ein CommandButton der bei Click überprüft ob sämtliche Textboxen und Comboboxen ausgefüllt sind. Wenn ja verschickt er das Formular per Mail wenn Nein dann kommt ein MsgBox.
Jetzt ist aber zusätzlich eine Gruppe von 3 Optionbuttons dazugekommen, diese sind von haus aus auf False gesetzt da ich will dass der Kunde den Wert festlegt. Natürlich soll er jetzt am ende aber auch den Wert der Optionbuttons überprüfen und wenn kein Wert vorhanden, dann in die oben erwähnte MsgBox einen Satz schreiben (das heißt ich möchte sämtliche Fehlermeldungen in einer MsgBox haben).
Ich habe es zwar schonmal geschafft jeden Optionbutton einzeln zu prüfen, aber das macht natürlich wenig sinn, da es ja immer 2 Buttons geben wird die keinen Wert haben und somit eine Fehlermeldung kommen würde.
Hier mal mein bisheriger Code:
Private Sub CommandButton1_Click()
Const TextBox5 = "Sie haben keine Kostenstelle eingegeben!" & vbCrLf
Const TextBox4 = "Sie haben keinen Namen eingegeben!" & vbCrLf
Const ComboBox1 = "Sie haben keinen Standort angegeben!" & vbCrLf
Const OptionButton1 = "Sie haben kein blablabla!" & vbCrLf
Anzeige