A consulta abaixo é mostrada em uma caixa de listagem. Ao abrir o form. é feito a pergunta inicial [Digite o Código do Produto}. Pergunta esta intrínseca do comando da "Select". Gostaria de saber como faço para ao invés dessa pergunta ser feita pela "Select", eu use uma variável recebida por um comando imputbox, tipo "VAR_COD = imputbox (Digite o Código do Produto)" e depois jogue a variável na select para ela processar e aparecer os dados na caixa de listagem.
" SELECT MOVIMENTO.CODCLI, CLIENTE.NOME, MOVIMENTO.DATA, MOVIMENTO.QTD, CLIENTE.TELCEL1, CLIENTE.TELCEL2, PRODUTOS.NOME
FROM PRODUTOS INNER JOIN (CLIENTE INNER JOIN MOVIMENTO ON CLIENTE.[CODCLI] = MOVIMENTO.[CODCLI]) ON PRODUTOS.[CODPRO] = MOVIMENTO.[CODPRO]
WHERE (((CLIENTE.NOME)<>"_TROCA" And (CLIENTE.NOME)<>"_ACERTO DE ESTOQUE" And (CLIENTE.NOME)<>"_BRINDE") AND ((MOVIMENTO.TIPOMOV)<>"1-ENTRADA" And (MOVIMENTO.TIPOMOV)<>"3-CONSIG-ENT" And (MOVIMENTO.TIPOMOV)<>"4-CONSIG-SAI") AND ((PRODUTOS.CODPRO) Like [Digite o Código do Produto]))ORDER BY CLIENTE.CODCLI, MOVIMENTO.DATA;
Grato antecipadamente,
Alex
" SELECT MOVIMENTO.CODCLI, CLIENTE.NOME, MOVIMENTO.DATA, MOVIMENTO.QTD, CLIENTE.TELCEL1, CLIENTE.TELCEL2, PRODUTOS.NOME
FROM PRODUTOS INNER JOIN (CLIENTE INNER JOIN MOVIMENTO ON CLIENTE.[CODCLI] = MOVIMENTO.[CODCLI]) ON PRODUTOS.[CODPRO] = MOVIMENTO.[CODPRO]
WHERE (((CLIENTE.NOME)<>"_TROCA" And (CLIENTE.NOME)<>"_ACERTO DE ESTOQUE" And (CLIENTE.NOME)<>"_BRINDE") AND ((MOVIMENTO.TIPOMOV)<>"1-ENTRADA" And (MOVIMENTO.TIPOMOV)<>"3-CONSIG-ENT" And (MOVIMENTO.TIPOMOV)<>"4-CONSIG-SAI") AND ((PRODUTOS.CODPRO) Like [Digite o Código do Produto]))ORDER BY CLIENTE.CODCLI, MOVIMENTO.DATA;
Grato antecipadamente,
Alex