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]Autonumeração para Subformulário

    avatar
    vileman
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  vileman em 15/1/2019, 22:44

    Boa noite!

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

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

    http://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) (Razão : Imagem em anexo)
    avatar
    evandropf
    Novato
    Novato

    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 em 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 100%

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

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

    Mensagem  vileman em 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 100%

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

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

    Mensagem  vileman em 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 100%

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

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

    Mensagem  Fernando Bueno em 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 14 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 100%

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

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

    Mensagem  vileman em 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 100%

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

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

    Mensagem  Fernando Bueno em 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 100%

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

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

    Mensagem  vileman em 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 100%

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

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

    Mensagem  Fernando Bueno em 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: 22/5/2019, 02:22