2013-12-10 1 views
0

vba에서이 메시지가 나타납니다. 누군가이 질문을 분석 할 수 있습니까? 이 작업을 끝내야하지만,이 오류로 인해 어려워 보입니다. 당신은 인수 누락프로 시저 선언이 Access-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 문을 행 원본으로 받아들이는 경우 왜 그렇게 오래 걸리는지 알 수 없습니다.

+0

Private Sub ListProjetos_DblClick() 프로 시저가 있는데 오류 메시지가 표시되지 않습니다. – user2898085

+0

당신이 넣을 수 있다고 말하는가요? idtarefas = ListTarefas.Column (0, ListTarefas.ListIndex) Form_Projetos.List0.RowSource = "선택 사항 * [ID-Tarefa] LIKE '"& idtarefa & "'"& _ ";", CurrentProject.Connection, adOpenDynamic, adLockOptimistic With Form_Projetos – user2898085

+0

연결된 테이블을 사용하고이를 참조하는 것이 좋습니다. 2013 년에 연결된 테이블을 권장합니다. – Fionnuala