(Resolvido) Executar Sql

[seveN]

Alguém poderia me ajudar a executar este sql via código no access.

Estou querendo que ao sair de uma caixa de combinação (CCViatura) o código pegasse o último Km registrado da viatura e preenchesse o campo TxtKmFinal.

O sql é este e já testei.

SELECT DISTINCT Max(Tab_PlanoDesl.Odometro_Final) AS MáxDeOdometro_Final FROM Tab_PlanoDesl Where (((Tab_PlanoDesl.Meio_Transp_Vtr)=forms!Teste!CCViatura))

Att.

Pedro

[Iceguy]

Dim rs as Recordset
Dim sqlstr As String
sqlstr = "SELECT DISTINCT Max(Tab_PlanoDesl.Odometro_Final) AS MáxDeOdometro_Final FROM Tab_PlanoDesl Where (((Tab_PlanoDesl.Meio_Transp_Vtr)=forms!Teste!CCViatura))"
Set rs = CurrentDB().OpenRecordset(sqlstr)
rs.MoveFirst
seuCampo = rs("MáxDeOdometro_Final")
rs.Close
Set rs = Nothing

E por que o DISTINCT? Você usa isso pra buscar os valores distintos de uma tabela, por exemplo eu tenho uma tabela com Pessoa e CorFavorita, daí eu quero saber quais cores as pessoas escolheram, então eu coloco SELECT DISTINCT CorFavorita... que mesmo que 750 pessoas escolheram a cor azul, vem só um registro azul

Credo... To chapado hoje, editei pela segunda vez o post ahauauahaua

Editado Fevereiro 24, 2011 por Iceguy

[seveN]

Tirei o Distinct que não precisava e ficou assim, mas deu erro de parâmetros insuficiente.

Dim rs As Recordset

Dim sqlStr As String

sqlStr = "SELECT Max(Tab_PlanoDesl.Odometro_Final) AS MáxDeOdometro_Final From Tab_PlanoDesl Where Tab_PlanoDesl.Meio_Transp_Vtr = " & Me.CCViatura & ""

Set rs = CurrentDb().OpenRecordset(sqlStr)

rs.MoveFirst

Me.TextoKmFinal = rs("MáxDeOdometro_Final")

rs.Close

Set rs = Nothing

Att.

Pedro

[Iceguy]

O campo Tab_PlanoDesl.Meio_Transp_Vtr é texto, correto? Em uma SQL um texto vem entre aspas simples. Usa essa SQL

sqlStr = "SELECT Max(Tab_PlanoDesl.Odometro_Final) AS MáxDeOdometro_Final From Tab_PlanoDesl Where Tab_PlanoDesl.Meio_Transp_Vtr = '" & Me.CCViatura & "'"

[seveN]

Funcionou

Valeu pela força.

Muitíssimo obrigado

Att.

Pedro

Editado Fevereiro 24, 2011 por seveN