Thema Datum  Von Nutzer Rating
Antwort
Rot Setfocus funktioniert nicht
15.08.2022 18:47:25 Matthias
NotSolved
17.08.2022 23:16:57 xlKing
NotSolved
17.08.2022 23:18:32 xlKing
NotSolved

Ansicht des Beitrags:
Von:
Matthias
Datum:
15.08.2022 18:47:25
Views:
376
Rating: Antwort:
  Ja
Thema:
Setfocus funktioniert nicht

Hallo,

ich bin gerade dabei eine Access Datenbankanwendung zu schreiben und habe ein kleines Problem.

Ich gebe im Text2 über einen USB Scanner einen Barcode ein, suche dann, ob dieser Barcode existiert und füge ihn dann in die Liste ein, ansonsten würde ich ein neues Fenster (soweit bin ich noch nicht) öffnen in dem der Anwender noch Daten ergänzen kann und dann den Datensatz der Tabelle hinzufügen.

Ihr Profis würdet das wahrscheinlich mit einer Datenbankanbindung an ein Feld machen, aber so gut kenne ich mich nicht aus.

Meine Frage:

Ganz unten sage ich Text2.SetFocus, aber er macht es nicht, er bleibt in der Liste hängen.

Herzlichen Dank

 

Matthias

 

Private Sub Text2_Exit(Cancel As Integer)


'Suchen über alle Tabellenfelder
' mit + kann man mehrere Suchparameter als UND-Suchkondition eingeben
' mit dem Leerzeichen kann man Suchparameter als ODER-Suchkondition eintragen
'On Error GoTo Fehler
Dim varInhalt  As Variant
Dim intI       As Integer
Dim strFilter  As String
Dim strFilter1 As String
Dim intFeld    As Integer
Dim strMuster  As String
Dim strSQL, strsql1 As String
Dim strlink As String
Dim found As Boolean
Dim ZwischenSpeicher As String
Dim rs As DAO.Recordset
Dim strLike As String
  Einlesen = ""
'################################################################################
'######### ***** tbl_Kunde mit gewünschter Tabelle austauschen  ***** ###########
  Einlesen = "SELECT * FROM Tabelle1"
'################################################################################
'################################################################################
  Set rs = CurrentDb.OpenRecordset(Einlesen)
  Me!Liste4.RowSource = ""
 
found = False

With rs
  If Not rs.EOF Then
    .MoveFirst
  End If

  Do Until rs.EOF

With Form_Formular1.Liste4

If rs!Barcode = Text2.Text Then
        Liste4.AddItem (rs!Barcode)
        found = True
      End If
      rs.MoveNext
    End With
  Loop

 
 
.Close
End With


Text2.SetFocus
Text2.Text = ""


Set rs = Nothing
Set DB = Nothing
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 Setfocus funktioniert nicht
15.08.2022 18:47:25 Matthias
NotSolved
17.08.2022 23:16:57 xlKing
NotSolved
17.08.2022 23:18:32 xlKing
NotSolved