MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    [Resolvido]Localizar cadastro do cliente.

    avatar
    costa256
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  costa256 em 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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  Celso Roberto em 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


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    Celso Roberto
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  Celso Roberto em 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


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



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

    Respeito às Regras 100%

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

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

    Mensagem  costa256 em 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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

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

    olá..

    Ficamos felizes por ter ajudado.

    O fórum agradece o seu retorno

    Abraços e sucesso


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    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: 15/12/2019, 06:27