こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

グループ化してあるチェックボックスについて

グループ化してあるチェックボックスについて

Access2007で売上を管理しています。
初めは作り方がわからず、とにかく必要と思われるフィールドを作成して伝票を入力するフォームには領収済み(チェックボックスでY/Nを入力)というフィールドを埋め込みました。
入力と領収は普通タイムラグがあるので、フォームに入力した個々のレコードの[領収済み]フィールドにいちいちチェックを入れるということは普通しませんね。
検索→一括更新でチェックを入れたり、外したりするものです。
集計を行うのにあるクエリを作成し、チェックボックスのある[領収済み]フィールドをグループ化して表示させた場合、チェックボックスをクリックしたら一括でチェックを入れたことになる・・・
みたいなことは出来るのでしょうか?
そのクエリを基にしたフォームを作成して、[領収済み]フィールド(チェックボックス)のプロパティのどこかをこうすれば・・みたいなことがありそうな気がしますが、わかりません。
これが効率的かどうかということは無視して考えていただけるとありがたいです。

投稿日時 - 2010-03-26 22:17:16

QNo.5781750

困ってます

質問者が選んだベストアンサー

領収済のチェックはフィールド毎に
いれますが、いっぺんに、とは思いも
よらないですね。一度設定してしまうと
やり直しがきかなくなるので運用は
慎重にしてください。以下一応サンプル
です。少し雑ですが動きます。

設定として、
(1)メインフォーム;
メインフォーム=F1
ボタン=コマンド1
サブフォーム埋め込み=FISub

(2)サブフォーム;
サブフォーム=F1Sub
レコードソース=クエリ
データシート形式

(3)テーブル;
領収済=Yes/No

(4)
コマンドボタンのクリック時
イベントで、

Private Sub コマンド1_Click()
Dim rs As Recordset

Set rs = Forms!F1!F1Sub.Form.RecordsetClone

rs.FindFirst "領収済 = " & False
Do Until rs.EOF
If rs.NoMatch Then
Exit Sub
Else
rs.Edit
rs!領収済 = True
rs.Update
End If
rs.MoveNext
Loop
Set rs = Nothing
End Sub

設定はこちらで勝手にしましたが、
一応このような方法でできます。
設定がいろいろ違うかもしれないので
確かめてください。

投稿日時 - 2010-03-27 18:17:29

お礼

さっそくのご回答ありがとうございました。

投稿日時 - 2010-03-30 01:08:14

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問