FUN?ÃO SIMPLES

JORGESALES 07/05/2015 22:40:47
#446471
Estou tentando criar uma função simples para localizar pelo nome. porém ocorre um erro:
Public Function LocalizaNome(Aluno As String, Tabela As String) As Long
    ConnectDB
    rs.Open [Ô]select *from & Tabela Where Nome Like[ô][Ô] & Aluno & [Ô]%[ô][Ô], db, 3, 3
    FecharBD
End Function


Para chamar a função eu uso:
LocalizaNome Alunos = txtNome, ([Ô]TBAlunos[Ô])
MILTONFILHO 08/05/2015 00:25:38
#446475 Resposta escolhida
Separa o * do from e concatene o nome da tabela da mesma forma que fez no aluno...

From [Ô] & tabela & [Ô]...
JABA 08/05/2015 02:15:24
#446477
Você colocou o & apos o FROM sem abrir e fechar aspas. Tente assim:

rs.Open [Ô]select * from [Ô] & Tabela & [Ô] Where Nome Like [ô][Ô] & Aluno & [Ô]%[ô][Ô], db, 3, 3
NILSONTRES 08/05/2015 08:22:26
#446480
O problema esta aqui:
Citação:

from & Tabela


Aqui vc esta gerando isso: fromTBAlunos
é preciso haver um espaço ai.
O Carcter (&), server para concatenar
Resolva assim:*From [Ô] & tabela & [Ô]
LUIZCOMINO 08/05/2015 09:42:19
#446483 
Public Function LocalizaNome(Aluno As String, Tabela As String) As Long
    ConnectDB
    rs.Open [Ô]select * from [Ô] & Tabela & [Ô]  Where Nome Like[ô][Ô] & Aluno & [Ô]%[ô][Ô], db, 3, 3
    FecharBD
End Function
JORGESALES 08/05/2015 18:57:07
#446501
Obrigado a todos que participaram, a resposta do LUIZCOMINO também está certa, vou pontuar o Milton pq ele postou primeiro.
Tópico encerrado , respostas não são mais permitidas
Voltar