Accessでアドレス帳を作成しています。
データシートには名前、ヨミ、TEL番号、FAX番号、メールアドレス、郵便番号、住所、メモ等のフィールドが存在します。
フォーム上タブコントロールでヨミより「あ・か・さ・た・な」検索できるようにクエリ抽出条件を作成しました。
フォーム上に設置したサブフォームにクエリの抽出結果が表示されます。
ここで、フォーム上に連絡先、住所、メモのオプションボタンを作成し、連絡先にチェックした時にはTEL及びFAX、住所にチェックした場合は郵便番号及び住所・・・のところだけを表示することは可能でしょうか?
つまりはクエリの表示項目をフォーム上のオプションボタンでコントロールできるのでしょうか?
よろしくお願いします。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
こんばんは
まず サブフォームの規定のビュー[データシート]or[帳票フォーム]は
どちらをお使いですか?
それによって指定方法が違います。
[データシート]
サブフォーム名.Report.フィールド名.ColumnWidth = 1000
[帳票フォーム]
サブフォーム名.Form.フィールド名.Visible = True
サブフォーム名.Form.フィールド名.left = 500
【例】
サブフォーム名:subfrm
郵便番号:zip
住所:place
メインのチェックボックス: chk1 と chk2
とすると
[データシート]の場合
Private Sub chk1_Click()
If chk1.Value Then
subfrm.Report.zip.ColumnWidth = 1000
Else
subfrm.Report.zip.ColumnWidth = 1 ' 0 にしない事
End If
End Sub
[帳票フォーム]の場合
非表示だけなら簡単だが 位置をずらさないといけないので
共通ルーチンを作って 連絡先にチェックされたときと
住所にチェックされたときに飛ばした方がいいかな?
Private Sub chk2_Click()
Call chkrtn
End Sub
Sub chkrtn()
If chk2.Value Then
subfrm.Form.zip.Visible = True
subfrm.Form.zip.Left = 5301
subfrm.Form.place.Left = 6213
Else
subfrm.Form.zip.Visible = False
subfrm.Form.place.Left = 5301
End If
End Sub
こんな感じでしょうか?
初めてサブフォームやってみたので、もっと良い方法があるかもしれませんが
ご容赦を
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Access(アクセス) Accessで予定表を作成しようとしてます。 テーブル フィールド名 連番 オートナンバー型 年月日 2 2023/07/23 11:40
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Access(アクセス) access レポート 請求書について 2 2022/07/04 22:52
- Access(アクセス) AccessVBAで降順にするテーブル作成クエリを使用して作成したテーブルを削除し同一のテーブル作成 1 2023/01/06 11:17
- Access(アクセス) Accessでセレクタをダブルクリックで別フォームで詳細表示 3 2022/12/20 10:36
- Visual Basic(VBA) 検索のユーザーフォームの表示について 1 2023/03/27 23:31
- Access(アクセス) アクセス フォームの自動入力 1 2023/03/20 00:18
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- Access(アクセス) Access DLookup vbaで条件を2件設定したい場合どうすればよいでですか? 現在 If( 1 2023/06/28 14:28
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ACCESS 帳票フォームとデータ...
-
皆さん使っているブラウザを教...
-
クエリで出来た表にチェックボ...
-
サブフォームに対してGoToRecor...
-
Access フォームで条件抽出し...
-
accessでコンボボックスとサブ...
-
ACCESS──メインフォームでサブ...
-
Accessで埋め込んだサブフォー...
-
Access2007 ラベルの削除がで...
-
サブフォームのあるフォームか...
-
親フォームからサブフォームの...
-
YahooのIDがロックされてしまい...
-
Accessフォームからパラメータ...
-
Accessで、フォームからフォー...
-
iphoneのフルスクリーンの解除方法
-
年月日を持つテーブルから年月...
-
アクセスでカレンダーを表示す...
-
Access レポート印刷するときに...
-
Excelで入力したデータを自動的...
-
エクセル 自動入力
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
サブフォームに対してGoToRecor...
-
クエリで出来た表にチェックボ...
-
親フォームからサブフォームの...
-
皆さん使っているブラウザを教...
-
ACCESS──メインフォームでサブ...
-
ACCESSにて
-
サブフォームを非表示させる方...
-
親・子リンクフィールドの設定...
-
ACCESS VBA メインフォーム及び...
-
ACCESSのフォームで列固定?
-
ACCESSサブフォームにデータ反...
-
Access VBA には Gridはないで...
-
ACCESSで条件によってサブフォ...
-
Accessで埋め込んだサブフォー...
-
【Access】サブフォームのソー...
-
ACCESSのサブフォームコピーに...
-
アクセス2003のサブフォームの...
-
サブフォームに変数を代入し、R...
-
ACCESS サブ・メインフォーム...
-
Access フォームで条件抽出し...
おすすめ情報