Amigo,
Estou fazendo o teste com este código:
Private Sub cliente_nome_BeforeUpdate(Cancel As Integer)
Dim Busca As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
Busca = Me.cliente_nome.Value
stLinkCriteria = "cliente_nome= '" & Busca & "'"
If DCount("cliente_nome", "tb_cliente", stLinkCriteria) > 0 Then
Me.Undo
MsgBox "Atenção o registro " _
& Busca & " já existe." _
& vbCr & vbCr & "Mostrar o Registo.", vbInformation _
, "Duplicado"
rsc.FindFirst stLinkCriteria
Me.Bookmark = rsc.Bookmark
End If
Set rsc = Nothing
End Sub
Mas surge erro:
Erro em tempo de execução '3420':
O objeto não é válido ou não está definido.
Ao clicar depurar, mostra esta linha:
rsc.FindFirst stLinkCriteria
Pode me explicar o que pode ser isto?
Estou fazendo o teste com este código:
Private Sub cliente_nome_BeforeUpdate(Cancel As Integer)
Dim Busca As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
Busca = Me.cliente_nome.Value
stLinkCriteria = "cliente_nome= '" & Busca & "'"
If DCount("cliente_nome", "tb_cliente", stLinkCriteria) > 0 Then
Me.Undo
MsgBox "Atenção o registro " _
& Busca & " já existe." _
& vbCr & vbCr & "Mostrar o Registo.", vbInformation _
, "Duplicado"
rsc.FindFirst stLinkCriteria
Me.Bookmark = rsc.Bookmark
End If
Set rsc = Nothing
End Sub
Mas surge erro:
Erro em tempo de execução '3420':
O objeto não é válido ou não está definido.
Ao clicar depurar, mostra esta linha:
rsc.FindFirst stLinkCriteria
Pode me explicar o que pode ser isto?