質問

特定の列の最大値を取得するためのクエリを作成

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

MAXNUM値を使用したいです。私はMSGBoxで試してみて、私に空白の価値を与えました。私はこれらすべてを試しました:

MsgBox "MaxNum" & MaxNum

MsgBox "MaxNum" & sSQLMAX.MaxNum

MsgBox "MaxNum" & sSQLMAX!MaxNum
.

詳細コード

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

しかし、何もしない、それは単純だがそれは私を脱出する

役に立ちましたか?

解決

あなたのコードを使って、変数を文字列に設定しています。あなたは実際にそれを使って何もしていません。これはおそらくあなたが探しているもののより多くのものです:

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
.

他のヒント

Dmax関数を試してみてください

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

ライセンス: CC-BY-SA帰属
所属していません StackOverflow
scroll top