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