объявление процедуры не соответствует описанию события или процедуры с таким же именем в Access-Vba

Я получаю это сообщение в 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

vba ms-access ms-access-2013
person user2898085    schedule 10.12.2013    source источник

Ответы (1)


arrow_upward
1
arrow_downward

Вам не хватает аргумента, а не

 Private Sub ListTarefas_DblClick()

Но

 Private Sub ListTarefas_DblClick(Cancel As Integer)

Сообщение об ошибке типично для отсутствующего аргумента.

Я не понимаю, почему вы идете так далеко, когда Access принимает оператор SQL в качестве источника строки.

person Fionnuala    schedule 10.12.2013
comment
У меня есть другая процедура Private Sub ListProjetos_DblClick(), и я не получаю сообщения об ошибке. - person user2898085; 11.12.2013
comment
Вы хотите сказать, что я могу поставить idtarefas = ListTarefas.Column(0, ListTarefas.ListIndex) Form_Projetos.List0.RowSource = SELECT * FROM Equipas WHERE [ID-Tarefa] LIKE '&idtarefa&' & _ ;, CurrentProject.Connection, adOpenDynamic , adLockОптимистичный с Form_Projetos - person user2898085; 11.12.2013
comment
Я предлагаю вам использовать связанную таблицу и ссылаться на нее, Microsoft рекомендует связанные таблицы для 2013 года. - person Fionnuala; 11.12.2013