Åbne recordset fra Ac2k i VBA

RS.FindFirst er ikke bedre; fejlmeddelelsen er dog anderledes:
Runtime error 3251,
Operation is not supported for this type of object

Har du \"Dim RS as Recordset\" før den viste kode?

Hej,

Så vidt jeg kan se, så forsøger du at blande ADO og DAO.
Hvis du arbejder i Access 2000, bør du benytte ADO. Derved kan koden se nogenlunde sådan ud:

    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Set cn = CurrentProject.Connection
    Set rs = New ADODB.Recordset
   
    rs.Open \"Tabelnavn\", cn, adOpenKeyset, adLockOptimistic
   
    rs.Find \"Felt1 = \" & varFelt1
    If rs.EOF Then
        MsgBox \"Posten findes ikke!\", vbExclamation
    End If


Kommentar:
Currentdb hører DAO til (Access 97 og tidligere)
Ligeså gør .Findfirst og .NoMatch

Hvis du stadig insisterer på at bruge den gamle syntax, skal du under Tools->references afkrydse \"Microsoft DAO 3.x Object Library\". Derved kan koden se således ud istedet:

    Dim db As Database
    Dim rs As DAO.Recordset
    Set db = CurrentDb
    Set rs = db.OpenRecordset(\"Tabelnavn\", dbOpenDynaset)
    rs.FindFirst \"Felt1 = \" & varFelt1
    If rs.NoMatch Then
        MsgBox \"Posten findes ikke!\", vbExclamation
    End If

/Thomas

Thomas, det var lige hvad jeg havde brug for!
Nej jeg har intet somhelst ønske om at blive i DAO, det var bare det eneste jeg kunne...

Sjovt, at du lige nævner det :-)
Vi havde en lille diskussion igang om ADO vs DAO i dette spørgsmål: http://www.eksperten.dk/spm/61830

på trods af mine kommentarer, så mener jeg som udgangspunkt også at man lige så godt kan konvertere til ADO med det samme, da DAO formentlig ikke vil blive supporteret/udviklet fremover.

/Thomas