AW: Sprungmarke
18.09.2007 08:58:16
Christian
Hallo Wolli,
danke dass Du Dich versuchst der Sache anzunehmen.
Vielleicht habe ich mich dusselig ausgedrückt.
Ich möchte, dass der Eingeber bei Missachtung der MsgBox immer wieder die MsgBox erhält.
Also, dass immer wieder bei dem Versuch abzuspeichen die Prüfung durchlaufen wird, ob alle nötigen TextBoxes ausgefüllt sind. Wenn also eine Angabe vergessen wurde, bekommt der Anwender so lange die entsprechende TextBox, bis er die Angabe erfüllt hat oder die Eingabe Abbricht ohne dass eine Angabe gespeichert wird.
Das habe ich bisher aus den Büchern und meiner wenigen Erfahrung:
Private Sub CommandButton1_Click()
Prüfen
End Sub
Private Sub CommandButton2_Click()
Hide
End Sub
Public Sub Prüfen()
On Error GoTo Fehler
Prüfen:
If TextBox1.Value = "" Then Err.Raise 65535
If TextBox5.Value = "12" And TextBox4.Value = "" Then Err.Raise 65534 Else GoTo Fehlerende
If TextBox5.Value = "14" And TextBox4.Value = "" Then Err.Raise 65534 Else GoTo Fehlerende
If TextBox5.Value = "15" And TextBox4.Value = "" Then Err.Raise 65534 Else GoTo Fehlerende
If TextBox5.Value = "16" And TextBox4.Value = "" Then Err.Raise 65534 Else GoTo Fehlerende
If TextBox3.Value = "" Then Err.Raise 65533
If ComboBox1.Value = "" Then Err.Raise 65531
If TextBox2.Value = "" Then Err.Raise 65529
Eintragen:
Fehler:
If Err.Number = 65535 Then MsgBox ("Filiale bitte eingeben !"): TextBox1.SetFocus: Exit Sub
If Err.Number = 65534 Then MsgBox ("Bitte geben Sie hier unter Bemerkungen Ihren Namen ein !"): _
TextBox5.SetFocus
If Err.Number = 65533 Then MsgBox ("Bitte Betrag angeben !"): TextBox3.SetFocus: Exit Sub
If Err.Number = 65531 Then MsgBox ("Bitte wählen Sie einen Stornogrund aus !"): ComboBox1. _
SetFocus: Exit Sub
If Err.Number = 65529 Then MsgBox ("Zu dieser betreuenden Stelle" + Chr(13) + "ist noch kein _
Regionalbereich gespeichert" + Chr(13) + "Bitte rufen Sie Herrn Stück " + Chr(13) + "unter Tel.: 71 67 !"): TextBox7.SetFocus: Exit Sub
Fehlerende:
Exit Sub
Resume Next
End Sub
Public Sub Eintragen()... usw.