Pregunta

Hice una consulta para obtener un valor máximo de una columna determinada

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

Quiero usar el valor de maxnum.Lo intenté en un msgbox y me dio un valor en blanco.Intenté todo esto:

MsgBox "MaxNum" & MaxNum

MsgBox "MaxNum" & sSQLMAX.MaxNum

MsgBox "MaxNum" & sSQLMAX!MaxNum

más del código

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

Pero ninguno funciona, estoy seguro de que es simple, pero me escapa

¿Fue útil?

Solución

Con su código, solo está configurando una variable en una cadena.En realidad no estás haciendo nada con él.Esto es probablemente más de lo que está buscando:

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

Otros consejos

Pruebe la función DMAX

Dim result as String
result = DMax("[COLUMN NAME]", "[TABLE NAME]")

Licenciado bajo: CC-BY-SA con atribución
No afiliado a StackOverflow
scroll top