boa tarde sou novo em access
to criando um formulário para cadastra telefones e fornecedores o problema tenho os campos tel1 tel2 e tel3 .queria que ao digitar ele buscasse duplicidade ne tabela nos e campos, se o consegui fazer compara um campo
Private Sub tel1_BeforeUpdate(Cancel As Integer)
Dim Busca As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
Busca = Me.tel1.Value
stLinkCriteria = "tel1= '" & Busca & "'"
If DCount("tel1", "Frm_Telefone", stLinkCriteria) > 0 Then
Me.Undo
MsgBox "Atenção o " _
& Busca & " registo já existe." _
& vbCr & vbCr & "Mostrar o Registo.", vbInformation _
, "Duplicado"
rsc.FindFirst stLinkCriteria
Me.Bookmark = rsc.Bookmark
End If
Set rsc = Nothing
End Sub
queria que ao digitar el ja executasse essa função
to criando um formulário para cadastra telefones e fornecedores o problema tenho os campos tel1 tel2 e tel3 .queria que ao digitar ele buscasse duplicidade ne tabela nos e campos, se o consegui fazer compara um campo
Private Sub tel1_BeforeUpdate(Cancel As Integer)
Dim Busca As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
Busca = Me.tel1.Value
stLinkCriteria = "tel1= '" & Busca & "'"
If DCount("tel1", "Frm_Telefone", stLinkCriteria) > 0 Then
Me.Undo
MsgBox "Atenção o " _
& Busca & " registo já existe." _
& vbCr & vbCr & "Mostrar o Registo.", vbInformation _
, "Duplicado"
rsc.FindFirst stLinkCriteria
Me.Bookmark = rsc.Bookmark
End If
Set rsc = Nothing
End Sub
queria que ao digitar el ja executasse essa função
- Anexos
- ACCCCCC.docx
- Você não tem permissão para fazer download dos arquivos anexados.
- (40 Kb) Baixado 10 vez(es)
Última edição por fernando.r.z em 6/2/2017, 14:58, editado 1 vez(es)