会計プログラムをAccess2002で苦戦しながら作っています。
収入・支出から残高をクエリーで表示したいのです。合計は出るのですが
各行ごとに表示する計算式ができません。Accessでむりなら
せめてExcelに出力して残高を表示したいのですが?
ギブアップしてます。どなたか助けてください、お願いします。

A 回答 (1件)

クエリのデザイングリッドの空いている「フィールド:」に次の式を書いてください。


残高:[収入]-[支出]
これだけで、各行に残高を表示できます。
日本語以外はもちろん直接入力が基本です。
    • good
    • 0
この回答へのお礼

回答ありがとうございます。
残高:[収入]-[支出] ではその行だけの計算結果が表示されてしまいます。
残高:差し引き累計を各行毎に表示したいのです。どのテキストにも
載ってないところをみると、難しいのかもしれません。

お礼日時:2001/07/04 10:30

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aと関連する良く見られている質問

QAccessのクエリーで合計を出したい

WinXPでAccess97を使用しています。

数値型のフィールドで、名前が「1」「2」・・・「50」とついてます。これをクエリーで、それぞれのフィールドの値を合計する演算フィールド「合計」を作成したいと思います。
「合計:[1]+[2]+・・・[50]」でもいいのですが、式が長くなります。ForNext文などVBAのループを使ってモジュールに記述して、合計を出す方法はありますか?

Aベストアンサー

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(略)と思われ。
 

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
...続きを読む

QAccessでのクエリーデータ表示で重複データ非表示できますか?

Accessでのクエリー表示で重複データを非表示にする方法はありますでしょうか?

Aベストアンサー

クエリプロパティの「固有の値」を「はい」にしてください。
クエリプロパティはクエリをデザインビューで開いて右クリックで出てきます。

QACCESSでフォームにクエリーの結果表示できる?

ACCESS2000で、テーブルから入力用のフォームを作っています。主キーは日付とコードです。現在は日付に規定値でDATE()としていますが、本来はテーブル内で「コード=001で最大の日付」がデフォルトで表示され、変更もできるようにしたいです。クエリーからフォーム作ってみましたが更新できませんでした。ヘルプみたら主キーによって更新できない時もあるようで良く分かりませんでした。m(__)m
何か方法はないでしょうか?
もし、だめなら別テキストボックスに最大の日付だけでも表示できればいいと思っています。
よろしくお願いします。

Aベストアンサー

こんにちは。
質問からだいぶ日がたっていますが・・・

最大の日付を設定したい画面上の項目「日付」の規定値に
以下の設定をするとよいのでは・・・

=DMax("項目名","テーブル名","コード=" & "'001'")

「001」の部分をどこか別の項目からとってくることもできますね。
応用してみてください。
詳細はヘルプを参照してくださいね。

QAccessのクエリーで全データ表示しません。

民区の農地を管理するテーブルを作ってます。「農用地テーブル」です。そのテーブルだけであれば全データを表示しますが、「農業者テーブル」それには農地を管理している人のデータが入ってます。
 これ以降が少し分からなくて、もしかしたら全データを表示しない原因になってるかも知れません。途中から「農用地テーブル」に所有者の項目を設けました。データ自体は「農業者テーブル」と同じものです。但し、全部の「農用地テーブル」の所有者コードが入ってません。一部だけ入ってます。
 上手く説明できないので、画像を添付します。
どうも「農業者テーブル」から農用者の管理者を表示しようとすると、一部のデータしか表示内容に思います。所有者の項目に全てのデータが入力されてない状態でも、全部のデータを表示は出来ないものですか?

Aベストアンサー

本文のテーブル名、フィールド名と画像の名称が違うようなので画像に合わせました。
クエリデザインで農家TBLをもう1つ追加してください。
追加した農家TBLは農家TBL_1とかにテーブル名がなると思います。

テーブルの結合を下記のようにすれば表示されませんか?

農用地TBL 農家TBL
担当農家コード ∞→1 農家コード

農用地TBL 農家TBL_1
所有者農家コード ∞→1 農家コード

QACCESS タブコントロールの合計表示

建設工事の注文書を作っています。アクセスは初心者で独学です。
タブコントロールの2ページ目の内訳合計を1ページ目に表示させたいのです。

1ページ目のファイル名   注文書F 
2ページ目はファイル名   注文明細F 

注文明細Fには、労務費や材料費などを入力し、その小計金額をフォームフッターに表示させています。
その、小計金額を注文書Fのテキストボックス「契約金額」に自動で表示させるようにしたいのですが、#Name? と出てしまいます。

=Forms!注文明細F!小計金額   としました。

何が間違っているのでしょうか?

Aベストアンサー

No1です。
No1の「埋め込み3」は、初期値では
「埋め込み0」とか番号が異なっている
と思います。もしサブフォームを表示
しているならば、デザインビューで
サブフォームの縁を右クリックして
コントロール名を確認してみてください。


人気Q&Aランキング

おすすめ情報