FindFirst command

[mfaqueiroz]

Hei all
I'm using for the first time the command rst.FindFirst, but isn't giving the right output--is moving always to first row

Dim strCriteria as String
Dim rst as DAO.RECORDSET

Date = RST.Fields(1)
Date1= Mid(Date, 7, 4) & "-" & Mid(Date, 4, 2) & "-" & Mid(Date, 1, 2) & " " & TimeValue(Date)
Machine1 = rst.Fields(2)
Tag1= rst.Fields(4)

strCriteria = "[State] = 'OK' and [Date] > #" & Date1 & "# AND [Machine]= ' " &Machine1 & " ' and [Tag] = '" &Tag1 & "' "

rst.FindFirst (strCriteria)

id2 = rst.Fields(0)


Could you please help me?

Thank you!!

 

[MarkK]

I would not use FindFirst in this case. Rather, I would use this . . .

"[State] = 'OK' and [Date] > #" & Date1 & "# AND [Machine]= ' " &Machine1 & " ' and [Tag] = '" &Tag1 & "' "

. . . as the WHERE clause of my SQL to open exactly the recordset I need.

 

[Minty]

Also

Date = RST.Fields(1)

Date is a reserved word so I'm amazed it doesn't throw a spanner in the works here as well.

 

[Cronk]

Ditto the other comments on Date being a reserved word.

However, after presumably opening the recordset (code not included), you take the values of the first record eg Machine1 = rst.Fields(2)
then do a find.

Of course it will always find the first record.

 

[JHB]

Hei all
I'm using for the first time the command rst.FindFirst, but isn't giving the right output--is moving always to first row
...

In combination with FindFirst you need the NoMatch for determining if you found the right record according to the criteria.
The link shows an example how to use it:
https://msdn.microsoft.com/en-us/library/office/ff194787.aspx

 

[CJ_London]

your Date1 value should also be formatted in US style -

e.g.

... & format(Date1,"mm/dd/yyyy") & ....