Access ADO

[knowledge]

Ich konvertiere den DAO Code in ADO und bekomme Fehlermeldung "Die Argumente sind vom falschen Typ, liegen ausserhalb des Gültigkeitsbereich oder sind miteinander unvereinbar". Hab lange versucht, komme aber keinen Schritt weiter. Beim debuggen wird die Zeile
Forms!Kunden.Refresh
angezeigt.

 

[JensG]

Hallo knowledge,

da unsere Hellseherischen Fähigkeiten hier etwas beschränkt sind wirst du
uns schon mal ein wenig relevanten Code zeigen müssen. Sonst wird dir
keiner helfen können.
Ich hoffe du hast dich ein wenig mit ADO beschäftigt denn ADO ist schon nen
ziemlicher Unterschied zu DAO.

Jens

 

[knowledge]

Function color()

ReDim s(10000) As Double, d(10000) As Double, h(10000) As Double, dh(10000) As Double
Dim A1, A, n
Forms!Kunden.Refresh

'GoSub Projektsuche

'GoSub Datumsuche


Beginn Unterprogramm

Projektsuche:

Dim conn As New ADODB.Connection

Dim DSProjekt As ADODB.Recordset

Set conn = CurrentProject.Connection
Set DSProjekt = conn.OpenRecordset("Mess1", DB_OPEN_DYNASET)

DSProjekt.MoveFirst
1
A1 = Forms![Kunden]![Pull]

If DSProjekt![Projekt] = A1 Then A = DSProjekt![Projekt]
If DSProjekt![Projekt] = A1 Then GoTo aaa:
DSProjekt.MoveNext
GoTo 1
1.1

DSProjekt.Close
conn.Close