recordset problem: expression not defined in context

[zyborg33]

I am opening a form to allow the user to change names contained in a child table (multiple records)
and having the user enter the old name and the new name

Code below fails. NamePhone in the table projects - says its not defined in context - and yet that is the name of the field in the table projects. I am assuming its just something I have missed.

Private Sub cmdNewName_Click()
    Dim rsProjects As ADODB.Recordset
    Dim strSQL As String
 
    Set conDatabase = CurrentProject.Connection
    strSQL = "SELECT * FROM Projects WHERE NamePhone =" & oldname
 
    Set rsProjects = New ADODB.Recordset
       rsProjects.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
 
    With rsProjects
        Do While Not .EOF
            !NamePhone = Newname
            .Update
            .MoveNext
        Loop
    End With
 
 
    rsProjects.Close
    conDatabase.Close
    Set rsProjects = Nothing

[TheSmileyCoder]

Start by making sure at the top of your module you have the line:

Option Explicit

Exactly which line is failing?

[Rabbit]

If NamePhone is a string, then you need to surround its values in quotes.

[zyborg33]

line 9 rsprojects.open fails but NamePhone has no values when I put a watch on it

[zyborg33]

    rsProjects.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

fails
"namePhone" is a field in a projects table

[zyborg33]

Tried

Option Explicit 

and got an error on that line. Where should I put Option Explicit?

[zyborg33]

I put a watch on NamePhone and the value error is <Expression not defined in context> type empty form_nameform.cmdNewName_Click

NamePhone is a field on the table Projects. Do I need to open this table explicitly? I have not done that before in these routines that I have run.

[Rabbit]

Did you try my suggestion?

[zyborg33]

yes of course - error continues

[Rabbit]

And what does your newly modified code look like?