[Resolvido]pesquisa automatica

boa tarde ou bom dia conforme a hora
venho perguntar vi um exemplo de um codigo a por numa caixa de texto que executa uma pesquisa no formulario a medida que se vai digitando e resolvi adaptar ao meu mas digamos que não faz o que lhe é pedido
codigo

Código:


Private Sub pesquisa()
   
    Dim strID_bovino As String
   
    Me.Filter = "ID_bovino=" & Me.Texto23

    Me.FilterOn = True
End Sub


provavelmente saltei alguns passos hehe alguem me pode ajudar
o form em causa tem a coluna dos dados desactivada para edição como medida para não alterar dados
ja dei voltas aqui no forum mas não consegui adaptar

muito obrigado
Joel Henriques

Bom dia amigo... Vc quer fazer um filtro traves de um nome, e que quando digitasse o nome em uma caixa de texto exibiria todas as informações sobre aquele nome.. e isso?

deixo aqui o exemplo
o texto a pesquisar e dentro dos PT..... e caixa ta ao lado do botao com legenda so que queria que ele a medida que eu escreva nela ele me deia o resultado instantaneamente

obrigado pela ajuda que possam dar
Joel Henriques

Amigo, dei uma olha em seu bd, mais não consegui entender o seu objetivo.. Vc disse ( o texto a pesquisar e dentro dos PT..... e caixa ta ao lado do botao com legenda so que queria que ele a medida que eu escreva nela ele me deia o resultado instantaneamente) que resultados vc quer que apareça, pois os campos que vc quer os resultados estão em brancos na tabela.. Para aparecer algum resultado a tabela tem que ter um registro.. Tente esclarecer melhor seu objetvo, assim fica mais fácil ajudar...

estranho eu deixei la registos para dar exemplo esta na tabela da base de dados.....
sim eu quero que ele me filtre automaticamente a medida que eu meto la algo mas meta algo na tabela ela aceita qualquer coisa nesse campo devia filtrar no sitio "nº do bovino"

obrigado
joel henriques

Os campos que estão preenchidos na tabela não são os campos que vc inseriu em seu formulário. Os campos do formulário estão sem registros, estão em brancos.. quando vc efetuar o filtro só aparecera N Bovino pois este campo tem registros na tabela.. Para que o campo guia de saida, matadouro,marca de destino etc, sejam filtrados tem que ter um registro de origem pois como pode aparecer registros que não existem em uma tabela.. te oriento vc criar uma tabela para entrada dos animais, e outra tabela para saida e depois relaciona_las de acordo com sua necessidade.. crie uma tabela para cadastrar os matadouros... Assim os registros ficarão bem explicados e poderá filtrar de varias forma..

o form esta na base de dados total a funcionar sobre uma consulta a uma tabela eu so queria ver o exemplo ai do codigo
a tabela é so uma mas as saidas funciona sobre uma consulta hehehe algo estranho mas funciona bem e assim os dados estão so numa tabela
nao percebo como aqui no meu PC os dados aparecem e ai não
o filtro que queria era esse que voce descreve ele ir buscando a medida que se digita porque esse formulario pode ter uma grande quantidade de dados
se puder me ajudar com essa caixinha de texto que pesquisa era muito bom

cumprimentos
Joel Henriques

Olá amigo.. No exemplo que vc me mandou não tem os dados todos, mais vamos lá.. Crie uma consulta para tabela bovinos. No formulário saidas, vá em folha de propriedades, na aba dados ,e coloque na fonte de registros a consulta que vc criou.. Vá na consulta que criou no critério do campo CpCod_Bovino e coloca assim formulários![nome do seu formulário]![nome da caixa de pesquisa]. Vá em seu formulário em modo desing e clique na caixa de texto pesquisa e no evento apos atualizar utilize o código me.requery para atualizar os dados. Vê se funciona

nao resulta porque eu tenho de la por algo pa depois aparecer o animal
o que quero e que apareça todos os que nao teem saida (neste caso ele verifica a "check box") se tiver clikada e pk ja saiu se nao esta presente e pode sair
o que eu quero que a caixa de texto faça e eu ao meter la algo ele selecione de acordo com o que la puser mas se eu nao puser la nada ela da-me todos os bovinos presentes

envio novamente a base de dados espero que os dados ja apareçam:oops:  senao eles estao na tabela e a consulta está lá tambem

obrigado
joel henriques

Código:


Private Sub txtBusca_Change()
Dim StrSQL As String

StrSQL = "SELECT CpCod_Bovino As data" from tblbovinos WHERE CpCod_Bovino Like '*" & Me.Txtbusca.Text & "*'"
Me.CpCod_Bovino.RowSource = StrSQL
Me.SelecionaReg
If Me.lstAut.Column(2) = Me.Txtbusca.Text Then
    Me.TimerInterval = 1000
    Me.lblInforma.Caption = "Número Válido!"
Else
    Me.TimerInterval = 0
    Me.lblInforma.Visible = False
    End If
Me.txtCount.Requery
End Sub

Sub SelecionaReg()
    On Error Resume Next
    Dim I As Integer
    Dim strProcura As String, intPos As Integer
    Dim strList As String
    strProcura = UCase$(Me.Txtbusca.Text)
    intPos = Len(strProcura)
    If intPos Then
        For I = 0 To lstAut.ListCount - 1
            strList = Me.lstAut.Column(2, I)
            If UCase$(Left(strList, intPos)) = strProcura Then
                Me.lstAut.Selected(I) = True
                Selecionado = True
                Me.lstAut = Me.lstAut.Column(0)
                Exit For
            Else
                Me.lstAut.Selected(I) = False
                Selecionado = False
            End If
        Next
    End If
End Sub


tentei por isto de acordo com a base de dados alterei o nome da caisa de texto para "TXTbusca" mas agora da erro  aqui

Código:

 "StrSQL = "SELECT CpCod_Bovino As data" from tblbovinos WHERE CpCod_Bovino Like '*" & Me.Txtbusca.Text & "*'"

se tiver mais erros corrijam-me que eu ainda so vi 3 aulas do mabesi

obrigado
Joel Henriques

Tem aspas a mais;

StrSQL = "SELECT CpCod_Bovino As data" from tblbovinos WHERE CpCod_Bovino Like '*" & Me.Txtbusca.Text & "*'"

CpCod_Bovino é texto ou numerico ?

é misto tem texto e numeros como por exemplo PT916689518
como ficaria entao?
o resto do codigo adaptei bem?

obrigado
Joel Henriques

Então limpe a instrução, assim;

StrSQL = "SELECT CpCod_Bovino FROM tblbovinos WHERE CpCod_Bovino Like '*" & Me.Txtbusca.Value & "*'"

bem pelo menos ai ja esta bem penso eu
aquilo tem tblbovinos mas os dados proveem de uma consulta de nome "saidas" so que nao sei o diminutivo para a consulta

agora da erro aqui

Código:


Me.CpCod_Bovino.RowSource = StrSQL


cumprimentos
Joel

vou por aqui a base de dados

bem la fui eu investigando e vi um exemplo aqui do mestre avelino que tentei adaptar ao meu
ficou assim o codigo na caixa de texto

Private Sub Form_Open(Cancel As Integer)

On Error Resume Next

Me.Txtbusca.SetFocus

End Sub


Private Sub Txtbusca_Change()

Dim C As String, X As String
X = Me.Txtbusca.Text
C = " where CpCod_bovino like '*" & X & "*' "
Me.saidas.Form.RecordSource = "select * from [saidas Consulta]" & C

End Sub

so que da erro na parte vermelha mas como eu ainda tou vendo as videoaulas com calma ainda nao cheguei aqui
alguem consegue aqui uma ajuda
desculpem tanta resposta mas eu vou pesquisando ao mesmo tempo
obrigado

bem como não consegui adaptar
fui pesquisando e fiz la uma caixa que busca na pesquisa que dá origem ao form não é bem o que queria mas como não tenho grandes conhecimentos, é melhor que nada

obrigado
Joel Henriques