Question

此代码是一个函数，而不是私有子例程。我突然得到了这个错误。[字段名称]。我没有在我的其他代码中得到错误，只是在这一个。这是我的完整代码没有枯燥的结尾部分，但我从行开始出现错误：

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

上述错误的可能原因是什么，以及如何将其删除？

Answer 1

将该代码放在表单的代码模块中。当您尝试在标准模块中使用Me时，您将始终获得＆＃34;无效使用Me关键字＆＃34; 投诉。

在Access＆＃中查看＆＃34;无效使用我的关键字＆＃34; 和＆＃34;我＆lt; keyword＆gt;＆＃34; 主题39;帮助系统了解更多细节。

Me关键字的使用无效

1 个答案: