ich nutze eine Textbox in einer UF zur Eingabe einer Rechnungsnr. zu einem Datensatz.
Jetzt möchte ich gern, dass bei verlassen der Textbox, bzw. Enter nach Eingabe einer
RechnungsNr. - die Nr. in der Spalte 5 in Tabelle1 gesucht wird. Ist der Wert vorhanden,
soll eine MSGBox den User darauf hinweisen und nach dem Klick auf OK der Msgbox, soll
die Textbox ausgewählt und der eingebene Wert markiert sein.
Das mit der Suche und der Rückgabe etc. funktioniert sehr gut, nur ein Problem habe ich:
Der Fokus zurück auf die Textbox und die Markierung des darin eingebenen Textes klappt
nicht mit folgender Anweisung - warum nicht ? Kann mir jemand helfen ?!?
Private TB7.exit(ByVal Cancel as MSForms.ReturnBoolean)
' Codezeilen für Suche nach Datensatz und MSGBox dann:
TB7.Setfocus
With TB7
.select
.SelStart = 0
.Sellength = Len(TB7.Text)
end with
end sub