[Resolvido]Consulta SQL dentro do código VBA

Olá pessoal, bom dia !

Eu preciso de algo muito simples mas que está muitio dificil para eu fazer.
Já passei horas procurando e testando um monte de códigos, e nada.
Criei num formulário um botão chamado BtnSQL para chamar a  consulta abaixo. Como fica o código VBA para isso ?

("SELECT Nome, Cdc FROM TabClientes")

Grato!!

Rodrigo, como esta consulta será exibida?!
Uma caixa de listagem?!

Como resultado de uma consulta mesmo. A tradicional grade.

Fará algum filtro ou simplesmente exibira todos os dados?!

Simplesmente exibir o dados.

Apenas por curiosidade, pergunto:
-Porque então você não cria uma consulta normalmente ao invés de criar pelo SQL?!

.


heheh!  É o seguinte. Este BD que estou fazendo é para meu uso no trabalho, daí eu quero fazê-lo o mais leve possivel, com o minimo de objetos. Sei que posso criar uma consulta gráfica e chamá-la pelo VBA, mas também quero saber se tem como ativar uma Query direto pelo VBA. Sou um analfabeto em VBA, daí perguntando, pesquisando e fuçando mudo o meu quadro.
Expliquei ?

Comecei hoje, agora, a acompanhar estas aulas:
https://www.maximoaccess.com/t13699-curso-de-access-vba-completo

.

A minha sugestão seria então chamar a própria tabela através deste botão...
...tenho pouco conhecimento, mas, pensando com coerência, como vamos acessar literalmente uma consulta sem que haja o objeto de consulta?!
Todas instruções SQL que uso tem como parâmetro um objeto de consulta e é claro que fazendo referência a tabela de origem.
De qualquer forma, tive a boa intenção de ajudar, mas, vamos esperar que algum dos mestres do fórum se manifeste sobre isto.

Baumgratz,

Para se trabalhar com SQL através do VBA você tem que saber trabalhar com DAO/ADO os quais possibilitam essas chamadas através das RECODSETS você já chegou nesse ponto em seus estudos?

Bem básico seria:

DIM BD AS DATABASE
DIM RS AS RECORSET

SET BD = CURRENTDB() 'DEFINE O BANCO DE DADOS COMO O ATUAL BANCO E SE AS TABELAS FOREM LOCAIS OU ESTIVEREM VINCULADAS
SET RS = BD.OPENRECORSET ("SELECT TABELA.A, TABELA.B, TABELA.C FROM TABELA") 'VOCÊ MONTA SUA SQL DE CONSULTA OU COLOCA
'SIMPLESMENTE O NOME DA TABELA PARA
'SELECIONAR TODOS OS DADOS SEM CRITÉRIOS

.... 'DAQUI PARA FRENTE DESENVOLVE SUA LÓGICA..

Sds,


Pablo

.

Oi Pablo, obrigado por chega aqui.

Ixi, vc tá falando dificil. Devo estar anos luz deste assunto DAO e ADO...
Estou na faze de criar botões de navegação, e sem tratamento de erro.

Seu código tá meio complicado para mim, mas vou tentar. Depois te conto .

Obrigado!!

.

Olá a todos,
Rodrigo, você já tem a resposta aqui http://redeaccess.com.br/viewtopic.php?f=7&t=438.
Na minha opinião tem duas alternativas:
a) Faz conforme recomendação (e pode ter várias consultas, sempre que necessitar via codigo) atribuindo sempre o mesmo nome à consulta (assim na teoria, só tem um objecto)

b) Cria um formulário, com uma caixa de listagem, que pode invocar sempre a origem dos dados por código (será simular Consulta num Formulário)

Fica a sugestão.

Olá Rodrigo, como ficou a situação?
Os utilizadores do forum agradecem o retorno.
Abraço

.
Fiz como Avelino recomendou.
"Crie a consulta no modo gráfico. Depois é só chamar pelo VBA, através do comando DoCmd."

Grato!
.

Olá Rodrigo, obrigado pelo retorno.
Os utilizadores do fórum agradecem.

Faltou apenas dar o tópico como resolvido, veja como fazer:
https://www.maximoaccess.com/t860-resolucao-de-topicos
Abraço

Ok!
Vlw!