Find match in recordset and populate value in another txtbox

[CTOROCK]

In Access 2000!

I have a form that has a combo box pulling a container # value from a table field. the table has the fields Vessel, Container, & Cartons. On my form (unbound) I would like when cmbbox_lostfocus to look back in the table and find the the vessel and cartons for that record and populate the appropriate fields on my form. this is what I've tried:

Dim StrContainer As String
Dim Db As Database
Dim Rst As Dao.Recordset
Dim StrVessel As String

Set Db = CurrentDb
Set Rst = Db.OpenRecordset("Tbl_Container Schedule&quot
StrContainer = CmbContainer.Value
Rst.FindFirst StrContainer
StrVessel = Rst.Fields("vessel&quot.Value
'MsgBox StrVessel
Rst.Close
TxtVessel.value = strvessel,


But I get an error on the find first. Do I need to set an index? how to make index container field?
Can anyone help? Thanks! "The greatest risk, is not taking one."

 

[TonyJollans]

Hi CTOROCK,

FindFirst needs criteria to work on in the form of a WHERE clause (without the WHERE), so I think you'll need to change your line to something like ..

RSt.FindFirst "Container = """ & StrContainer & """"

Enjoy,
Tony

 

[CTOROCK]

It says that the operation is not supported for this type of object.???? do you know what this means?

thanks! "The greatest risk, is not taking one."

 

[TonyJollans]

Hi,

Yes, I didn't spot that! The various Finds don't work on table-type recordsets (the default) so change your open to ..

Set Rst = Db.OpenRecordset("Tbl_Container Schedule",

dbOpenDynaset

)

Enjoy,
Tony

 

[CTOROCK]

Hey! Thanks a lot Tony! "The greatest risk, is not taking one."