Thema Datum  Von Nutzer Rating
Antwort
Rot Fokus auf Textblock
 04.07.2013 17:42:59 KampfyX
NotSolved

Ansicht des Beitrags:
Von:
KampfyX		 Datum:
04.07.2013 17:42:59		 Views:
1454		 Rating:
     
Antwort:
  Ja
Thema:
Fokus auf Textblock

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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Fokus auf Textblock
 04.07.2013 17:42:59 KampfyX
NotSolved