MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Definir Parametros Consulta no VBA

    ronaldojr1
    ronaldojr1
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 01/08/2011

    [Resolvido]Definir Parametros Consulta no VBA Empty Definir Parametros Consulta no VBA

    Mensagem  ronaldojr1 1/4/2013, 16:01

    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

    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

    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Definir Parametros Consulta no VBA Empty Re: [Resolvido]Definir Parametros Consulta no VBA

    Mensagem  Leandro 1/4/2013, 17:53

    Veja esse link: http://maximoaccess.forumeiros.com/t2778-resolvidoerro-3265-iten-nao-econtrado-nesta-colecao

    ronaldojr1
    ronaldojr1
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 01/08/2011

    [Resolvido]Definir Parametros Consulta no VBA Empty Re: [Resolvido]Definir Parametros Consulta no VBA

    Mensagem  ronaldojr1 1/4/2013, 18:51

    obrigado pela resposta leandro, mas esse link não me ajudou muito.

    a consulta q eu quero definir o parametro é do tipo exclusão.
    e ela nao tem nenhum relacionamento, ou seja, é uma consulta que sua fonte é apenas uma tabela.

    obrigado e toda a ajuda é bem vinda
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Definir Parametros Consulta no VBA Empty Re: [Resolvido]Definir Parametros Consulta no VBA

    Mensagem  Leandro 1/4/2013, 19:11

    Vocâ ativou a biblioteca DAO nas suas referências?

    ronaldojr1
    ronaldojr1
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 01/08/2011

    [Resolvido]Definir Parametros Consulta no VBA Empty Re: [Resolvido]Definir Parametros Consulta no VBA

    Mensagem  ronaldojr1 1/4/2013, 21:08

    sim, pois no mesmo modulo possuo outras funções que usam o a biblioteca DAO
    ronaldojr1
    ronaldojr1
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 01/08/2011

    [Resolvido]Definir Parametros Consulta no VBA Empty Re: [Resolvido]Definir Parametros Consulta no VBA

    Mensagem  ronaldojr1 8/4/2013, 14:43

    E ai galera só passei pra avisar que depois de briga com o access consegui resolver o meu problema.

    o que faltava para o código dar errado é criar o parametro na consulta, e o mesmo nome que defini no parametro eu tenho q colocar no código. exemplo:

    na consulta colocar o parametro.

    no design da consulta > criterio escolha o campo que vai ser usado como criterio
    e digite o parametro entre colchete. exemplo: o campo chama Placa e o criterio eu defini desse jeito "[criterioPlaca]" ou "Como [criterioPlaca]".

    no codigo vc define o mesmo criterio que foi criado. exemplo:

    sub consultaX()
    ...
    consulta.Parameters("criterioPlaca") = x
    ...
    end sub

    Observação
    Se o criterio da consulta for igual ao proprio campo ou o nome de alguma tabela contida na consulta a consulta não vai funcionar corretamente e consequentemente o código não vai funcionar.

    Conteúdo patrocinado


    [Resolvido]Definir Parametros Consulta no VBA Empty Re: [Resolvido]Definir Parametros Consulta no VBA

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 09:00