質問
特定の列の最大値を取得するためのクエリを作成
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]")
. 所属していません StackOverflow