O código .FindFirst "CampoNumérico =" & Me.CampoNumérico & "" dá-me erro.
Alguém me pode ajudar?
Antecipadamente grato
Luís Antunes
Alguém me pode ajudar?
Antecipadamente grato
Luís Antunes
.FindFirst "CampoNumérico =" & Me.CampoNumérico
[color=#ffff33]Private Sub Proc_AfterUpdate()[/color]
On Error GoTo Err_Proc_BeforeUpdate
Dim Mess As String
Set Tabela = Me.RecordsetClone
'seta variavel recordset
With Tabela
'verifica se o liente já está Inserido
'.FindFirst "Proc =" & Me.Proc & ""
.FindFirst "Proc =" & Me.[color=#00cccc]Proc[/color]
'se encontrou então
If Not .NoMatch Then
Cancel = True
'Desfaz o registro
Mess = MsgBox("Este Utente já existe, quer anular a entrada?", vbQuestion + vbYesNo, "Aviso!")
If Mess = vbYes Then
'Desfaz o registro
Me.Undo
MsgBox "Registo pretendido", vbCritical, "Atenção"
Me.Bookmark = .Bookmark
'exibe o registro já Registado
Else
Cancel = False
'Sai da SUB
Exit Sub
End If
End If
End With
Set Tabela = Nothing
Err_Proc_BeforeUpdate:
Exit Sub
End Sub
Private Sub Proc_AfterUpdate()
On Error GoTo 1
Dim Mess As String
With Me.RecordsetClone
'verifica se o liente já está Inserido
.FindFirst "Proc = " & Me.Proc
'se encontrou então
If Not .NoMatch Then
'Cancel = True
'Desfaz o registro
Mess = MsgBox("Este Utente já existe, quer anular a entrada?", vbQuestion + vbYesNo, "Aviso!")
If Mess = vbYes Then
'Desfaz o registro
Me.Undo
MsgBox "Registo pretendido", vbCritical, "Atenção"
Me.Bookmark = .Bookmark
'exibe o registro já Registado
Else
'Sai da SUB
Exit Sub
End If
End If
End With
Set Tabela = Nothing
1:
Exit Sub
End Sub