Olá pessoal ..
Tenho uma caixa de texto no form com o nome de txt_procura.
No evento após atualizar desse campo tenho o seguinte código:
Dim rs As Recordset
If IsNull([txt_procura]) Then Exit Sub
Set rs = Me.Recordset.Clone
If IsNumeric(txt_procura) Then
rs.FindFirst "[Fone1]=" & Val(Me.txt_procura)
Me.Bookmark = rs.Bookmark
If rs.NoMatch Then
MsgBox "Não existe Cliente com este código!!!", vbCritical, "Código não encontrado..."
End If
Else
rs.FindFirst "[NomeCliente] Like '" & Me.txt_procura & "*'"
If rs.NoMatch Then
MsgBox "Não existem Clientes com este Nome (Parte do Nome)!!!", vbCritical, "Cliente não encontrado..."
Else
rs.FindNext "[NomeCliente] Like '" & Me.txt_procura & "*'"
If rs.NoMatch Then
rs.FindFirst "[NomeCliente] Like '" & Me.txt_procura & "*'"
Me.Bookmark = rs.Bookmark
Else
DoCmd.OpenForm "frmBuscaCliente"
Forms![frmBuscaCliente]![KeepNome] = Me.txt_procura & "*"
Forms![frmBuscaCliente]![cboCodigoNome].Requery
End If
End If
End If
Me.txt_procura = ""
Me.txt_procura.SetFocus
Meu problema é que tenho 2 campos de telefone nesse form: o Fone1 e o Fone2.
Minha pergunta: Como faço para que ao digitar o número ele pesquise no campo Fone1 e no campo Fone2 ?
Do jeito que o código está ele só pesquisa no Fone1. ALguma sugestão?
Desde já agradeço ....
Tenho uma caixa de texto no form com o nome de txt_procura.
No evento após atualizar desse campo tenho o seguinte código:
Dim rs As Recordset
If IsNull([txt_procura]) Then Exit Sub
Set rs = Me.Recordset.Clone
If IsNumeric(txt_procura) Then
rs.FindFirst "[Fone1]=" & Val(Me.txt_procura)
Me.Bookmark = rs.Bookmark
If rs.NoMatch Then
MsgBox "Não existe Cliente com este código!!!", vbCritical, "Código não encontrado..."
End If
Else
rs.FindFirst "[NomeCliente] Like '" & Me.txt_procura & "*'"
If rs.NoMatch Then
MsgBox "Não existem Clientes com este Nome (Parte do Nome)!!!", vbCritical, "Cliente não encontrado..."
Else
rs.FindNext "[NomeCliente] Like '" & Me.txt_procura & "*'"
If rs.NoMatch Then
rs.FindFirst "[NomeCliente] Like '" & Me.txt_procura & "*'"
Me.Bookmark = rs.Bookmark
Else
DoCmd.OpenForm "frmBuscaCliente"
Forms![frmBuscaCliente]![KeepNome] = Me.txt_procura & "*"
Forms![frmBuscaCliente]![cboCodigoNome].Requery
End If
End If
End If
Me.txt_procura = ""
Me.txt_procura.SetFocus
Meu problema é que tenho 2 campos de telefone nesse form: o Fone1 e o Fone2.
Minha pergunta: Como faço para que ao digitar o número ele pesquise no campo Fone1 e no campo Fone2 ?
Do jeito que o código está ele só pesquisa no Fone1. ALguma sugestão?
Desde já agradeço ....