How To Open A RecordSet Using OpenRecordSet command 2

[TripleJHJO]

I am trying to run this piece of code in an Access 2002 database. I keep getting a "Type Mismatch" error on the Set rstlocations line of the code and I am not sure why. Can anyone advise?

Thanks,

J. Jensen

Private Sub cmdCopySigs_Click()
    'copy signatures from first record to 2nd and 3rd records
    Dim dbsCurrent As Data
    Dim rstLocations As Recordset
    Dim sigBytes() As Byte
    Dim lFieldsize As Long
    Dim SQL As String

    'get signature BLOB data into sigBytes var
    Set rstLocations = CurrentDb.OpenRecordset("Zinger")
    rstLocations.MoveFirst
    lFieldsize = rstLocations.Fields("Signature").DefinedSize
    ReDim sigBytes(lFieldsize)
    sigBytes = rstLocations.Fields("Signature").GetChunk(lFieldsize)

    'copy sigBytes data into 2nd and 3rd records signature fields
    rstLocations.MoveNext
    While Not rstLocations.EOF
 '       rstLocations.Edit
        rstLocations.Fields("Signature").AppendChunk (sigBytes)
        rstLocations.Update
        rstLocations.MoveNext
    Wend
    rstLocations.Close
End Sub

 

[PHV]

Replace this:
Dim rstLocations As Recordset
with this:
Dim rstLocations As DAO.Recordset

Check in the menu Tools -> References ... that the Microsoft DAO x.y Object Library is ticked.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[RoyVidar]

The declarations (probably)

[tt] Dim dbsCurrent As DAO.Database
Dim rstLocations As DAO.Recordset

' and probably, the following, but your code should do
Set dbsCurrent = CurrentDB
Set rstLocations = dbsCurrent.OpenRecordset("Zinger")[/tt]

Roy-Vidar

 

[TripleJHJO]

Thank you.
The reference is what I was missing. Once included - no issues.

J. Jensen

 

[rubbernilly]

RoyVidar had very good points... did you take those into account?

 

[RoyVidar]

Same as PHV, just one (important one) less

Roy-Vidar

 

[TripleJHJO]

I used both suggestions. Thanks again.