Bom dia a todos
Estou tentando executar uma consulta de ação pelo vba definindo o parametro, mas eu não to conseguindo. O erro que ta é: Item não encontrado na coleção.
Só q eu ja tentei de tudo para o vba achar o campo e não consigo.
Vcs podem me falar o q eu estou errando? eis o q eu fiz
usando Access 2007
Grato a todos
Estou tentando executar uma consulta de ação pelo vba definindo o parametro, mas eu não to conseguindo. O erro que ta é: Item não encontrado na coleção.
Só q eu ja tentei de tudo para o vba achar o campo e não consigo.
Vcs podem me falar o q eu estou errando? eis o q eu fiz
- Código:
sub excluirCusto(criterioCodigo as long, criterioControle as Integer)
dim consulta as QueryDef
dim bc as Database
set bc = set Currentdb()
set consulta = bc.QueryDefs("DeleteCusto")
'Tentativa 1
consulta.Parameters("Codigo") = criterioCodigo 'Item Nao Encontrado na colecao
consulta.Parameters("Controle") = criterioControle ''Item Nao Encontrado na colecao
'Tentativa 2
consulta.Parameters(consulta!Codigo) = criterioCodigo 'Item Nao Encontrado na colecao
consulta.Parameters(consulta!Controle) = criterioControle ''Item Nao Encontrado na colecao
'Tentativa 3
consulta.Parameters(consulta.Fields("Codigo")) = criterioCodigo 'Item Nao Encontrado na colecao
consulta.Parameters(consulta.Fields("Controle")) = criterioControle ''Item Nao Encontrado na colecao
consulta.Execute
set bc = nothing
set consulta = nothing
end sub
usando Access 2007
Grato a todos