[Resolvido]Detetar a alteração de um campo no clique do botão

Boa dia Amigos

Estou a tentar detetar se um campo foi alterado ao clicar no Comando12.

E o que está a acontecer é o seguinte.

Se o campo "txtContribuinte", estiver nulo e alterar para outro valor, a deteção de alterado não acontece.

Se o campo "txtContribuinte", Não estiver nulo e alterar para outro valor, a deteção de alterado é detetado

Alguém ajuda para detetar nas duas situações


Private Sub Comando12_Click()

If Me.txtContribuinte <> Me.txtContribuinte.OldValue Then

 If MsgBox("O Contribuinte do Cliente " & Me.Nome & " Foi Alterado Confirma Alteração ?", vbYesNo + vbQuestion, "Aviso") = vbNo Then

 Me.Undo  ' Desfaz a alteração

End If

End sub

Obrigado

Olá Assis,

Seguindo o seu código, teste assim:

Código:

Private Sub Comando12_Click()
    If Len(Me.txtContribuinte.OldValue & "") <> 0 Then
        If Me.txtContribuinte <> Me.txtContribuinte.OldValue Then
            If MsgBox("O Contribuinte do Cliente " & Me.nome & " Foi Alterado Confirma Alteração ?", vbYesNo + vbQuestion, "Aviso") = vbNo Then
                Me.Undo  ' Desfaz a alteração
            End If
        End If
    End If
End Sub

Nota, indentação nada e nem compilou se nao verificava que no codigo faltava um End If.

Abraço

Teixeira

Eis o meu exemplo.

Obrigado

Código:

If IsNull(Me.txtContribuinte.OldValue) <> Me.txtContribuinte Or Me.txtContribuinte.OldValue <> Me.txtContribuinte Then
  If MsgBox("O Contribuinte do Cliente " & Me.Nome & " " & vbNewLine & "Foi Alterado Confirma Alteração ?", vbYesNo + vbQuestion, "Aviso") = vbNo Then

  Me.Undo  ' Desfaz a alteração.
Exit Sub
End If

Boa tarde JPaulo

Testou ?

É que com a sua dica, só o facto de abrir o formulário e fechar sem alterar nada, informa que foram feitas alterações.

Olá;

Não testei não, vou tentar testar ainda hoje.

No inicio do VBA do form;

Código:

Dim intChecka%

No procedimento ao alterar do campo;

Código:

Private Sub txtContribuinte_Change()
'se digitar algo, coloca 1 na variavel
    intChecka = 1
End Sub

No seu botão de Sair;

Código:

Private Sub Comando12_Click()

If intChecka = 1 Then
   
    If Me.txtContribuinte <> IsNull(Me.txtContribuinte.OldValue) = True Or Me.txtContribuinte <> Me.txtContribuinte.OldValue Then
      If MsgBox("O Contribuinte do Cliente " & Me.Nome & " " & vbNewLine & "Foi Alterado Confirma Alteração ?", vbYesNo + vbQuestion, "Aviso") = vbNo Then
   
          Me.Undo  ' Desfaz a alteração.
        Exit Sub
        Else
            If DCount("Contribuinte", "Clientes", "Contribuinte = '" & Me.txtContribuinte & "'") > 0 Then
              MsgBox "O Nº de Contribuinte " & txtContribuinte & " " & vbNewLine & "Já Existe na Tabela de Clientes." & vbNewLine & "Não Será Alterado.", vbInformation, "Aviso"
              Me.Undo  ' Desfaz a alteração.
              Me.Foco.SetFocus
              Exit Sub
            End If
      End If
    End If
Else
    If Me.txtContribuinte <> Me.txtContribuinte.OldValue Then
      If MsgBox("O Contribuinte do Cliente " & Me.Nome & " " & vbNewLine & "Foi Alterado Confirma Alteração ?", vbYesNo + vbQuestion, "Aviso") = vbNo Then
        Me.Undo  ' Desfaz a alteração.
        Exit Sub
        Else
            If DCount("Contribuinte", "Clientes", "Contribuinte = '" & Me.txtContribuinte & "'") > 0 Then
              MsgBox "O Nº de Contribuinte " & txtContribuinte & " " & vbNewLine & "Já Existe na Tabela de Clientes." & vbNewLine & "Não Será Alterado.", vbInformation, "Aviso"
              Me.Undo  ' Desfaz a alteração.
              Me.Foco.SetFocus
              Exit Sub
            End If
        End If
    End If
End If

intChecka = 0

DoCmd.Close acForm, "TabClientes"
End Sub

Boa noite JPaulo

Só tem um senão ……

Veja a imagem e teste por favor no exemplo que postei.




Obrigado

Olá a todos,

Assis, não testei nada (estou no tablet), mas pelo que descreve, tente colocar antes dos três "exit sub" a instrução:

intChecka = 0

E teste

Abraço

Assis, existem coisas complicadas, mas também existem coisas simples, é só nós não complicar-mos o simples;

Código:

Private Sub Comando12_Click()

If intChecka = 1 Then
   
    If Me.txtContribuinte <> IsNull(Me.txtContribuinte.OldValue) = True Or Me.txtContribuinte <> Me.txtContribuinte.OldValue Then
      If MsgBox("O Contribuinte do Cliente " & Me.Nome & " " & vbNewLine & "Foi Alterado Confirma Alteração ?", vbYesNo + vbQuestion, "Aviso") = vbNo Then
   
          Me.Undo  ' Desfaz a alteração.
        intChecka = 0
        DoCmd.Close acForm, "TabClientes"
        Else
            If DCount("Contribuinte", "Clientes", "Contribuinte = '" & Me.txtContribuinte & "'") > 0 Then
              MsgBox "O Nº de Contribuinte " & txtContribuinte & " " & vbNewLine & "Já Existe na Tabela de Clientes." & vbNewLine & "Não Será Alterado.", vbInformation, "Aviso"
              Me.Undo  ' Desfaz a alteração.
              Me.Foco.SetFocus
              intChecka = 0
                DoCmd.Close acForm, "TabClientes"
            End If
      End If
    End If
Else
    If Me.txtContribuinte <> Me.txtContribuinte.OldValue Then
      If MsgBox("O Contribuinte do Cliente " & Me.Nome & " " & vbNewLine & "Foi Alterado Confirma Alteração ?", vbYesNo + vbQuestion, "Aviso") = vbNo Then
        Me.Undo  ' Desfaz a alteração.
        intChecka = 0
        DoCmd.Close acForm, "TabClientes"
        Else
            If DCount("Contribuinte", "Clientes", "Contribuinte = '" & Me.txtContribuinte & "'") > 0 Then
              MsgBox "O Nº de Contribuinte " & txtContribuinte & " " & vbNewLine & "Já Existe na Tabela de Clientes." & vbNewLine & "Não Será Alterado.", vbInformation, "Aviso"
              Me.Undo  ' Desfaz a alteração.
              Me.Foco.SetFocus
              intChecka = 0
                DoCmd.Close acForm, "TabClientes"
            End If
        End If
    End If
End If

intChecka = 0
DoCmd.Close acForm, "TabClientes"
End Sub

Olá a todos...

Minha sugestão...

No inicio do Modulo vba acrescente a variável:

Código:

Option Compare Database
Dim Contr As String

No evento ao carregar o form acrescente este no inicio do código existente:

Código:

On Error Resume Next
Contr = Me.txtContribuinte

No botão Sair:

Altere este:

Código:

'If Me.txtContribuinte.OldValue <> Me.txtContribuinte Then

Por este:

Código:

If Contr <> Me.txtContribuinte Then

Aguardamos

Abraços

Obrigado JPaulo

Matou o gato …… como sempre.


Celso Roberto, vou testar e depois retorno Obrigado

Fico feliz.

Olá...

Silvio, eu não tinha testado o código do JPaulo, mas fazendo isso verifiquei que a diferença é mínima.
A única diferença é que no do Jpaulo ele da a mensagem por qualquer alteração, mesmo se digitar o mesmo que já estava para o cliente e no meu só da a mensagem se for diferente do existente.

Mas isto é apenas detalhes para cada necessidade.

Abraços para ti e ao nosso mestre JPaulo