.FindFirst

  • Thread starter Thread starter Tom W
  • Start date Start date
T

Tom W

Abbreviated code:

Set rst = db.OpenRecordset("qryFORECAST", dbOpenDynaset)
mCP = ![CONTID]+![PRINID]
Set rst1 = dbOpenRecordset("tempFORECAST", dbOpenTable)
rst1.FindFirst "![CONTID]+![PRINID]" = mCP

The above code fails to find the record.

What can I do to make the process work?
 
Corrected code:

Set rst1 = dbOpenRecordset("tempFORECAST", dbOpenTable)
mCP = ![CONTID]+![PRINID]
Set rst = db.OpenRecordset("qryFORECAST", dbOpenDynaset)
rst.FindFirst "![CONTID]+![PRINID]" = mCP
 
Not sure, but I would try

rst.FindFirst "[CONTID]+[PRINID] = " & mCP

But why not


rst.FindFirst "[CONTID]= " & rst1("ContID") & " AND [PRINID] = " & rst1("PrinID")



Corrected code:

Set rst1 = dbOpenRecordset("tempFORECAST", dbOpenTable)
mCP = ![CONTID]+![PRINID]
Set rst = db.OpenRecordset("qryFORECAST", dbOpenDynaset)
rst.FindFirst "![CONTID]+![PRINID]" = mCP
-----Original Message-----
Abbreviated code:

Set rst = db.OpenRecordset("qryFORECAST", dbOpenDynaset)
mCP = ![CONTID]+![PRINID]
Set rst1 = dbOpenRecordset("tempFORECAST", dbOpenTable)
rst1.FindFirst "![CONTID]+![PRINID]" = mCP

The above code fails to find the record.

What can I do to make the process work?
.
Click to expand...
Click to expand...
 
John,
Thank you very much for your response. I will try them
out.
-----Original Message-----
Not sure, but I would try

rst.FindFirst "[CONTID]+[PRINID] = " & mCP

But why not


rst.FindFirst "[CONTID]= " & rst1("ContID") & " AND [PRINID] = " & rst1("PrinID")



[email protected] said:
Corrected code:

Set rst1 = dbOpenRecordset("tempFORECAST", dbOpenTable)
mCP = ![CONTID]+![PRINID]
Set rst = db.OpenRecordset("qryFORECAST", dbOpenDynaset)
rst.FindFirst "![CONTID]+![PRINID]" = mCP
-----Original Message-----
Abbreviated code:

Set rst = db.OpenRecordset("qryFORECAST", dbOpenDynaset)
mCP = ![CONTID]+![PRINID]
Set rst1 = dbOpenRecordset("tempFORECAST", dbOpenTable)
rst1.FindFirst "![CONTID]+![PRINID]" = mCP

The above code fails to find the record.

What can I do to make the process work?
.
Click to expand...
Click to expand...
.
Click to expand...
 
rst1.FindFirst "![CONTID]+![PRINID]" = mCP
Click to expand...

I am not quite sure what this is meant to do -- adding ID numbers together
is an (ahem) unusual approach. If they are text values, then it's safer to
use an ampersand (&) and you'll need to delimit the whole lot with quote
marks:

"CONTID & PRINID = """ & mCP & """"

Then again, if you are aiming to match the two values, you have a potential
bug telling the difference between "1" & "12" and "11" & "2". The even
safer approach is to use two comparisons:

rst1.FindFirst _
"ContID = """ & !ContID & """ AND PrinID = """ & !PrinID & """"

Hope that helps


Tim F
 
Back
Top