Fiz no meu projeto um relatório. e quando clico nele abre uma inputbox
onde eu digito o cliente que quero que saia no relatório, uso uma SQL.
Nessa SQL iguá-lo o campo cliente da minha tabela com a inputbox, assim
digito o cliente e imprimo o relatório.

Agora como faço para pedir na inputbox que digito o cliente, e depois
outra inputbox com o telefone, e interligar na SQL?

 

Essa é a SQL que eu fiz:
Dim Procurar As String
Procurar = InputBox("Digite o Cliente:", , "")
Dim var_sql As Recordset
Set var_sql = bancodedados.OpenRecordset("SELECT * FROM pedido WHERE cliente='" & Procurar & "'", dbOpenDynaset)

 

Sem mais agradeço pela atenção.

Dim Procurar As String

dim fone as string
Procurar = InputBox("Digite o Cliente:", , "")

fone = inputbox("fone :",,"")
Dim var_sql As Recordset
Set var_sql = bancodedados.OpenRecordset("SELECT * FROM pedido WHERE cliente='" & Procurar & "' and " & fone='" & fone & "'", dbOpenDynaset)

ACG1504,

 

Deu o seguinte erro:

Expected ; expression (falta ; mas aonde?)

 

Tá dando erro nessa linha:
Set var_sql = bancodedados.OpenRecordset("SELECT * FROM pedido WHERE cliente='" & Procurar & "' and " & fone='" & fone & "'", dbOpenDynaset)

Experimente colocar o sinal ";" após a apostrofe da variável fone.

Não deu não Alê continua com o mesmo erro

Leandro,

 

Existe um erro na montagem da sua string que não sei se vc já corrigiu. Se não, aí vai (destacado em vermelho):

 

Set var_sql = bancodedados.OpenRecordset("SELECT * FROM pedido WHERE cliente='" & Procurar & "' and " & fone='" & fone & "'", dbOpenDynaset)

 

Substitua por: