Findfirst problem with Environ as criteria.

[jtm013]

Hello,



I am having trouble with my usage of findfirst.
Code is shown below. This code will append the login name to the user log.

Set rst1 = CurrentDb.OpenRecordset("tLogUser", dbOpenDynaset)                
          If rst1.RecordCount <> 0 Then
                    With rst1
                        .FindFirst "[LocationName]" = Environ("ComputerName")
                        If Not .NoMatch Then
                            .Edit
                                .Fields("LoginName") = " & Me.cboEmployee.Value & "
                            .Update
                            Else
                            MsgBox "No Match Found.", vbInformation, "System Failure"
                        End If
                    End With
                End If

The problem is that when this is run it present a no match situation even though there is a corresponding record in the listed table "tlogUser"

[pbaldy]

Wrong syntax. Try

.FindFirst "[LocationName] = '" & Environ("ComputerName") & "'"

[pbaldy]

Oh, and more efficient:

Set rst1 = CurrentDb.OpenRecordset("SELECT * FROM tLogUser WHERE [LocationName] = '" & Environ("ComputerName") & "'", dbOpenDynaset)

If Not rst1.EOF

[jtm013]

Awesome! Thank you!!! Works great!

[pbaldy]

No problemo!