Private Sub txtSuche_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Dim Suchnr As String
Dim strKriterium As String
Dim ProduktionA As DAO.Recordset
Dim ProduktionB As DAO.Recordset
Dim db As DAO.Database
Set db = CurrentDb
Set ProduktionA = db.OpenRecordset("Produzierte Ansätze Teig", RecordsetTypeEnum.dbOpenDynaset)
Set ProduktionB = db.OpenRecordset("Produzierte Ansätze Teig", RecordsetTypeEnum.dbOpenDynaset)
Suchnr = txtSuche.Text
strKriterium = "[Teig Nummer] LIKE '" & Suchnr & "'"
ProduktionA.FindFirst strKriterium
Do Until ProduktionA.NoMatch
Debug.Print "ProduktionA"
Debug.Print ProduktionA.Fields("ID").Value
Debug.Print ProduktionA.Fields("Verantwortlicher").Value
Debug.Print ProduktionA.Fields("Teig Nummer").Value
Debug.Print ProduktionA.Fields("Herstelldatum").Value
Debug.Print ProduktionA.Fields("Mindesthaltbar").Value
Debug.Print ProduktionA.Fields("Typ").Value
ProduktionA.FindNext strKriterium
Loop
ProduktionB.FindFirst strKriterium
Do Until ProduktionB.NoMatch
Debug.Print "ProduktionB"
Debug.Print ProduktionB.Fields("ID").Value
Debug.Print ProduktionB.Fields("Verantwortlicher").Value
Debug.Print ProduktionB.Fields("Teig Nummer").Value
Debug.Print ProduktionB.Fields("Herstelldatum").Value
Debug.Print ProduktionB.Fields("Mindesthaltbar").Value
Debug.Print ProduktionB.Fields("Typ").Value
ProduktionB.FindNext strKriterium
Loop
ProduktionA.Close
ProduktionB.Close
Set ProduktionA = Nothing
Set ProduktionB = Nothing
Set db = Nothing
ElseIf KeyCode = 8 Then
txtSuche = Null
End If
End Sub