アクセス フィールドに文字有をカウントしたい

質問

お世話になります。
１レコードの中のフィールド４個に　チェック印　として　V（小文字）が入ります。
フォームでこの　Vが　何個あるか表示させたいです。

よろしくお願いします。

回答No.4

piroin654 · ベストアンサー

遅くなりました。

フィールド数が多いということと、検査と
データの登録、収集を効率的にというので
あれば以下のような方法がいいのでは
と思いますが。

テーブルは以下のように分けて作成します。
フィールド名は適当にしていますが。

(1)　メインテーブル
患者ID（主キー)
年令
住所
・
・
など

(2)　上下左右の歯の傷み具合のテーブル
患者ID（主キーとしない）
日付
評価1
評価2
・
・
・
評価128

(3)　歯周病の有無のテーブル
患者ID（主キーとしない）
日付
評価1
評価2
・
・
・
評価128
集計

(4)　歯1個への評価のテーブル
患者ID（主キーとしない）
日付
評価1
評価2
評価3
・
・
・
評価64

次に、これらのテーブルを元に検査に合ったフォームを
それぞれ作成します。
これらのフォームはメインフォーム患者IDあるいは、患者ID
と日付でこれらのフォームにフィルタをかけて取り出したり、
あるいは新規登録で新しいレコードに移動して新規レコードを
表示します。
これらのフォームの呼び出しはメインフォームの
ボタンで表示します。つまり、一つのフォームで
表示していたものを(2)、(3)、(4)のテーブルを
基にしたフォームに分割してデータを取得するという
方法です。これならばテーブルのフィールド数には
左右されません。たぶんこの方法しかないと思いますが。

そこで、質問は(3)のテーブルについてとします。
なお、(3)のテーブルは患者IDと日付と集計の
三つのフィールドを設定しましたからフィールド数は、
　　　128+3＝131
となります。

たとえば、(3)のテーブルを基に帳票テーブルを
作成します。作成は「新規作成」からテーブルを
指定して、たとえば「オートフォーム表形式」を
選択するとします。出来たフォームにボタンを
設定し、そのイベントに以下のようにします。

なお、設定が終わったらコード表のツールから参照設定を
選択して、Microsoft DAO xx Object Library　に
チェックを入れてOKとしてください。xxは3.6のような
数字です。

Private Sub コマンド1_Click()
　　Dim rs As DAO.Recordset
　　Dim i As Integer
　　Dim j As Integer

　　Set rs = Me.RecordsetClone

　　If rs.RecordCount > 0 Then
　　　　rs.MoveFirst
　　　　Do Until rs.EOF
　　　　　　j = 0
　　　　　　For i = 2 To rs.Fields.Count - 1
　　　　　　　　If rs.Fields(i).Value = "v" Then
　　　　　　　　　　j = j + 1
　　　　　　　　End If
　　　　　　Next i
　　　　　　rs.Edit
　　　　　　rs!集計 = j
　　　　　　rs.Update
　　　　　　rs.MoveNext
　　　　Loop
　　End If

　　rs.Close: Set rs = Nothing
　　Me.Refresh
End Sub

上記コードの中で、
For i = 2 To rs.Fields.Count - 1
としていますが、これはテーブルの
先頭から、
患者ID（主キーとしない）
日付
評価1
評価2
・
・
・
評価128
集計
のようになっていて、先頭から二つ目までは
計算対象からはずれ、また最後の集計も
計算対象からはずれるからです。

このような方法で計算をします。なお、この場合は
テーブルそのものを一度に計算をするのと同じですから、

Dim rs As DAO.Recordset
Dim i As Integer
Dim j As Integer

Set rs = Me.RecordsetClone

の部分を、

　　Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim i As Integer
Dim j As Integer

Set db = Currentdb
Set rs = db.Openrecordset("テーブル名",dbOpenDynaset)

そして、最後のところを

　　rs.Close: Set rs = Nothing
db.Close: Set db = Nothing
Me.Refresh
End Sub

としてもかまいません。

何かあれば補足してください。

お礼

大変遅くなりまして申し訳ありません。いろいろと試行錯誤していたものですから・・・
今の所
親のメインフォーム・子のサブフォーム（上の歯）・孫のサブフォーム（下の歯）と作りました。

親フォーム
　　キー　 　key　　オートナンバー
　　　　　　　氏名
　　　　　　　性別
　　　　　　　年齢
　　　　　　　・・・

子のフォーム（親のフォームの中に　サブフォームとして作りました）　
　（上の歯用）
　　キー　　s1key　　　　　オートナンバー
　　　　　　　連結key　　 　数値型
　　　　　　　検査連番　 　数値型
　　　　　　　検査年月日　日付型
　　　　　　　以下のフィールド（検査結果）が180項目ほど

孫のフォーム（子のフォームの中に　サブフォームとして作りました）
　（下の歯用）
　　キー　　s2key　　　　 数値型
　　　　　　　以下のフィールド（検査結果）が180項目ほど

リレーションシップは

　　親の　key　　 と　子の連結key　（1対多）
　　子の　s1key　と　孫の　s2key　 （1対１）

子と孫は連動してレコード移動できます。（子の移動ボタンで孫も動きます）

まだまだ途中ですが、何とかなりそうです。
印刷が難しそうですが・・・

コードありがとうございます。参考にさせて頂きます。

いろいろ詳細にありがとうございました。

回答No.3

piroin654

＞質問としましてフィールド４個ですが、実際は１２８個あります。
＞他の種類のフィールド数を含めるとフォーム内の入力数は全部で
＞３００個以上です。検査表です。　ｖの数によって良い悪いの判定をします。

これだと、考え方がまるで違うことしなければならないので、
これ以上、いや実は・・・・、といったことが出てこないように
確認をさせてください。

(1)
＞ｖの数によって良い悪いの判定をします。
という検査項目が128個あるフィールドは
一つのテーブルにそれらの項目だけがある
のでしょうか。
あるいは他の項目も同じテーブルに入って
いるのでしょうか

また、
＞他の種類のフィールド数を含めるとフォーム内の入力数は全部で
＞３００個以上です。

ということですが、一つのテーブルに設定できる
フィールドの数は255までなので、一応
＞実際は１２８個あります。
というフィールドは一つのテーブルにこれらの
項目だけがあると考えていいのでしょうか。

(2)
フォームは単票形式ですか、あるいは帳票や
データシート、あるいはサブフォームを持った形式ですか。

また、128個のフィールドと他のフィールドは
たとえば単票形式だと、すべて同時にコントロールとして
登録されているのですか。

(3)
128個のフィールドの判定の集計は一括して
全てのレコードについて求めるようにするのか、
あるいはレコードの先頭のフィールドフォーカス
を移動したときに個数を表示するようにするのか
などによってやり方がまた違ってきます。

(4)
個数の表示は各レコードの末尾に表示するように
するのか、あるいは(3)の後半の部分のような
やりかただと非連結のテキストボックスに
集計を表示するということもありますが。

以上のようなことですが、一応考えている
方法をのせてもいいのですが、違えば
無駄になるので、まずは以上のことを
確認してからでも、と思います。

補足

こんにちは、いろいろありがとうございます。

歯の検査表です。歯は上下左右で32個あります。
歯一個につき、歯の平面図で上下左右の歯の傷み具合を数値で表します。１２８ヶ所です。
なおかつ上下左右の歯周病の有無を　V　で現します。ここも１２８ヶ所です。

合計２５６個　さらに歯1個への評価が　2種類　32個ｘ2＝64個です
総計　３２０個です。

構想は氏名　性別　年齢　を　メインフォーム
検査結果の入力を　サブフォーム　にしょうと思ってます。
サブにする意味は、検査を複数回しますので、検査日順に入ります。

歯の数だけのマス目が並んだ手書き用の既定用紙をスキャナーで写真とし、この写真をフォームの背景にしてます。
マス目の大きさは1個が１センチ四方です。このなかに歯の傷み具合４か所、歯周病の有無４か所　計８か所入力します。デザインでは、あまり小さいのでアクセサリーの拡大鏡で見たりしてます。

こんなにフィールドが多いのは初めてで　２５５個の制限があるとは思ってもみなかったです。今　解決法を探しております。

ｖの合計により、歯周病の治療をするしないを判定します。

全部テキストボックスです。フィールド名は表示してないです。ボックスは透明化して入力した文字だけが表示されます。

写真にテキストボックスで文字を書き込むイメージです。

まだ印刷は考えてませんが、氏名一つに年月日別検査表２個づつが目的です。

よろしくお願いします。

回答No.2

piroin654

No1です。
質問の見落としがありました。

＞フォームでこの　Vが　何個あるか表示させたいです。

とのことですので、たとえば、メインフォームとサブフォームの
組み合わせで言いますと、

(1)
No1のクエリを元にフォームを作ります。名前を「フォームサブ」
とします。
フォームのプロパティで「既定のビュー」をデータシートにし、
ツールバーの表示で、「フォームヘッダー/フッター」に
チェックをいれます。
フッターのところにテキストボックスを一つ設定し、名前を
「tx個数」とします。そのコントロールソースに
　　　　　=Sum([個数]
を設定します。

(2)
新しいフォームをつくり、ツールボックスから
「サブフォーム/サブレポート」のコントロールを
設定します。サブフォーム表示コントロールが
設定できたら、そのプロパティでソースオブジェクト
を「フォームサブ」に設定します。なお「フォームサブ」
を表示しているコントロールはその名前を変えなければ
「埋め込み0」のような名前のままです。ここでは
そのままにしておきます。

(3)
(2)のフォームにテキストボックスを一つ設定します。
名前は適当でいいのですが、一応「tx総個数」としておきます。
この「tx総個数」のプロパティでコントロールソースを
　　　　=[埋め込み0]![tx個数]
とします。ここで(2)で述べたように「埋め込み0」はサブフォームの
表示コントロールを示しています。サブフォームの名前ではありません。

一応、設定はこれで終わりなのですが、わからないところが
あれば補足してください。

もしかしたら、、メインフォーム、サブフォームの設定までは
必要ないのかもしれませんが。

補足

こんばんは＾＾たいへんご丁寧な回答ありがとうございます。

　NO1の方法は大変参考になり、できました。ただ、フォームに表示したいのは　全レコードの　ｖの総合計ではなく、１レコード内の　ｖの数です。

　質問としましてフィールド４個ですが、実際は１２８個あります。他の種類のフィールド数を含めるとフォーム内の入力数は全部で３００個以上です。検査表です。　ｖの数によって良い悪いの判定をします。

　クエリ経由ではなく、フォーム内で　ｖの個数を求める方法があれば幸いです。

　よろしくお願いします。

回答No.1

piroin654

ユーザ定義関数を使う方法で。

標準モジュールに以下を貼り付けます。

Function funcCount(a As String, b As String, c As String, d As String) As Integer
Dim i As Integer

i = 0

If a = "v" Then
i = i + 1
End If

If b = "v" Then
i = i + 1
End If

If c = "v" Then
i = i + 1
End If

If d = "v" Then
i = i + 1
End If

funcCount = i

End Function

新しいクエリのSQLビューに以下を設定します。
テーブル名は「テーブル1」、フィールド名は、F1、F2、F3、F4としています。
実際に合わせて変更してください。

SELECT テーブル1.F1, テーブル1.F2, テーブル1.F3, テーブル1.F4, funcCount(Nz([F1]),Nz([F2]),Nz([F3]),Nz([F4])) AS 個数
FROM テーブル1;

上記のSQL文で表しているクエリは、テーブルのフィールドのほかに、
新しいフィールドに、

個数: funcCount(Nz([F1]),Nz([F2]),Nz([F3]),Nz([F4]))

を設定して、表示しています。