Textbox Worter Zahlen und Fehler Melden Msg

nein funkioniert nicht der Last mich bei Leere Textbox nicht Weiter
ich habe so trin

Code:
worte = Split(D1TextBox.Value, " ")
 
If UBound(worte) <> 1 Then
    MsgBox "Bitte Vor-Nachname Eingeben!", vbOKOnly, "Fehler"
    Exit Sub
End If

und ich habe noch problemme mit MultiPage Fehler 2110 Mit Focus
 
Sorry mein Fehler. Du musst doch prüfen ob das Textfeld leer ist.

In diesem Fall muss du Routine sofort wieder verlassen werden ohne das der sonstige Code noch weiter ausgeführt wird.

Visual Basic:
'wenn nichts in das Textfeld eingegeben wurde, Routine gleich wieder verlassen
If Len(D1TextBox.Value) = 0 Then Exit Sub

'ansonsten prüfen ob es zwei Werte sind
worte = Split(D1TextBox.Value, " ")
 
If UBound(worte) <> 1 Then
    MsgBox "Bitte Vor- und Nachname eingeben!", vbOKOnly, "Fehler"
    Exit Sub
End If

und ich habe noch problemme mit MultiPage Fehler 2110 Mit Focus
Was das bedeuten soll, verstehe ich leider nicht!
 
nein fehlt noch was

jetzt Kommt keine Msgbox
aber Bei Übernehmen Passiert nix

kein sein das bei Multipage liegt es ist auf die Zweite seite eingebaut
 
Das einzige was ich verstehe, ist das es bei dir so nicht geht.

Zeig uns mal deinen Code und versuche auch mal ihn richtig zu formatieren mit [code=vb] ... [/code]
 
Also ich habe mir die Datei bzw. den Code von dor mal angeschaut.

Bevor man sich auf die Fehlersuche macht bzw. machen kann, solltes du erstmal deinen Code selber überarbeiten.

Du hast zum Beispiel folgende Zeilen in Code
Visual Basic:
OrgTextBox.SetFocus
AltTextBox.SetFocus
txtEingabe.SetFocus
was absolut unsinnig ist.

Schaue dir wie gesagt selber nochmall an was die einzelnen Abschnitte für eine Funktion haben und ob sie a) wirklich benötigt werden, ob sie b) an dieser Stelle auch richtig sind und c) ob diese Funktion nicht an anderer Stelle wieder durch eine andere Funktion aufgehoben wird.

Du hast zum Beispiel auch 2 Listenfelder. Das eine ist die Jahreszahl und das andere die Spieldauer. Bei der Jahreszahl erzeugst du eine Liste von 1900 bis 2014 (114 Einträge) und bei der Spieldauer geht die Liste von 5 bis 360 Minuten (355 Einträge).

Sorry, aber das ist meiner Meinung nach totaler Quatsch. Mache aus den Listen einfach ein Textfeld und lasse den Benutzer die Jahreszahl und die Länge von Hand eintragen.
 
wie gesagt ich bin Kein Programmiere ich habe ganz andere Beruf Richtung gewält
das mach ich nur Kollege gebettet hat ob ich was machen kann

Ok
SetFocus Ist weg
auch bei

Code:
If OrgTextBox.Value = "" Then
MsgBox ("Bitte Original Name Eigeben")
Exit Sub
End If

Wie Krieg ich Jahr 1900-2014

und nicht z.B 1552 oder 9524
 
Du kennst doch die IF-Anweisung!

Visual Basic:
'die Anweisung Format(Date, "yyyy") liefert die aktuelle Jahreszahl,
'somit muss hier nie mehr was geändert werden!
If jahr < 1900 Or jahr > Format(Date, "yyyy") Then
    MsgBox "Die Jahreszahl ist ungültig!"
End If

Ist nur ein Vorschlag von mir, aber ich denke es macht Sinn.
 
Zurück