|
|
Postada em 16/11/2007 20:09 hs
Também tem umas dicas de autocompletar... |
|
|
|
|
|
|
|
Postada em 20/11/2007 07:32 hs
Pessoal muito obrigado a todos! MAS AINDA NÃO CONSEGUI... Vou colocar toda minha rotina aqui, acho que será mais facil de entender: '1º) AO CARREGAR O FORM PREENCHE O COMBO (Text_nome) COM TODOS OS NOMES NO campo_nome do BD Private Sub Form_Load()
Dim AreaTrabalho As Workspace
Dim query As String
Dim query2 As String
Dim xxbco As Database
Set AreaTrabalho = DBEngine.Workspaces(0)
Set xxbco = AreaTrabalho.OpenDatabase(App.Path & "DADOS.Mdb", False, False)
query = "Select * From AGENDA order by campo_nome"
Set dyn = xxbco.OpenRecordset(query)
While Not dyn.EOF
Text_nome.AddItem dyn("campo_nome") & ""
dyn.MoveNext
Wend xxbco.Close
End Sub AGORA VEM O ABACAXI, A PARTE DE LARANJA (ABAIXO) É ONDE TENTEI COLOCAR A DICA DO Kerplunk, POREM, DÁ UM ERRO: run-time error 3075 (syntax error in query expression 'campo nome like '%@0122500'%')
'2º) COLOCO O EVENTO CLICK DA COMBO PARA PUXAR TODOS OS NOMES QUE CONTEM OS MESMOS CARACTERES QUE O USUARIO DIGITOU NA COMBO Private Sub Text_nome_Click()
Dim AreaTrabalho As Workspace
Dim query As String
Dim xxbco As Database
Set AreaTrabalho = DBEngine.Workspaces(0)
Set xxbco = AreaTrabalho.OpenDatabase(App.Path & "DADOS.Mdb", False, False)
query = "Select * From AGENDA where campo_nome like '%" & Text_nome & "%'"
Set dyn = xxbco.OpenRecordset(query)
While Not dyn.EOF
Text_nome.AddItem dyn("campo_nome") & ""
dyn.MoveNext
Wend xxbco.Close
End Sub Bom é só isso, POR FAVOR PESSOAL ME AJUDEM....  T+
"Se fizeres o bem, não é certo que serás aceito? E se não fizeres o bem, o pecado jaz à porta, e sobre ti será o seu desejo; mas sobre ele tu deves dominar - Gênesis 4.7" 
|
|
|
|
|
|
Postada em 20/11/2007 07:49 hs
Pessoal descobri o tal erro 3075. O negocio é que o ultimo por cento estava antes do apostrofe na verdade ele tem que estar depois, assim: like '%" & Text_nome & "'%" Assim como vocês pensei que tudo iria dar certo, que nada!!!! AGORA ELE NÃO RETORNA NADA, ABSOLUTAMENTE NADA, NÃO DÁ ERRO, NADA!!!! SIMPLISMENTE SÓ TEM OS DADOS NO additem DA COMBO (que foi feito no CARREGAMENTO DO FORM, como descrito no post anterior) E AGORA PESSOAL, ALGUEM PELO AMOR DE JESUS, HELP!!!!!!!!!!!
"Se fizeres o bem, não é certo que serás aceito? E se não fizeres o bem, o pecado jaz à porta, e sobre ti será o seu desejo; mas sobre ele tu deves dominar - Gênesis 4.7"
|
|
|
|
|
|
Postada em 20/11/2007 11:29 hs
select *From agenda where campo_nome like '%" text1.text % "'%" tente assim, isso dependendo do componente que você está usando. |
|
|
|
|
|
Postada em 20/11/2007 12:00 hs
Vê só com oeu fiz: query = "Select * From AGENDA where campo_nome like '*" & Text_nome & "*' ordem by campo_nome" OBRIGADO A TODOS..... TOPICO FECHADO. 
"Se fizeres o bem, não é certo que serás aceito? E se não fizeres o bem, o pecado jaz à porta, e sobre ti será o seu desejo; mas sobre ele tu deves dominar - Gênesis 4.7"
|
|
|
|
|
