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]Zerar um campo de tabela

    avatar
    lerasmo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 07/06/2022

    [Resolvido]Zerar um campo de tabela Empty [Resolvido]Zerar um campo de tabela

    Mensagem  lerasmo 8/6/2022, 15:03

    Bom dia! Pensei que já tivesse postado aqui, mas o longo tempo de ausência (eita pandemia!) me deixaram enferrujado.
    Tenho o código abaixo:

    Private Sub Form_BeforeInsert(Cancel As Integer)
    If DCount("*", Cadastro") < 1 Then
    Me.Ref =1
    Else
    Me.Ref = DMax("Ref", "Cadastro") + 1
    End If
    End Sub

    Serve para numerar automáticamente o campo Ref.
    No entanto estou querendo reiniciar a numeração quando mudar o ano
    que é transmitida pelo Forms![Menu de Controle]![IAno].
    O campo na tabela é Ano.
    Agradeço a atenção!
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2605
    Registrado : 13/12/2016

    [Resolvido]Zerar um campo de tabela Empty Re: [Resolvido]Zerar um campo de tabela

    Mensagem  Alexandre Fim 8/6/2022, 16:06

    Bom dia,

    Seja bem-vindo ao fórum.

    Segue o código:

    Código:

    Private Sub Form_BeforeInsert(Cancel As Integer)

        If DCount("*", "Cadastro", "Ano = " & Forms![Menu de Controle]![IAno] & "") < 1 Then
            Me.Ref = 1
        Else
            Me.Ref = DMax("Ref", "Cadastro", "Ano = " & Forms![Menu de Controle]![IAno] & "") + 1
        End If

    End Sub


    É isso
    Att,
    FIM


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Zerar um campo de tabela Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    lerasmo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 07/06/2022

    [Resolvido]Zerar um campo de tabela Empty Resolvido problema

    Mensagem  lerasmo 9/6/2022, 14:08

    Bom dia, Alexandre.
    Funcionou às mil maravilhas!
    Só que ocorreu um problema, o campo Ano não está sendo gravado.
    Ele exibe no formulário mas não grava. A origem é a mesma Forms![Menu de Controle![IAno].
    Será que devo declarar como variável Global? Não sei fazer isso.

    Saudações,
    Luiz
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2605
    Registrado : 13/12/2016

    [Resolvido]Zerar um campo de tabela Empty Re: [Resolvido]Zerar um campo de tabela

    Mensagem  Alexandre Fim 9/6/2022, 14:21

    Luiz,
    Se a sua intenção é resetar a numeração quando muda o Ano, a tabela deve ter, ao menos, um campo data para que sirva como referencia para capturar o ano.
    Por gentileza, disponibilize uma cópia do seu bd, somente objetos (tabelas/consultas/formulários e etc.) envolvidos no problema, para análise e solução do problema.

    Grato.

    Att,
    FIM


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Zerar um campo de tabela Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    lerasmo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 07/06/2022

    [Resolvido]Zerar um campo de tabela Empty Re: [Resolvido]Zerar um campo de tabela

    Mensagem  lerasmo 9/6/2022, 14:51

    Bom dia, Alexandre.
    Estou tentando enviar o bd.
    Não sei se terei sucesso.
    É, parece que o meu bd, mesmo zipado é maior que o máximo permitido.
    Abaixo segue a minha tabela. Veja que existe o campo ano.


    NRef Ref Ano Interessado Processo Tipo Histórico Data
    1 1 22 BBT/BTEB DAEE - EXP - 2022 Pedido de Material Programas Técnicos elaborados pela empresa Healthwork ano 20201/2022 e outros assuntos relacionados à medicina e segurança
    2 2 22 Edifício Residencial EBEL Fiscalização Arquivado BBT 01/05/2022
    3 3 22 Yoshino Nakasato Pront. 7893 DAEE-EXP-2022/0446 Substituição de férias responsável pela BTEB Data de Produção 03/03/2022 01/05/2022
    4 4 22 Fazenda Boa Vista DAEE-PRC-2022/00510 Fiscalização "Aplicada Advertência de 15 dias.
    Aplicada Multa de 100 UFESPs." 01/05/2022
    5 5 22 Kumiang Administradora de Bens e Participações Ltda. Fiscalização Aplicada Advertência de 30 dias. 01/05/2022
    6 6 22 MRV Engenharia e Participações Fiscalização Nenhuma irregularidade encontrada 01/05/2022
    7 7 22 Escritório de Apoio de Bauru - BTEB Requerimento Pedido de Material 01/05/2022
    8 8 22 Escritório de Apoio de Bauru - BTEB DAEE-RQS-2002/00015-A Pedido de Material 01/05/2022
    9 9 22 Belvedere AGBF Empreendimentos Participações Ltda. Fiscalização Foi Aplicado advertência de 30 dias. 01/05/2022
    10 10 22 João Carlos Souza dos Reis DAEE-PRC 2022/00510 Fiscalização Denúncia Ministério Público de Lençóis Paulista/SP 01/05/2022
    11 15 22 MRV Engenharia e Participações. Fiscalização Arquivamento do Processo. 01/05/2022
    12 12 22 Ministério Público do Estado de São Paulo DAEE-EXP- 2022/01061 Fiscalização 01/05/2022
    13 13 22 José Wilson Petenazi DAEE-PCR - 2022/0720 Fiscalização Fiscalização com aplicação de Advertência. 01/05/2022
    14 14 22 Mayara Cristina de Almeida DAEE-PCR- 2022/00722 Fiscalização Fiscalização com aplicação de Advertência 01/05/2022

    Saudações,
    Luiz

    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2605
    Registrado : 13/12/2016

    [Resolvido]Zerar um campo de tabela Empty Re: [Resolvido]Zerar um campo de tabela

    Mensagem  Alexandre Fim 9/6/2022, 15:05

    Luiz,

    Pra vc mandar somente as partes envolvidas com o problema, vc deve criar um bd novo e copia+colar as tabelas/forms do sistema atual para este novo.
    Sacou?
    E ai vc manda zipado este banco que criou.

    OU

    Compartilhar seu banco através do Google Drive, Dropbox e etc, e disponibilizar o link aqui pra que possamos baixá-lo.

    Att,
    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Zerar um campo de tabela Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    lerasmo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 07/06/2022

    [Resolvido]Zerar um campo de tabela Empty Banco de dados compactado

    Mensagem  lerasmo 9/6/2022, 18:05

    Boa tarde, Alexandre.
    Fiz o que você recomendou e enviei com Database7.zip.
    Saudações,
    Luiz
    Anexos
    [Resolvido]Zerar um campo de tabela AttachmentDatabase7.zip
    Cópia do InfSPSP
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.2 Mb) Baixado 3 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2605
    Registrado : 13/12/2016

    [Resolvido]Zerar um campo de tabela Empty Re: [Resolvido]Zerar um campo de tabela

    Mensagem  Alexandre Fim 9/6/2022, 19:47

    Luiz,

    Fiz alguns ajustes necessários ao teu sistema.
    Abra o código e verifique o que cada rotina executa. Essas rotinas também estão comentadas, para melhor entendimento.
    Obs: O Form_Cadastro não possui nenhuma validação quanto ao preenchimento dos campos, e quando ele é executado através do form "Menu de Controle" , o sistema gera um registro na tabela, o que pode gerar registros em branco também.

    É isso
    Segue versão do sistema.

    Att,
    FIM


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Zerar um campo de tabela Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    lerasmo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 07/06/2022

    [Resolvido]Zerar um campo de tabela Empty Re: Zerar campo de tabela

    Mensagem  lerasmo 10/6/2022, 12:33

    Bom dia, Alexandre!
    Melhorou bastante e está funcionando.
    Não entendi a sua Observação:
    Obs: O Form_Cadastro não possui nenhuma validação quanto ao preenchimento dos campos, e quando ele é executado através do form "Menu de Controle" , o sistema gera um registro na tabela, o que pode gerar registros em branco também.
    Será esta a razão de quando eu avanço para um novo registro o mecanismo não funciona?
    Saudações,
    Luiz
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2605
    Registrado : 13/12/2016

    [Resolvido]Zerar um campo de tabela Empty Re: [Resolvido]Zerar um campo de tabela

    Mensagem  Alexandre Fim 10/6/2022, 13:55

    Luiz bom dia
    O formulário de cadastro não possui regra e validação para preenchimento dos campos, e essa rotina deve ser executada antes de gravar na tabela. Dessa forma, vc mantem a integridade dos dados.
    Isso é feito no VBA.
    Vou ajustar esse form com as devidas validações e depois mando a versão nova, ok!

    É isso
    Att,
    Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Zerar um campo de tabela Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    lerasmo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 07/06/2022

    [Resolvido]Zerar um campo de tabela Empty Re: [Resolvido]Zerar um campo de tabela

    Mensagem  lerasmo 10/6/2022, 14:17

    Obrigado Alexandre!
    A sua ajuda está sendo importantíssima.
    Luiz

    Alexandre Fim gosta desta mensagem

    avatar
    lerasmo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 07/06/2022

    [Resolvido]Zerar um campo de tabela Empty Zerar um campo de tabela

    Mensagem  lerasmo 15/6/2022, 14:46

    Bom dia Alexandre,
    Deixei no Form_Cadastro somente os botões de Salvar, Excluir e Fechar. Então entro um registro, salvo e fecho. Ele retorna ao Menu de Controle e seleciono o botão Cadastro e incluo novo registro.
    Agora tá funcionando belezinha.
    Agradecimentos pelo grande auxílio.
    Luiz
    avatar
    lerasmo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 37
    Registrado : 07/06/2022

    [Resolvido]Zerar um campo de tabela Empty Re: [Resolvido]Zerar um campo de tabela

    Mensagem  lerasmo 15/6/2022, 14:47

    Resolvido.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2605
    Registrado : 13/12/2016

    [Resolvido]Zerar um campo de tabela Empty Re: [Resolvido]Zerar um campo de tabela

    Mensagem  Alexandre Fim 15/6/2022, 16:21

    Luiz,

    Segue a nova versão com validações de preenchimento e os ajustes necessários para integridade dos dados.
    Desculpe pela demora.

    Abraços
    FIM


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Zerar um campo de tabela Setinf11
    Sistemas e Tecnologia Ltda

      Data/hora atual: 1/10/2022, 16:32