combox

[wdu94]

Hello,

This codes works for Access97, but not work for access2000.
I know in the access97 using DAO and access using ADO.
Please help me works for access2000 version.

Many Thanks.
Jeannia

The following are my codes:

Private Sub Combo18_AfterUpdate()
Dim rs as Recordset

Set rs = Me.RecordsetClone
rs.FindFirst "[MC_NUM] =" & Me.Combo18
Me.Bookmark = rs.Bookmark

End Sub

 

[gusbrunston]

Dear Jeannia:
I hope this works:

Private Sub Combo18_AfterUpdate()
    ' Find the record that matches the control.
    Dim Rs As Object
    Set Rs = Me.Recordset.Clone
    Rs.FindFirst "[MC_NUM] = " & Str(Me![Combo18])
    Me.Bookmark = Rs.Bookmark
End Sub

Gus Brunston
An old PICKer
padregus@home.com

 

[wdu94]

Hi, gusbrunston,

I got "Run-time error '3464' datatype mismatch.
I didn't find "FindFirst" in the ADO(default is ado in access 2000). If use the DAO that can automatic show up "FindFirst". MY BE THAT IS PROBLEM.

Any ideas? Thanks
Jeannia

 

[gusbrunston]

Sorry I didn't get back sooner.
Not at my Access2000 workstation. Maybe you need to move DAO up higher in rank so that it will compile...just guessing, I really don't know much about ADO or DAO...might as well be DOA Sorry about that...


Gus Brunston
An old PICKer
padregus@home.com

 

[jebry]

Hi!

I think that ADO uses Find instead of FindFirst. I am just starting to study ADO myself.

hth
Jeff Bridgham