InícioGalera queria saber se tem alguma função que verifica se os campos do form sofreram alguma modificação.
Grato.
Grato.
3 participantes
[Resolvido]Como verificar se os campos do form sofreram alguma alteração?
egpjdf- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 23
Registrado : 30/11/2011
Avelino Sampaio- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3900
Registrado : 04/04/2010
- Mensagem nº2
![[Resolvido]Como verificar se os campos do form sofreram alguma alteração? Empty](https://2img.net/i/empty.gif)
Re: [Resolvido]Como verificar se os campos do form sofreram alguma alteração?
Avelino Sampaio 9/5/2013, 16:19
Vc pode usar o evento "Em sujo" do formulário ou pode utilizar a função Dirt().
Sucesso!
Sucesso!
.................................................................................
Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces
Clique AQUI e analise o custo beneficio do material oferecido.
egpjdf- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 23
Registrado : 30/11/2011
- Mensagem nº3
Re: [Resolvido]Como verificar se os campos do form sofreram alguma alteração?
egpjdf 9/5/2013, 20:09
Boa, valeu Avelino Sampaio, deu certo. ficou assim:
- Código:
Public Function fecharJanela()
If Me.Form.Dirty = True Then 'Verifica se teve alguma alteração nos campos
If MsgBox("O regristro sofreu alteração, deseja salvar?", vbYesNo + vbInformation, "Atenção") = vbYes Then 'Exibe a mensagem
Me.dataAtualizacao.Value = Now 'Data da última Atualização
Me.quemAtualizou.Value = Environ("UserName") 'Nome do usuário que atualizou (Usuário logado no OS)
DoCmd.Save 'Salva o form
DoCmd.Close 'Fecha o form
Else 'Caso o vbYesNo seja = vbNo
Form.Undo 'Desfaz as alterações realizadas
DoCmd.Close 'Fecha o formulário
End If
Else
DoCmd.Close
End If
End Function
crysostomo gosta desta mensagem
Alexandre Neves- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8499
Registrado : 05/11/2009
- Mensagem nº4
Re: [Resolvido]Como verificar se os campos do form sofreram alguma alteração?
Alexandre Neves 9/5/2013, 20:26
![[Resolvido]Como verificar se os campos do form sofreram alguma alteração? MaximoAccess%20ResolvidoMarcado](https://dl.dropboxusercontent.com/u/24017093/MaximoAccess/MaximoAccess%20ResolvidoMarcado.PNG)
.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
Conteúdo patrocinado
- Mensagem nº5
Re: [Resolvido]Como verificar se os campos do form sofreram alguma alteração?
Conteúdo patrocinado
Tópicos semelhantes
» [Resolvido]Verificar se já existe registo, com base em dois campos no form
» [Resolvido]Gerar pergunta salvar alterações apenas se for feita alguma alteração.
» [Resolvido]Como saber se o MS Access está gerando alguma rotina de erro em segundo plano?
» [Resolvido]Como ocultar todos os campos em form simples nulos, vazios
» [Resolvido]Validar vários campos em um form para verificar se o novo registro é duplicado
» [Resolvido]Gerar pergunta salvar alterações apenas se for feita alguma alteração.
» [Resolvido]Como saber se o MS Access está gerando alguma rotina de erro em segundo plano?
» [Resolvido]Como ocultar todos os campos em form simples nulos, vazios
» [Resolvido]Validar vários campos em um form para verificar se o novo registro é duplicado