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]Localizar cadastro do cliente.

    avatar
    costa256
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 22/01/2019

    [Resolvido]Localizar cadastro do cliente. Empty [Resolvido]Localizar cadastro do cliente.

    Mensagem  costa256 1/10/2019, 13:43

    Meus amigos,

    Estou me tornando sócio do fórum e consumidor de suas preciosas ajudas.

    Como eu já disse eu outros posts, estou criando um BD para uso em meu setor de trabalho.

    Esse BD consiste em registrar cadastros de contatos importantes para o meu setor.

    O BD está configurado para gerar o código de forma que identifique o tipo de cadastro como: (EMP-# para empresas, GRP-# para grupos e PUB-# para público).  Até aí tudo bem, funcionando perfeitamente graças a ajuda de todos vocês (Com essa função:   Me.Código = "EMP-" & DCount("*", "tabela1") + 1      No BeforInsert

    Entretanto, meu BD possui um form de busca, onde eu digito um valor em um campo (contém, não contém, inicia com, termina com), e ele lista os resultados.

    Quando os códigos eram gerados continuamente (1, 2, 3, ...) o form de pesquisa possuía uma função de dblclick onde o registro selecionado era levado para o form de cadastro, através da função abaixo:

    Criterio = "[CódigoCadastro]=" & Forms![frm_Buscaavancada]![frm_sub_Listaresult]![Código]

    DoCmd.OpenForm "frm_Cadastro", , , Criterio, , acWindowNormal

    DoCmd.SelectObject acForm, "frm_Buscaavancada"

    DoCmd.Close


    Obs. frm_Cadastro é o form para o cadastro dos contatos, e o frm_Buscaavancada é o form de pesquisa

    Mas... a partir do momento que eu modifiquei o código, e deixou de ser 1, 2, 3, .. e passou a ser EMP-1, EMP-2.... GRP-1... GRP-2... PUB-1, PUB-2...  a função não funciona mais.. Leva para o frm_Cadastro mas gera o erro, com a mensagem  "Inserir valor do parâmetro" e abaixo sempre varia com EMP, GRP ou PUB conforme a tabela carregada.


    Enfim... a função parou de funcionar quando modifiquei o código.

    Alguém pode me ajudar?

    to enviando o 2 BDs, um com o código automático, onde a função dblclick retorna o registro para o frm cadastro - funcionando

    E outro com o código gerado por concatenação de letra + 1, em modo texto, e que a função dblclick não funciona e retorna erro para inserir parâmetro.

    Link do google drive

    [https://drive.google.com/file/d/1x8ol6l69xlrDReyUOGBMD-by_1hKDlLm/view?usp=sharing]
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1076
    Registrado : 01/03/2014

    [Resolvido]Localizar cadastro do cliente. Empty Re: [Resolvido]Localizar cadastro do cliente.

    Mensagem  Celso Roberto 1/10/2019, 19:33

    Olá..

    Acreditando que o campo do código tenha sido alterado para texto

    altere esta linha para

    Criterio = "[CódigoCadastro]='" & Forms![frm_Buscaavancada]![frm_sub_ListaResult]![Código] & "'"

    ou para

    Criterio = "[CódigoCadastro]= Forms![frm_Buscaavancada]![frm_sub_ListaResult]![Código]"

    ou para

    Criterio = "[CódigoCadastro]='" & Me.Código & "'"

    Aguardamos retorno


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1076
    Registrado : 01/03/2014

    [Resolvido]Localizar cadastro do cliente. Empty Re: [Resolvido]Localizar cadastro do cliente.

    Mensagem  Celso Roberto 3/10/2019, 20:57

    Olá..

    Conseguiu resolver?

    Caso sim, por favor encerre o tópico
    Caso não, vamos dar continuidade

    Continuamo aguardando o seu retorno


    Abraços


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    costa256
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 22/01/2019

    [Resolvido]Localizar cadastro do cliente. Empty Re: [Resolvido]Localizar cadastro do cliente.

    Mensagem  costa256 9/10/2019, 15:32

    Amigo Celso.

    O campo realmente foi modificado para texto.

    Sua ajuda me foi de total importância.

    Modifiquei o "Critério" conforme sua orientação, e foi perfeito.

    Obrigado mais uma vez
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1076
    Registrado : 01/03/2014

    [Resolvido]Localizar cadastro do cliente. Empty Re: [Resolvido]Localizar cadastro do cliente.

    Mensagem  Celso Roberto 9/10/2019, 19:33

    olá..

    Ficamos felizes por ter ajudado.

    O fórum agradece o seu retorno

    Abraços e sucesso


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

    Conteúdo patrocinado


    [Resolvido]Localizar cadastro do cliente. Empty Re: [Resolvido]Localizar cadastro do cliente.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 01:17