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]
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]