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
Private Sub ListProjetos_DblClick() 프로 시저가 있는데 오류 메시지가 표시되지 않습니다. – user2898085
당신이 넣을 수 있다고 말하는가요? idtarefas = ListTarefas.Column (0, ListTarefas.ListIndex) Form_Projetos.List0.RowSource = "선택 사항 * [ID-Tarefa] LIKE '"& idtarefa & "'"& _ ";", CurrentProject.Connection, adOpenDynamic, adLockOptimistic With Form_Projetos – user2898085
연결된 테이블을 사용하고이를 참조하는 것이 좋습니다. 2013 년에 연결된 테이블을 권장합니다. – Fionnuala