Find First Record (1 Viewer)

[exaccess]

Hi Everybody,
I am using ACCESS 2013. My recordsets and tables are all DAO. There are no indexes. But I can not run the FindFirst statement. Each time it says this method is not supported for this kind of object. Here is the code

 rs.FindFirst ("(rs.Fields('TeleCon') = TT)")
        If Not rs.NoMatch Then
            GoTo StoreValue
        Else
            rs.AddNew
            rs.Fields("TeleCon") = TT
            rs.Fields("Created") = Now
            rs.Update
            I = I + 1
            GoTo StoreValue
        End If

Please help.

 

[Minty]

You would need to escape the TT with quotes - 'TT'

 

[JHB]

Below is a link to how you've to set up the FindFirst, the way you've set up the criteria is wrong.
https://msdn.microsoft.com/en-us/library/office/ff194787.aspx

 

[exaccess]

Based on the two suggestions I tried Various alternatives such as

rs.FindFirst "[Tele].[Telecon] = 'TT'"

and

rs.FindFirst "[Tele].[Telecon] LIKE '*TT*'"

but I keep geting the same message with error number 3251.

 

[Minty]

How are you opening your recordset? - Can you post up the whole code ?

 

[exaccess]

 Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim rt As DAO.Recordset
    Set db = CurrentDb
    Set rs = CurrentDb.OpenRecordset("Tele")
    Set rt = CurrentDb.OpenRecordset("TelephoneAAA")

 

[sneuberg]

Not sure if it will help but I'd use the db variable you set like:

Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim rt As DAO.Recordset
    Set db = CurrentDb
    Set rs = db.OpenRecordset("Tele")
    Set rt = db.OpenRecordset("TelephoneAAA")

 

[Minty]

Not sure if it will help but I'd use the db variable you set like:

Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim rt As DAO.Recordset
    Set db = CurrentDb
    Set rs = db.OpenRecordset("Tele",[COLOR="red"]dbOpenSnapshot[/COLOR])
    Set rt = db.OpenRecordset("TelephoneAAA",[COLOR="Red"]dbOpenSnapshot[/COLOR])

Try adding the bit in red.

 

[arnelgp]

if TT is text:
rs.FindFirst "[TeleCon] = '" & TT & "'"

if TT is numeric:
rs.FindFirst "[TeleCon] = " & TT

 

[exaccess]

if TT is text:
rs.FindFirst "[TeleCon] = '" & TT & "'"

if TT is numeric:
rs.FindFirst "[TeleCon] = " & TT

Thank you it worked Charmingly.