No.3ベストアンサー
- 回答日時:
Public Function GetFieldsTotal(ByRef strTblName As String) As Long
Dim db As DAO.Database
Dim tbl As DAO.TableDef
Dim rs As DAO.Recordset
Dim strSql As String
Dim i As Long
On Error Goto ErrLine
Set db = CurrentDb()
Set tbl = db.TableDefs(strTblName)
strSql = "SELECT "
With tbl
For i = 0 To .Fields.Count
strSql = strSql & "[" & .Fields(i).Name & "] + "
Next i
End With
strSql = Left$(strSql, Len(strSql) - 3)
strSql = strSql & " As Total"
strSql = strSql & " FROM " & strTblName
strSql = strSql & " WHERE ........"
Set rs = db.OpenRecordset(strSql, dbOpenSnapshot)
GetFieldsTotal = rs.Fields(0).Value
rs.Close
db.Close
ExitLine:
Set rs = Nothing
Set tbl = Nothing
Set db = Nothing
Exit Function
ErrLine:
'例外発生時の戻り値は再考されたい。
GetFieldsTotal = -1
Resume ExitLine
End Function
例えば、↑こんな風にでもすれば、一応合計は求まる理屈ですが、性能が向上する訳ではないので、抜本的な解決にはなりません。
やはり、テーブル設計を見直すのがスジかと。
# [ ]で括らないと使えない識別子を使ってる時点でDQ(略)と思われ。
この回答へのお礼
お礼日時:2003/08/03 11:05
うまく合計が出せました!ありがとうございます!!
>やはり、テーブル設計を見直すのがスジかと。
はい、ご指摘通り見直します。私の無理な質問に対してご丁寧にコードまで書いていただき、本当にありがとうございました(*^_^*)
No.2
- 回答日時:
sum関数ではだめですか?
SELECT SUM(fieldname) FROM tablename WHERE conditions
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
パススルークエリの使い方について
-
sqlite_open()なんですが
-
構文エラー:演算子がありませ...
-
今年亡くなった有名人を一発で...
-
データベースの2GBって・・・?
-
データベースの最適化をマクロ...
-
型 varchar から型 numeric へ...
-
オラクルのLONG RAW型のテーブ...
-
Access→Oracleデータ参照にはAD...
-
カンマ区切りで格納するカラム...
-
DB2 UDBって?
-
初心者です。Accessを使って、...
-
Thunderbirdのインポートの処理...
-
アクセスの日付/時刻型で標準...
-
マクロでデータベースの最適化...
-
iSeries(AS400)のデータベース
-
キャッシュとバッファの違いは?
-
Access 外部データ インポー...
-
Accessで入力したデータ...
-
Notes って 何が良くて使うの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
希望の位置へフィールドを追加...
-
エクセルからアクセスにADO...
-
accessのvbaでの実行時エラーに...
-
[ACCESS/VBA]動的にSQL文を...
-
データベースの変換
-
Access2000のVBAでコンパイルエ...
-
パススルークエリの使い方について
-
Berkeley DB 1.85 -> GNU dbm ...
-
FindFirst複数条件
-
Access 余分な件数分データ削除...
-
列名が無効です
-
型 varchar から型 numeric へ...
-
データベースの最適化をマクロ...
-
AndroidからのAccessデータベー...
-
データベースの2GBって・・・?
-
DB2 UDBって?
-
スタライズとは、どういう意味...
-
キャッシュとバッファの違いは?
-
クエリをキャンセルしたいので...
-
エクセルのフォームについて(...
おすすめ情報