[Resolvido]Utilizando SQL no VBA

Bom dia,
estou tentando fazer no VBA com que uma variável receba o menor valor de uma tabela com um critério, mas não estou conseguindo.
eu utilizei o seguinte:

TEMP = "SELECT Min(Resultado.Num) AS MínDeNum FROM Resultado GROUP BY Resultado.Inserido HAVING (((Resultado.Inserido) = Inserir))"

Ou seja, minha variável TEMP ela irá receber o valor mínimo do campo Num na tabela Resultado aonde o campo Inserido for igual à uma variável já digitada, no caso a Inserir.

Mas não está dando certo. Como eu posso fazer isto?

Olá gilberto

Você está definindo uma string para a variável TEMP e não uma consulta, percebe?

Endereço = "Rua x"
Bairro = "Bairro y"
TEMP = "SELECT...."

No VBA tem duas maneiras de executar uma consulta

Docmd.RunSQL() - Usado para executar consultas ação (deletar, atualizar, etc)

Docmd.OpenQuery - Usado para qualquer macro.

Existe também o db.execute, mas não estou familiarizado com ele.

Desde que tua instrução SQL esteja correta pode fazer assim:

TEMP = Docmd.RunMacro("SELECT Min(Resultado.Num) AS MínDeNum FROM Resultado GROUP BY Resultado.Inserido HAVING (((Resultado.Inserido) = Inserir))")

Abraços

Não seu certo, tentei com o DoCmd.RunSql, DoCmd.RunMacro e como Db.Execute e deu o seguinte erro:

"Erro de compilação!
Era esperado Function ou Variável"

Está indicando que é erro de digitação.

No VBA


Vá no menu Depurar e clique em Compilar (1ª opção) e veja onde está dando o erro.

Se não conseguir poste a linha que você digitou.

ta parando aqui

DoCmd.RunSQL

Como disse no primeiro post, esse comando é somente para consultas Ação, aquelas consultas que deleta, cria tabela, atualiza etc..

Você deve usar Docmd.RunMacro.

Com o DoCmd.RunMacro deu o mesmo erro.

talvez isto possa ajudar:

resumindo o que eu quero fazer é que uma variável receba o menor valor de um determinado campo em uma tabela e armazene este valor em uma variável no vba.

Gilberto

Vamos ponderar com calma.

Primeiro - já testou essa instrução dentro de uma consulta?

Segundo - O resultado dessa consulta tem somente um dado ou retorna mais do que isso.

Caso a consulta retorne mais de um dado creio que não tem como armazenar numa variável.

Explique melhor o que pretende, creio que estamos no caminho errado.

Abraços

eu fiz ela no designe da consulta e peguei o código SQL e ficou assim:

SELECT Min(Resultado.Z1) AS MínDeZ1
FROM Resultado
HAVING (((First(Resultado.BHID))=3));

Esta é minha tabela real (a outra eu estava usando como exemplo para você),
o que preciso é executar esta consulta no VBA. Ela retorna somente um número com vírgula, ou seja, do tipo Double.
Resultado é o nome da minha tabela, Z1 é o nome do campo que eu vou procurar os dados (no caso o valor mínino), o campo BHID é o que eu vou utilzar para fazer o critério que deverá ser igual à uma variável no meu código VBA (no caso eu coloquei o valor 3 para poder exemplificar).

no meu código do VBA eu já tinha declarado uma variável tabela as Recordset, não sei se precisa utilizar tabela!Z1 ou no caso o Resultado.Z1.

Mas o que eu quero fazer é isto, pegar este valor retornado e armazenar em uma variável dentro do meu código vba.

Certo, estou indo por parte, para poder entender a coisa.

Já colocou essa instrução numa consulta para ver se está funcionando?

Você diz:
o campo BHID é o que eu vou utilzar para fazer o critério que deverá ser igual à uma variável no meu código VBA (no caso eu coloquei o valor 3 para poder exemplificar)

No lugar do número 3, você tem uma variável.

Essa variável está fora das aspas da instrução sql?

Dessa maneira:
"SELECT Min(Resultado.Z1) AS MínDeZ1
FROM Resultado
HAVING (((First(Resultado.BHID))=" & variavelNoLugarDo3 & "));"

Entenda que preciso saber se realmente essa consulta está funcionando para você para depois partir para outras soluções.

Colocando esse post para você saber que postei novamente, depois irei unir os dois posts.

Você pode também fazer dessa maneira que é mais fácil.

Crie a consulta que deseja e salve-a.

Depois no VBA faça assim:

TEMP = DLookup("MínDeZ1","nomedaconsulta",criterios)

No aguardo

Olá

Experimente:

TEMP = Dmin("Num","Resultado","Inserido =" & Inserir)

Sucesso!

Muito obrigado o Dmin deu certinho e não deu nenhum erro!!

MUITO MUITO MUITÍSSIMO OBRIGADO!!!!

Valeu pelo retorno!

Boa sorte!