Where clause for a recordset 1

[tbac]

Can someone tell me the proper code for putting a "Where" clause onto this:
Dim md As DAO.Recordset
Set md = CurrentDb.OpenRecordset("MDQuarantineShipmentID")

I would like the dataset to include only those records Where MDQuarantineShipmentID!ShipmentID = Me!ShipmentID. And ShipmentID is an Integer.

 

[genomon]

Capture MDQuarantineShipmentID!ShipmentID = Me!ShipmentID
somehow - let's use a text box called txtShipmentID

Change Set md = CurrentDb.OpenRecordset("MDQuarantineShipmentID")
to
Set md = CurrentDb.OpenRecordset("Select * From MDQuarantineShipmentID Where ShipmentID = '" & txtShipmentID & '" & " And IsNumeric('" & txtShipmentID & "') = True")

Haven't tested it, but oughta work...


I have great faith in fools; self-confidence my friends call it.
-Poe

 

[Remou]

How about:

Set md = CurrentDb.OpenRecordset("Select * From MDQuarantineShipmentID Where MDQuarantineShipmentID!ShipmentID =" & Me!ShipmentID)

 

[danvlas]

And Int(Me!ShipmentID).= Me!ShipmentID

HTH


Daniel Vlas
Systems Consultant

http://www.geocities.com/danvlas/AutoMail.html