Ich verusche mich zur DB zu verbinden und die Abfrage ausführen zu lassen um sie dann später in ein Recordset umzuwandeln
Das Problem ist nur dass er ständig Fehler bringt die ich nicht kenne!! Im Moment bringt er damit keinen Fehler, aber auch nicht das gewünschte Ergebniss
Dim db As Database
Dim qdf As QueryDef
Dim von As Integer
Dim bis As Integer
Dim sVon As String
Dim sBis As String
Dim qryString As String
Dim stAbfrage As String
Dim qryRecord As Recordset
' Laden der gesuchten Werte in die Variablen
sVon = [vonZellnummerTextfeld].Value
sBis = [bisZellnummerTextfeld].Value
' Abfrage String
qryString = "SELECT w.Zellnummer, w.Auftragsnummer FROM Wickeln AS w WHERE w.Zellnummer>= " & sVon & " AND w.Zellnummer<= " & sBis & " AND w.Rückstellprobe = TRUE;"
' aktuelle DB setzen
Set db = CurrentDb
Set qdf = db.QueryDefs("SucheRueckstellprobe")
qdf.SQL = qryString
Dim t As Integer
t = qdf.MaxRecords
[ZellNrRueckstellprobeTextfeld].Value = t
[ENrKatodeTextfeld].Value = qryString
Kennt jemand eine Lösung wie ich verbinden kann, die Abfrage ausführen und dann das ganze in ein Recordset umwandeln lassen kann?? Im
|