✔ Vb6 Frage

[5Rad]

Hi,
an alle die bei dem schönen Wetter am PC sitzen hab.
Hab ne Frage und zwar. Hab ich eine DataCombobox wenn diese leer bleibt und ich einen OK button klicke kommt die Prüfung ob die DataCombobox leer ist. Wenn ja dann kommt eine Meldung die man mit ok bestätigen kann.
Das funktioiert soweit.


Mein Problem ist das mein Programm weiterläuft nach der Bestätigung der Meldung.
Was muss ich tun das mein Programm wieder bei der eingabe von der DataCombobox steht?

Vielen Dank im Voraus für eure bemühungen

lg
Pietro

 

[tombe]

Also wenn die ComboBox nicht leer sein darf schreib nach der Ausgabe der Meldung einfach :

Exit Sub

Wenn man nur bestätigen muss, das die ComboBox leer ist, dann schreib :

antwort = MsgBox("Ohne Eintrag in ComboBox weitermachen?", vbYesNo + vbQuestion, "Bitte Bestätigen")

if antwort = vbYes then
  'Code wenn es ohne Wert weitergeht
else
  'Vorgang wird abgebrochen
  Exit Sub
end if

Es wird dann eine Meldung angezeigt, bei der man mit Ja oder Nein bestätigen muss was man tut.

 

[5Rad]

Hey Danke dir für deine Antwort
Aber iwi tut es net

Private Sub cmdOK_Click()[
If DataCombo_User = "" Then 'Hier ist das Problem 
MsgBox "Bitte wählen Sie einen Benutzernamen aus!" 'Wenn ich die MsgBox bestättige läuft das Programm weiter! Wie kann ich des abfangen?!
End If
For I = 1 To Rs.RecordCount
If DataCombo_User <> RS.Fields("User") Then
Rs.MoveNext
Else 
X = Rs.Fields("PW")
End If
Next I

'Kennwort prüfung ....
'Wenn Kennwort ok dann öffnet es ein neus Fenster

 

[tombe]

Wenn Du wie geschrieben Exit Sub nimmst, steigt er nach dem Anzeigen der Meldung aus der Prozedur "cmdOK_Click" aus.

If DataCombo_User = "" Then
  MsgBox "Bitte wählen Sie einen Benutzernamen aus!"
  Exit Sub
End If

Aber muss man hier nicht prüfen ob :

DataCombo_User.ListIndex = -1

Soll heißen wenn kein Eintrag ausgewählt ist.