Criar Uma Consulta Em Agenda

[Guest Guerino]

Alguém pode me ajjjuuuudddaaarrrrrrrrr??????????

estou precisando de colocar um código para fazer uma consulta na egenda , mais não esta dando certo, pois já tentei de tudo e nada, olhe o que fiz:

Private Sub Command1_Click()

Dim IndCódigoAgenda As String

IndCódigoAgenda = InputBox(" Aqui")

TBAgenda.Seek "=", IndCódigoAgenda

If TBAgenda.NoMatch = True Then

MsgBox ("Não")

TBAgenda.MovePrevious

End If

End Sub

geralmente quando eu rodo aparece grifado o TBAgenda.Seek "=", IndCódigoAgenda

o que eu faço , me ajudem por favor

obrigado

[PiGmEu]

e qual é o erro q ele da?

veerifique se os indicies na sua tabela estao corretos...

[]´s

[Graymalkin]

Acho que falta um...

TBAgenda.Index = "campo"

... antes do Seek. Mas, por que você não usa o método FindFirst? Acho ele muito mais simples de se usar.

Abraços,

Graymalkin