[Resolvido]Zerar um campo de tabela

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!

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

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

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

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

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

Boa tarde, Alexandre.
Fiz o que você recomendou e enviei com Database7.zip.
Saudações,
Luiz

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

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

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

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

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

Resolvido.

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