V B urgente access\datasource

[joao_esg]

boas...
eu tenho uma basse de dados em access em k o registo e regido pelo nume de avaria e esse por sua vez tem o nome de um cliente e eu queria faser procura por nome de cliente utilizando o datasource...

se me poderem ajudar....


ja tenho este codigo mas dam erro....


dodc1.Index = "IAdodc1"
test
Adodc1.Seek "=", Text1.Text 'busca exata do nome
Adodc1.Seek "=>", Text1.Text 'busca aproximado do nome
If Adodc1.NoMatch Then 'se ele não achar faça
MsgBox "Cliente não existe"
Else
MostraDados
End If


[ ]

 

[PJTuga]

qual é o erro que te dá?
analisando esse codigo rapidamente:
dodc1--> não será Adodc1
O adodc control não tem as propriedades Seek nem NoMatch

mas posta aqui o erro...

 

[joao_esg]

pois

já deixei esse


Adodc1.Refresh
If Not Text1 = "" Then
Adodc1.Recordset.Find "Nome: '" & Text1 & "%'"
If Adodc1.Recordset.EOF Then
Adodc1.Refresh
MsgBox "Nome não encontrado"
Exit Sub
Else
******

End If
End If


faltame é descobrir o codigo para ir boscar os dados a bd.....

 

[PedroF]

boas podes ir buscar os dados por um subformulario onde o link é text1 e o campo da tabela
...
Mas eu n tou a perceber muito bem a duvida...

Else
dim a as string
a= "Select * From Tabela1 Where Campo='Text1'"
Me.RecordSource = a
end if

será isto??