过程声明与 Access-Vba 中具有相同名称的事件或过程的描述不匹配

Posted 2023-05-07

【中文标题】过程声明与 Access-Vba 中具有相同名称的事件或过程的描述不匹配

【英文标题】：procedure declaration does not match description of event or procedure having the same name in Access-Vba

【发布时间】：2013-12-10 22:17:22

【问题描述】：

我在 vba 中收到此消息，有人可以分析这个问题吗？我必须完成这项工作，但是显示此错误很困难。

Private Sub ListTarefas_DblClick()
    Dim idtarefas As Integer
    Dim func As Integer
    Set rst = New ADODB.Recordset

    ShowEquipa

    Form_Projetos.List0.RowSource = ""
    idtarefas = ListTarefas.Column(0, ListTarefas.ListIndex)
    rst.Open "SELECT * FROM Equipas  WHERE [ID-Tarefa] LIKE '" & idtarefa & "' " & _
    ";", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
    With Form_Projetos
        .List0.RowSourceType = "Value List"

        Do Until rst.EOF
            func = rst.Fields("ID-Func").value
            .List0.AddItem (func)
            rst.MoveNext
        Loop
    End With

    rst.Close
End Sub

【参考方案1】：

你错过了一个论点，不是

 Private Sub ListTarefas_DblClick()

但是

 Private Sub ListTarefas_DblClick(Cancel As Integer)

错误消息是缺少参数的典型错误消息。

当 Access 接受 SQL 语句作为行源时，我不明白您为什么要花这么长时间。

【讨论】：

我有另一个过程 Private Sub ListProjetos_DblClick() 并且我没有收到错误消息。

你是说我可以把 idtarefas = ListTarefas.Column(0, ListTarefas.ListIndex) Form_Projetos.List0.RowSource = "SELECT * FROM Equipas WHERE [ID-Tarefa] LIKE '" & idtarefa & "'" & _ ";", CurrentProject.Connection, adOpenDynamic, adLockOptimistic With Form_Projetos

我建议您使用链接表并参考，Microsoft 建议 2013 年使用链接表。