bollywood actresses hair loss hair rehab london contact number cheap hair extensions brazilian curly hair with closure hair extension fails human hair wigs black ponytail hairstyles 2018 sunny hair extensions uk hair extensions remy hair extensions weft koko one piece hair extensions clip hair
Registrar dados somente depois de clicar em Salvar

Registrar dados somente depois de clicar em Salvar

Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 2x no Cartão de Crédito. 

Veja como comprar e saiba mais sobre o material oferecido,  clicando aqui.

Open v3

 

Usuário Matheus:

Boa noite,

uma coisa que eu notei desde que comecei a programar em Access, é que basta entrar com um novo registro e digitar em apenas uma das textbox, que o registro já é salvo, sem a necessidade de clicar no botão salvar.

Gostaria de saber como faço para que os dados sejam registrados somente após clicar em Salvar.

Suporte:

Matheus, segue um exemplo.

Atente para o evento Antes de Atualizar do formulário. Veja que se não clicar no botão SALVAR, o comando UNDO  impedirá o salvamento do registro.

Private Sub Form_BeforeUpdate(Cancel As Integer)
    If Len(Me!Cliente & "") = 0 And booSalvar Then
       MsgBox "Informe o nome do cliente", vbInformation, "Nome do cliente"
       Cancel = True
       Me!Cliente.SetFocus
       booSalvar = False
       Exit Sub
    End If
    If booSalvar = False Then Me.Undo
    booSalvar = False
    fncPinta (0)
End Sub

Usuário Matheus:

Excelente, caro Avelino! Achei que para este tipo de caso, as linhas de código não seriam envolvidas, e sim, que tivesse alguma relação com a configuração no aplicativo.

Resolvido o meu problema! Obrigado!

Download

 


 

 


4 comentário(s)

Anderson Cruz Lima   12/03/2021 22:06:08

Galera sou novo e estou estudando o Access a uns 2 meses, estou com problema para implementar o código. Tanto faz eu colocar digitar a informação ou não ele salva do mesmo jeito.

'If Len(Me!txtDescricao & "") = 0 And btnSalvar Then
MsgBox "Informe os dados", vbInformation, "Dado"
Cancel = True
Me!txtDescricao.SetFocus
btnSalvar = False
Exit Sub
End If
If btnSalvar = False Then Me.Undo
btnSalvar = Fals

MARLO   11/02/2020 03:03:23

Renato, tem como postar um link explicando as regras de validação e como construir elas em um campo, e a obrigatoriedades do preenchimento desse campo?
Sou novo no mundo access e estou aprendendo, bgd..

Renato   03/06/2019 17:37:39

Esse comportamento só acontece se você não setar os campos obrigatórios na criação da tabela.
Sugestão: coloque o campo [nome] como obrigatório e o registro só será salvo quando essa informação for cadastrada.
PS.: Também é possível criar regras de validação para salvar o registro apenas quando o campo obedecer essa regra.

Espero ter ajudado

Arilson   16/03/2018 08:56:08

Excelente Grande dica Mestre...


Envie seu comentário: