此代码是一个函数,而不是私有(private)子例程。我突然在 Me.[此处的字段名称] 中遇到此错误。我在其他代码中没有遇到该错误,只是在这一代码中出现了该错误。这是我的完整代码,没有无聊的结束部分,但我从以下行开始收到错误:
Me.assignedby.Column(1)
Public Function AssignNullProjects() As Long
Dim db As dao.Database
Dim rs As dao.Recordset
Dim strSQL As String
assignedby = TempVars("user").Value
Set db = CurrentDb
strSQL = "SELECT CFRRRID FROM CFRRR WHERE assignedto Is Null"
Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)
If Not rs.BOF And Not rs.EOF Then
While Not rs.EOF
strSQL = "UPDATE CFRRR SET assignedto = " & GetNextAssignee & ", assignedby = " & Me.assignedby.Column(1) & ", Me.Dateassigned = #" & Now & "#, Me.actiondate = #" & Now & "#, Me.Workername = " & _
Me.assignedto.Column(0) & ", Me.WorkerID = " & Me.assignedto.Column(0) & " WHERE CFRRRID = " & rs!CFRRRID
db.Execute strSQL, dbFailOnError
rs.MoveNext
Wend
End If
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
导致上述错误的可能原因是什么,以及如何消除它?
最佳答案
将该代码放入表单的代码模块中。当您尝试在标准模块中使用 Me
时,您总会收到“Me 关键字无效使用”的投诉。
查看 Access 帮助系统中的“Me 关键字无效使用”和“Me <关键字>”主题以了解更多详细信息。
关于ms-access - Me 关键字的使用无效,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/30062063/