Pergunta

Fiz uma consulta para obter o valor máximo de uma determinada coluna

sSQLmax = "SELECT MAX([tablename]!rowname) as MaxNum FROM [tablename]"

Eu quero usar o valor MaxNum.Eu tentei em um Msgbox e me deu um valor em branco.Eu tentei tudo isso:

MsgBox "MaxNum" & MaxNum

MsgBox "MaxNum" & sSQLMAX.MaxNum

MsgBox "MaxNum" & sSQLMAX!MaxNum

Mais do código

Dim db As DAO.Database, rst As DAO.Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset(sSQLmax)

mas nada funciona, tenho certeza que é simples, mas me escapa

Foi útil?

Solução

Com o seu código você está apenas definindo uma variável para uma string.Na verdade, você não está fazendo nada com isso.Provavelmente é mais do que você está procurando:

Dim db As DAO.Database, rst As DAO.Recordset, sSQLmax As String
sSQLmax = "SELECT MAX([tablename].rowname) as MaxNum FROM [tablename]"
Set db = CurrentDb

Set rst = db.OpenRecordset(sSQLmax, dbOpenDynaset)

If (rst.RecordCount <> 0) Then
  rst.MoveFirst
  MsgBox "MaxNumber: " & rst.Fields("rowname")
End If

Outras dicas

Experimente a função DMax

Dim result as String
result = DMax("[COLUMN NAME]", "[TABLE NAME]")
Licenciado em: CC-BY-SA com atribuição
Não afiliado a StackOverflow
scroll top