Hallo Zusammen,

folgende Problemstellung:

Ich arbeite mit einer großen Access Datenbank. Im Frontend soll eine Suchformular erstelt werden, welche durch Eingabe der nummer zwei Tabellen durchsucht und  je Tabelle in einer Listbox die Treffer auflistet. Wällt man einen Treffer aus wird er zusammengefasst und in Textfeldern wie gewünscht dargestellt.

Bisher habe ich das so gelöst:

Private Sub lstProduktionB_AfterUpdate()

    Dim ID As String
    Dim Kunde As String
    Dim Fassnr As String
    Dim Typ As String
    Dim MDH As String
    

     ID = Me!lstProduktionB
     Kunde = Me!lstProduktionB.Column(1)
     Fassnr = Me!lstProduktionB.Column(2)
     Typ = Me!lstProduktionB.Column(5)
     MDH = Me!lstProduktionB.Column(3)
     Me!txtCharge = ID & Kunde & "-EC" & Fassnr
     Me!txtMDH = MDH
     Me!txtTyp = Typ
     
     Me!lstProduktionA = Null
     
    
     
End Sub


Private Sub lstProduktionA_AfterUpdate()

    Dim ID As String
    Dim Kunde As String
    Dim Fassnr As String
    Dim Typ As String
    Dim MDH As String
    

     ID = Me!lstProduktionA
     Kunde = Me!lstProduktionA.Column(1)
     Fassnr = Me!lstProduktionA.Column(2)
     Typ = Me!lstProduktionA.Column(5)
     MDH = Me!lstProduktionA.Column(3)
     Me!txtCharge = ID & Kunde & "-EC" & Fassnr
     Me!txtMDH = MDH
     Me!txtTyp = Typ
     
    Me!lstProduktionB = Null

Private Sub txtSuche_Change()
 
Debug.Print "Suchbegriff: " & Me!txtSuche.Text
Dim strKriterium As String

strKriterium = "[Teig Nummer] LIKE '" & Me!txtSuche.Text & "'"
Debug.Print strKriterium

Me!lstProduktionB.RowSource = "SELECT [Produzierte Ansätze Teig].ID, [Produzierte Ansätze Teig].Verantwortlicher,[Produzierte Ansätze Teig].[Teig Nummer], [Produzierte Ansätze Teig].Mindesthaltbar, [Produzierte Ansätze Teig].Herstelldatum , [Produzierte Ansätze Teig].typ FROM [Produzierte Ansätze Teig]" _
& "WHERE " & strKriterium & " ORDER BY [ID] DESC"
Me!lstProduktionB.Requery

Me!lstProduktionA.RowSource = "SELECT [Produzierte Ansätze Teig1].ID, [Produzierte Ansätze Teig1].Verantwortlicher, [Produzierte Ansätze Teig1].[Teig Nummer], [Produzierte Ansätze Teig1].Mindesthaltbar, [Produzierte Ansätze Teig1].Herstelldatum ,[Produzierte Ansätze Teig1].typ FROM [Produzierte Ansätze Teig1]" _
& "WHERE " & strKriterium & " ORDER BY [ID] DESC"
Me!lstProduktionA.Requery

Me!txtCharge = Null
Me!txtMDH = Null
Me!txtTyp = Null

End Sub

Diese Lösung ist aber viel zu langsam. An welcher Stelle muss ich optimieren?