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