Hallo Leute,
Ich hoffe es kann man jemand mal kurz Helfen, es geht um die Zeile mit If Len hier soll er nach dem löschen wieder den Fokus auf die Texbox bekomen damit man da direkt weiter machen kann.
Ich hab schon probiert wie weiter oben mit Cancel = True dann ist er zwar in der box ich kann aber nichts machen und ich komm aus der Texbox nicht mehr raus SetFokus geht auch nicht warum auch immer.
Wenn da jemand eine Idee hätte wäre das toll.
Danke für eure Mühe
Private Sub Tb1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ctrl As Control, vnt As Variant
For Each ctrl In Me.Controls
If TypeOf ctrl Is MSForms.TextBox Then
If Not ctrl Is ActiveControl Then
vnt = Trim(ctrl.Value)
If vnt <> "" Then
If vnt = ActiveControl.Value Then
MsgBox "Eingabe schon vorhanden"
ActiveControl.Value = ""
Cancel = True
Else
If Len(tb1) <> 8 Then If MsgBox("Barcode falsch", vbOKOnly) = vbOK Then tb1.Text = Undo
tb1.Text.SetFocus
Exit For
End If
End If
End If
End If
Next ctrl
End Sub
|