Aus Tabellen werte in Textfeldern ziehen
21.06.2018 11:25:47
Christian
kurz vorweg, es handelt sich bei meiner Frage nicht um ein reines Excel Problem. Ich nutze VBA in Microsoft Access um eine Anzahl an Einträgen für eine bestimmte ID aus einer Tabelle in ein Textfeld zu ziehen
Zum Beispiel habe ich für die ID [12] Batch1, Batch2 & Comp1, Comp2
Im Code habe ich meinen anfänglichen Versuch dargestellt, ich gehe davon aus, das ich eine While Schleife benötige nur bekomme ich diese nicht ganz hin.
Gleichzeitig fehlt mir vermutlich eine Funktion um die Texte zu verbinden? Stehe so ein wenig _ auf dem Schlauch.
Private Sub Liste41_Click()
Dim ReqID As Integer
Dim krt As String
Dim db As Database
Set db = CurrentDb
Dim rs As Recordset
Set rs = db.OpenRecordset("tblComponents", dbOpenDynaset)
With rs
Do Until .EOF
.FindFirst krt
rs!Batch = Me.Text105.Value
rs!Comp = Me.Text139.Value
.Update
.Close
End With
Set db = Nothing
Set rs = Nothing
End Sub
Beste Grüße
Christian
Anzeige