[Resolvido]Função Undo em Formulário desvinculado

Bom dia

Este código deteta a duplicidade mas num formulário desvinculado, não deixa continuar, mas não limpa o campo digitado ( Me.Undo), nem com Me.Nome_Cartão.Undo

Porquê ?

Private Sub Nome_Cartão_BeforeUpdate(Cancel As Integer)
If DCount("Nome_cartão", "Tabela_Cartoes", "Nome_Cartão = '" & Me!Nome_Cartão & "'") > 0 Then
MsgBox "O Nome já está Registado na Tabela Códigos. Verifique se há Duplicidade", vbInformation, "Cartão Registado"
Cancel = True
Me.Undo
End If
End Sub

Obrigado

Bom dia,

No lugar do me.undo, coloque:

Código:

Nome_Cartão = null

Abraço.

Cassio

Já tinha tentado

Obrigado

Boa tarde,

Colocar o código no evento após atualizar seria um impecílho pra voce?

Abraço.

Cassio

Funciona, mas não com o Me.Undo

Private Sub Nome_Cartão_AfterUpdate()
If DCount("Nome_cartão", "Tabela_Cartoes", "Nome_Cartão = '" & Me!Nome_Cartão & "'") > 0 Then
MsgBox "O Nome já está Registado na Tabela Códigos. Verifique se há Duplicidade", vbInformation, "Cartão Registado"
Me.Nome_Cartão.SetFocus
Me.Nome_Cartão = Null
Exit Sub
End If
End Sub

Bom dia,

O que exatamente gostaria de fazer?

Abraço.

Bom dia Cassio

A duvida é só na questão do comando Undo funcionar com tabelas vinculadas, e não nas tabelas desvinculadas .....(Acho eu)

Obrigado

Olá Assis,

Vi que já deu por resolvido, mas por teste tenta tratar o erro no evento antes de atualizar e ve se funciona.
Se você tirar o comentário da msgbox do erro ele vai avisar o erro, eu costumo deixar desabilitado

Código:

On Error GoTo TrataErro
   
    If DCount("Nome_cartão", "Tabela_Cartoes", "Nome_Cartão = '" & Me!Nome_Cartão & "'") > 0 Then
        MsgBox "O Nome já está Registado na Tabela Códigos. Verifique se há Duplicidade", vbInformation, "Cartão Registado"
        Cancel = True
        Me.Nome_Cartão.Undo
        Me.Nome_Cartão.SetFocus
        Exit Sub
        End If
       
Exit_Trataerro:
        Exit Sub
TrataErro:
        'MsgBox "Erro número: " & Err.Number & " - " & Err.Description & " (" & Me.Name & " - " & Me.ActiveControl.Name & " - BeforeUpdate).", vbCritical, "Titulo"
        Resume Next

Retorne

Abraços

Boa noite Celso

Mantem-se igual com a sua função.

Não executa o Undo e deixa continuar para o campo seguinte.

Obrigado

Talvez este

Código:

Private Sub Nome_Cartão_BeforeUpdate(Cancel As Integer)
    Dim rst As DAO.Recordset
   
    On Error GoTo TrataErro
       
    '----------Inicia a verificação de duplicidade
    Set rst = Me.RecordsetClone
    rst.FindFirst "[Nome_cartão] = '" & Me!Nome_Cartão & "'"
       
    If Not rst.NoMatch Then
        'avisa
        MsgBox "O Nome já está Registado na Tabela Códigos. Verifique se há Duplicidade", vbInformation, "Cartão Registado"
        Cancel = True
        Me.Nome_Cartão.Undo
        Me.Nome_Cartão.SetFocus
    Else
        'Me.Refresh
    End If
        rst.Close
        Set rst = Nothing
       
Exit_Trataerro:
        Exit Sub
TrataErro:
        'MsgBox "Erro número: " & Err.Number & " - " & Err.Description & " (" & Me.Name & " - " & Me.ActiveControl.Name & " - BeforeUpdate).", vbCritical, "Titulo"
        Resume Next

Abraços

Celso

Igual ao anterior.

Obrigado

olá..

Não estamos percebendo alguma coisa.

amanhã vejo com calma

Abraços

Olá Assis,

Também não consegui com Me.Undo em form desacoplado, só consegui desta maneira.

Código:

Private Sub Nome_Cartão_BeforeUpdate(Cancel As Integer)
If DCount("Nome_cartão", "Tabela_Cartoes", "Nome_Cartão = '" & Me!Nome_Cartão & "'") > 0 Then
MsgBox "O Nome já está Registado na Tabela Códigos. Verifique se há Duplicidade", vbInformation, "Cartão Registado"
Cancel = True
Me.Nome_Cartão.Text = ""
End If
End Sub


Abraços

Celso

E mesmo assim só com

On Error Resume Next, caso contrário o Me.Nome_Cartão.Text = "" , fica sublinhado a amarelo .......

Private Sub Nome_Cartão_BeforeUpdate(Cancel As Integer)
On Error Resume Next
If DCount("Nome_cartão", "Tabela_Cartoes", "Nome_Cartão = '" & Me!Nome_Cartão & "'") > 0 Then
MsgBox "O Nome já está Registado na Tabela Códigos. Verifique se há Duplicidade", vbInformation, "Cartão Registado"
Cancel = True
Me.Nome_Cartão.Text = ""
End If
End Sub