invalid reference
Hi, there:
I got an error message as "You entered an expression that has an invalid reference to the property Page". The Page is the name of one field in my table. The code is here:
Private Sub DupAF()
'Dim rs As Recordset
Set rs = Form.RecordsetClone
'Set rs = db.OpenRecordset("select * from [" & Me.RecordSource & "]")
If Not (rs.EOF And rs.BOF) Then
rs.MoveLast
FieldOffice = rs![FieldOffice]
Project = rs![Project]
Segment = rs![Segment]
UniqueIdentifier = rs![UniqueIdentifier]
Page = rs![Page]
TotalPages = rs![TotalPages]
rs.Close
Set rs = Nothing
End If
End Sub
By the way, the data type of Page and TotalPages are exactly same, but only Page got the error.
Is there anybody can find problem for me?
Your kind help is so appreciated!
NeoCat
|