Ms access Me关键字的使用无效

此代码是一个函数，而不是专用子例程。我突然发现了这个错误。[这里是字段名]。我没有在我的其他代码中得到那个错误，只是在这个代码中。这是我的完整代码，没有无聊的结尾部分，但我从一行开始就得到了错误：

Me.assignedby.Column（1）

---

上述错误的可能原因是什么？如何删除它？

将该代码放入表单的代码模块中。当您试图在标准模块中使用

Me

时，您总会收到“Me关键字使用无效”的投诉

---

有关更多详细信息，请查看Access帮助系统中的“无效使用Me关键字”和“Me”主题。

您的一些Me似乎在引号中。编辑：他们肯定是。一般来说，Me.[fieldname]是对Me的无效使用。这是没有意义的，因为我在另一个宏中使用了类似的代码，而且效果很好。只是这里不起作用。不确定这是因为这是一个公共函数而不是私有子函数。请使用以下内容替换更新：“UPDATE CFRRR SET assignedto=“&GetNextAsignee&”，assignedby=“&Me.assignedby.Column（1）&”，Dateassigned=#“&Now&“，actiondate=#”&Now&“#，Workername=“&Me.assignedto.Column（0）&”“，WorkerID=“&Me.assignedto.Column（0）&”WHERE CFRRRID=“&rs！CFRRRID db.Execute strSQL，dbfailonerror让我知道它是如何运行的。我已经很多年没有使用VB（或VBA）了，但我认为您的问题是将我包括在硬编码部分（字符串文字）不，这不起作用。仍然得到相同的错误。我在这里得到错误：

“&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