Olá Pessoal,
Estou querendo realizar personalizar a busca de cadastro no meu sistema, quero fazer uma busca tanto pelo código do Paciente como pelo Nome atualmente ele ta pesquisando apenas pelo código e quando tento fazer a busca pelo nome os dados retornado não ficam no campo correto Ex: o Nome fica no Campo Código, o CPF fica no Campo Nome e assim sucessivamente. Quando eu faço a busca pleo código ai ficam cada um em seu devido campo, mais nao quero que seja feito a busca do pelo Código e sim pelos 2.... so que não estou raciocinando direito para fazer isso..Abaixo segue o código que está dentro do Botão Pesquisar e em anexo enviei a foto de como fica a pesquisa pelo Nome.
With Worksheets("Banco de Dados").Range("A:A,B:B") ' aqui é selecionado a planilha 1
Set c = .Find(txtNomePesquisa.Value, LookIn:=xlValues, LookAt:=xlPart) 'aqui é onde será digitado o nome do paciente
If Not c Is Nothing Then
c.Activate
txtCodigo.Text = c.Offset
txtNome.Text = c.Offset(0, 1)
txtCpf.Text = c.Offset(0, 2)
txtRg.Text = c.Offset(0, 3)
txtEmissao.Text = c.Offset(0, 4)
txtNascimento.Text = c.Offset(0, 5)
txtEnd.Text = c.Offset(0, 6)
txtBairro.Text = c.Offset(0, 7)
txtMunicipio.Text = c.Offset(0, 8)
cboEstado.Text = c.Offset(0, 9)
cboEstadoCivil.Text = c.Offset(0, 10)
txtPai.Text = c.Offset(0, 11)
txtMae.Text = c.Offset(0, 12)
txtProfissao.Text = c.Offset(0, 13)
If c.Offset(0, 14) = "Masculino" Then
optMasc.Value = True
Else
optFem.Value = True
End If
txtProvidencia.Text = c.Offset(0, 15)
txtDataObito.Text = c.Offset(0, 16)
txtCausaObito.Text = c.Offset(0, 17)
txtData1.Text = c.Offset(0, 18)
txtDescri1.Text = c.Offset(0, 19)
txtData2.Text = c.Offset(0, 20)
txtDescri2.Text = c.Offset(0, 21)
txtData3.Text = c.Offset(0, 22)
txtDescri3.Text = c.Offset(0, 23)
txtData4.Text = c.Offset(0, 24)
txtDescri4.Text = c.Offset(0, 25)
'Fim da Pesquisa
End If
'Tomada de decisão em caso de não haver nenhum resultado
If c Is Nothing Then
'Sua mensagem ao usuário aqui
MsgBox ("Cadastro Não Encontrado!!!"), vbOKOnly, ("Resultado da Pesquisa")
End If
'Fim da Pesquisa
End With
End Sub
Postado : 03/02/2014 10:29 am