External Name Not Defined

[Ken]

Hi, I am getting an External Name Not Defined error on the
[Table1!GuarPersonName] portion of the below code:

Function FixName()
Dim Table1 As DAO.Recordset
Dim Table2 As DAO.Recordset
Dim MyDB As DAO.Database
' AnyString = "Hello World"

Dim LastName As String
Dim FirstName As String

Set MyDB = CurrentDb
Set Table1 = MyDB.OpenRecordset("GuarantorSelfPay")
' Set Table2 = MyDB.OpenRecordset("MainTable")


Table1.MoveFirst
Do While Table1.EOF = False

LastName = Trim(Left([Table1!GuarPersonName],
InStr([Table1!GuarPersonName], ",") - 1))
FirstName = Trim(Mid([Table1!GuarPersonName],
InStr([Table1!GuarPersonName, ",") + 1))
Table1.Edit
Table1.Update
Table1.MoveNext
Loop
End Function

Can someone help me resolve this issue? Thanks in advance.

KP

 

[Van T. Dinh]

Try

Table1.Fields("GuarPersonName")