ola Pessoal
estou tentando usar o codigo abaixo
Dim Busca As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
Busca = Me.txtFilial.Value
stLinkCriteria = " Filial = ' & Busca & '"
If DCount("filial", "Tbl_CadFilial", stLinkCriteria) > 0 Then
Me.Undo
MsgBox "Atenção " _
& Busca & " O Numero de Cliente que está a introduzir já existe." _
& vbCr & vbCr & "Irá ser mostrado o Registo associado ao respectivo documento.", vbInformation _
, "Registo Duplicado"
rsc.FindFirst stLinkCriteria
'Me.Bookmark = rsc.Bookmark
End If
Set rsc = Nothing
esta dando tipos incompativeis
stLinkCriteria = " Filial = ' & Busca & '" nessa linha meu campo e numero
estou tentando usar o codigo abaixo
Dim Busca As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
Busca = Me.txtFilial.Value
stLinkCriteria = " Filial = ' & Busca & '"
If DCount("filial", "Tbl_CadFilial", stLinkCriteria) > 0 Then
Me.Undo
MsgBox "Atenção " _
& Busca & " O Numero de Cliente que está a introduzir já existe." _
& vbCr & vbCr & "Irá ser mostrado o Registo associado ao respectivo documento.", vbInformation _
, "Registo Duplicado"
rsc.FindFirst stLinkCriteria
'Me.Bookmark = rsc.Bookmark
End If
Set rsc = Nothing
esta dando tipos incompativeis
stLinkCriteria = " Filial = ' & Busca & '" nessa linha meu campo e numero