Msgbox wenn textboxen leer

Forumthread: Msgbox wenn textboxen leer

25.07.2005 15:34:18

Claudia

Hallo nochmal an euch,
möchte gerne beim betätigen einer Schaltfläche wenn textboxen 1 bis 6 nicht oder nicht alle gefüllt sind eine Msgbox "Bitte vervollständigen Sie die Eingaben" ,,"Idiot!" erscheinen lassen
Für ne Hilfe bin ich dankbar,
Claudia

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Msgbox wenn textboxen leer

25.07.2005 15:41:38

MichaV
AW: Msgbox wenn textboxen leer

25.07.2005 15:54:13

Peter
AW: Msgbox wenn textboxen leer

25.07.2005 16:06:32

Claudia

AW: Msgbox wenn textboxen leer

25.07.2005 15:41:38

MichaV

Hi,
soweit, wie Du es beschrieben hast:
if textbox1="" or textbox2="" or textbox3="" usw. then msgbox "Bitte mach richtig",,"Chef"
Gruss- Micha

AW: Msgbox wenn textboxen leer

25.07.2005 15:54:13

Peter

Hallo Claudia
ich gehe davon aus, du hast einen CommandButton der die Eingaben der 6 TextBoxes bestätigt, dann in dessen Click Ereignis:

Private Sub CommandButton1_Click()
Dim bFehler  As Boolean
Dim iTxtBox  As Integer

   bFehler = False
   If Len(TextBox1.Text) = 0 Then
      bFehler = True
      iTxtBox = 1
   ElseIf Len(TextBox2.Text) = 0 Then
      bFehler = True
      iTxtBox = 2
   ElseIf Len(TextBox3.Text) = 0 Then
      bFehler = True
      iTxtBox = 3
   ElseIf Len(TextBox4.Text) = 0 Then
      bFehler = True
      iTxtBox = 4
   ElseIf Len(TextBox5.Text) = 0 Then
      bFehler = True
      iTxtBox = 5
   ElseIf Len(TextBox6.Text) = 0 Then
      bFehler = True
      iTxtBox = 6
   End If

   If bFehler = True Then
      MsgBox "Bitte vervollständigen Sie die Eingaben", _
         48, "  Info für " & Application.UserName
      Select Case iTxtBox
         Case 1: TextBox1.SetFocus
         Case 2: TextBox2.SetFocus
         Case 3: TextBox3.SetFocus
         Case 4: TextBox4.SetFocus
         Case 5: TextBox5.SetFocus
         Case 6: TextBox6.SetFocus
      End Select
   End If
End Sub
Viele Grüße Peter
Das Forum lebt auch von den Rückmeldungen.

AW: Msgbox wenn textboxen leer

25.07.2005 16:06:32

Claudia

Hallo ihr zwei,
ich habe einen commandbutton, der zum nächsten schritt führen soll. Dieses wäre unlogisch, wenn der erste schritt nicht abgehandelt ist. aber im Prinzip ist das ja das gleiche.
Die Lösung von MIcha hat mir schon sehr geholfen. SIe funktioniert einwandfrei. Ich glaube dabei belasse ich es auch.
Ein herzliches Dankeschön aber an euch beide!
Liebe Grüße,
Claudia

Beliebteste Forumthreads (12 Monate)

Forumthread: Msgbox wenn textboxen leer

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread