[Resolvido]Exclusão de duplicação em tabela ao sai do campo data com aviso que foi excluído!

Boa noite pessoal!


Esse código é do Norberto!
Eu queria adapta-lo para que ao sair do campo data,
viesse á mensagem "Registro será excluido para evitar duplicidade"!
E aparecesse só o botão de ok na mensagem! E o foco retornasse para o campo data!


segue o código do Norberto!

Private Sub DataDoPedido_BeforeUpdate(Cancel As Integer)
On Error GoTo Trato
Dim QuantDestaData As Integer
QuantDestaData = Nz(DCount("*", "TabelaPedidos", "DataDoPedido = Forms!FormPedidos.DataDoPedido"), 0)
If QuantDestaData > 0 Then
If Not Confirmar("Já existe(m) " & QuantDestaData & " pedido(s) com esta data." & vbCrLf & _
"Deseja manter a data?") Then
Cancel = True
Else
End If
End If
Exit Sub
Trato: MsgBox Err.Description
End Sub

Obrigado pela atenção de todos!

Lupércio

Bom dia, Lupércio

Private Sub DataDoPedido_Exit(Cancel As Integer)
On Error GoTo Trato
Dim QuantDestaData As Integer
QuantDestaData = Nz(DCount("*", "TabelaPedidos", "DataDoPedido = Forms!FormPedidos.DataDoPedido"), 0)
If QuantDestaData > 0 Then
MsgBox "Já existe(m) " & QuantDestaData & " pedido(s) com esta data.")
Cancel = True
DataDoPedido.setfocus
End If
Exit Sub
Trato: MsgBox Err.Description
End Sub

Alexandre boa tarde!

Esta dando problema nessa linha!

MsgBox "Já existe(m) " & QuantDestaData & " pedido(s) com esta data.")
na adaptação que vc me enviou!

Grande Lupercio, o amigo já algum tempo nestas andanças do Access, deveria conseguir identificar essas pequenas falhas....

MsgBox ("Já existe(m) " & QuantDestaData & " pedido(s) com esta data.")

Para quem sabe andar é fácil, difícil é quando estamos Engatinhando!

Obrigado pelo alerta, e grato pela correção!

Tranquilaço.

Obrigado pelo retorno o forum agradece.