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


3 participantes

    [Resolvido]Autonumeração para Subformulário

    avatar
    vileman
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 580
    Registrado : 25/05/2011

    [Resolvido]Autonumeração para Subformulário Empty [Resolvido]Autonumeração para Subformulário

    Mensagem  vileman 15/1/2019, 22:44

    Boa noite!

    Após buscas neste fórum, encontrei apenas 2 tópicos relacionados ao que desejo:

    https://www.maximoaccess.com/t23853-autonumeracao-em-subformulario
    * Não foi concluído e nem resolvido

    https://www.maximoaccess.com/t14147-autonumeracao-em-subformularios
    * Este não funcionou, após tentar aplicar

    Seria o seguinte:
    Tenho um formulário principal: F06_Investigados com um subformulário: 'F061_EvidenciasLAF', que estão já estão vinculados pelos campos: 'CodInvestigado' (Pai) e 'IDInvestigado' (Filho), respectivamente.
    Criei um campo para a Tabela 'T061_EvidenciasLAF' usado no subformulário tipo Texto para iniciar sempre do 0001 junto com o ano corrente, para que os registros fiquem assim: 0001/2019, 0002/2019, 0003/2019, etc.

    O Campo chama-se 'NumEvidencia' (Texto, tamanho: 9) na propriedade Valor Padrão coloquei:
    =SeImed(DContar("[NumEvidencia]";"T061_EvidenciasLAF";"[AnoAtual]= " & Ano(Data()) & "")=0;("0001" & Direita(Ano(Data());4));Format((Esquerda(DMáx("[NumEvidencia]";"T061_EvidenciasLAF";"[AnoAtual]= " & Ano(Data()) & "");4)+1) & Direita(Ano(Data());4);"0000\/0000"))

    O campo 'AnoAtual' tem como valor padrão = Ano(Data()) para fazer a junção no campo acima

    Ao testar aconteceu assim: Ao incluir um novo registro no formulário principal, no subformulário já mostra no campo 'NumEvidencia' a numeração 0001/2019, pois está como valor padrão. Até aqui tudo certo.

    Problema: Mas, quando vou para o subformulário para inserir o 1º registro, o campo 'NumEvidencia' permanece com a numeração 0001/2019 e mostra abaixo outro registro com a numeração 0001/2019, mesmo ainda não tendo saído completamente do registro, ou seja, ainda não foi salvo.
    Quando vou para o 2º registro que seria a numeração 0002/2019, ele permanece com a numeração 0001/2019 mostrada quando da inserção do 1º registro.
    Quando vou para o 3º registro que seria a numeração 0003/2019, ele permanece com a numeração 0002/2019 mostrada quando da inserção do 2º registro.
    e assim por diante, ou seja, no subformulário está repetindo sempre a numeração anterior e depois que insere mais 1, mas continua repetindo sempre a numeração sempre com 2 registros iguais no campo 'NumEvidencia'

    Essa rotina quando é usada em um campo texto com valor padrão indicado acima funciona normalmente sem erros, mas no subformulário acontece o ocorrido acima.

    Se houver outra forma de fazer o que pretendo também resolve minha questão, ou ainda se tiver como corrigir o ocorrido acima.

    Segue imagem em anexo

    https://i.servimg.com/u/f22/19/70/85/28/fma_au11.jpg


    Última edição por vileman em 15/1/2019, 23:22, editado 3 vez(es) (Motivo da edição : Imagem em anexo)
    avatar
    evandropf
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 03/12/2015

    [Resolvido]Autonumeração para Subformulário Empty Re: [Resolvido]Autonumeração para Subformulário

    Mensagem  evandropf 16/1/2019, 01:39

    Boa noite não sei a ideia da sua aplicação, não seria mais viável vc lançar as evidencias em objetos desacoplados acima do subform.
    e e botoes de ação para atualizar na tabela do subform e atualizar tambem o subform,. ?

    att.
    Evandro
    avatar
    vileman
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 580
    Registrado : 25/05/2011

    [Resolvido]Autonumeração para Subformulário Empty Autonumeração para Subformulário

    Mensagem  vileman 16/1/2019, 22:02

    Boa noite.

    A ideia é simples: Um formulário com dados de uma pessoa investigada e um subformulário com as diversas evidencias que foram apreendidas dessa pessoa.

    Nunca usei rotinas com objetos desacoplados e acho que porisso não entendi exatamente o que você quis dizer com lançar em objetos desacoplados acima do suform.

    Se tiver um exemplo mesmo com objetos desacoplados que atenda minha demanda, posso dar uma olhada e tentar aprender como funciona
    avatar
    vileman
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 580
    Registrado : 25/05/2011

    [Resolvido]Autonumeração para Subformulário Empty Autonumeração para Subformulário

    Mensagem  vileman 19/1/2019, 15:24

    Se alguém mais puder ajudar além do Evandro, agradeço
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2115
    Registrado : 13/04/2012

    [Resolvido]Autonumeração para Subformulário Empty Re: [Resolvido]Autonumeração para Subformulário

    Mensagem  Fernando Bueno 21/1/2019, 02:13

    Boa noite;

    Veja esse exemplo, não é de minha autoria!

    Caso não solucione a dúvida poste seu banco que ficará mais fácil ajudar.
    Anexos
    [Resolvido]Autonumeração para Subformulário AttachmentContador.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (33 Kb) Baixado 39 vez(es)


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Autonumeração para Subformulário 16rzeq
    avatar
    vileman
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 580
    Registrado : 25/05/2011

    [Resolvido]Autonumeração para Subformulário Empty Autonumeração para Subformulário

    Mensagem  vileman 22/1/2019, 14:05

    Bom dia!

    Valeu Fernando, vou dar uma olhada e informo depois.
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2115
    Registrado : 13/04/2012

    [Resolvido]Autonumeração para Subformulário Empty Re: [Resolvido]Autonumeração para Subformulário

    Mensagem  Fernando Bueno 22/1/2019, 22:13

    Boa tarde;

    Ok bons estudos!


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Autonumeração para Subformulário 16rzeq
    avatar
    vileman
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 580
    Registrado : 25/05/2011

    [Resolvido]Autonumeração para Subformulário Empty Autonumeração para Subformulário

    Mensagem  vileman 23/1/2019, 11:44

    Bom dia, Fernando

    Funcionou.
    Já tinha visto essa rotina, o que faltava era ter colocado no evento correto: Antes de Inserir
    Também precisei fazer uma alteração em uma linha do Módulo: BasContador

    ContadorDeRegistros = StrZero(ContadorDeRegistros, 9) 'ALTERADO DE 10 PARA 9 (Devido tamanho do campo na tabela)

    Muito obrigado.
    Muita Paz.


    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2115
    Registrado : 13/04/2012

    [Resolvido]Autonumeração para Subformulário Empty Re: [Resolvido]Autonumeração para Subformulário

    Mensagem  Fernando Bueno 23/1/2019, 15:54

    Boa tarde;

    Que bom que resolveu o fórum agradece o retorno.


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Autonumeração para Subformulário 16rzeq

    Conteúdo patrocinado


    [Resolvido]Autonumeração para Subformulário Empty Re: [Resolvido]Autonumeração para Subformulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 14:30