編譯錯誤MS Access SQL

Question

我得到一個編譯錯誤：「參數不是可選的」 基本上在這段代碼中，我試圖圍繞表格樣式自動分配。當代碼被調用時，它開始於AssignNullProjects()，當我得到的錯誤，GetNextAssignee是亮點中的一部分" & GetNextAssignee & "

我真的不知道如何解決它，這是我下面全碼：

Public Function AssignNullProjects() As Long 

    Dim db As dao.Database 
    Dim rs As dao.Recordset 
    Dim strSQL As String 

    Set db = CurrentDb 
    strSQL = "SELECT CFRRRID, [program], [language] 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 = " & [Forms]![CFRRR]![assignedby] & ", Dateassigned = #" & Now & "#, actiondate = #" & Now & "#, Workername = " & _ 
           [Forms]![CFRRR]![assignedto] & ", WorkerID = " & [Forms]![CFRRR]![assignedto] & " WHERE CFRRRID = " & rs!CFRRRID 

      db.Execute strSQL, dbFailOnError 
      rs.MoveNext 
     Wend 
    End If 

    rs.Close 
    db.Close 
    Set rs = Nothing 
    Set db = Nothing 

End Function 

Public Function GetNextAssignee(program As String, Language As String) As Long 
' Returns UserID as a Long Integer with the lowest [TS] value, 
' and updates same [TS] by incremented with 1. 

    Dim db As dao.Database 
    Dim rs As dao.Recordset 
    Dim strSQL As String 

    Set db = CurrentDb 
    strSQL = "SELECT TOP 1 WorkerID FROM attendance WHERE [Programs] LIKE '*" & program & "*' AND [Language] = '" & Language & "' AND [Status] = '" & Available & "' ORDER BY TS ASC" 
    Set rs = db.OpenRecordset(strSQL, dbOpenDynaset) 
    If Not rs.BOF And Not rs.EOF Then 
     'Found next assignee, update date/time stamp 
'  strSQL = "UPDATE tblUser SET TS = " & DMax("[TS]", tblUser) + 1 & " WHERE [WorkerID]= " & rs!workerid 
     strSQL = "UPDATE attendance SET TS = " & DMax("[TS]", "attendance") + 1 & " WHERE [WorkerID]= " & rs!workerid 
     db.Execute strSQL, dbFailOnError 
     GetNextAssignee = rs!workerid 
    Else 
     'Field TS has NO VALUE FOR ALL RECORDS! 
     'Code calling this function should check for a return of 0 indicating an error. 
     GetNextAssignee = 0 
    End If 

    rs.Close 
    db.Close 
    Set rs = Nothing 
    Set db = Nothing 

End Function 

Answer 1

當你調用這個函數，你必須提供2個參數（字符串值）：

Public Function GetNextAssignee(program As String, Language As String) As Long 

但構建UPDATE語句時，你叫塔沒有提供所需的參數t的函數：

strSQL = "UPDATE CFRRR SET assignedto = " & GetNextAssignee & ", assignedby = " 

這樣進出抱怨那些（串）參數是不可選的 - 你必須提供他們。當你給函數像這樣2串代碼應該編譯...

strSQL = "UPDATE CFRRR SET assignedto = " & GetNextAssignee("foo", "bar") & ", assignedby = " 

儘管代碼將與這些字符串編譯，功能可能不會返回你所需要的結果。因此用實際值代替foo和bar。