No.1
- 回答日時:
イベントプロシージャ―のコードに余り詳しくないのですが
次の方法でも出きると思います。
イベントプロシージャ―でコードを記述するのではなく、
フォームを開くマクロを作り、ダブルクリック時に
フォームを開くマクロが実行される様にすればいかがでしょう。
開くフォームのデータはクエリーを使い、リストボックスの値で
検索する様にすればできると思います。
No.2ベストアンサー
- 回答日時:
リストボックスの内容がどうなっているかわかりませんが、とりあえずサンプルを記述します
'~~~~~~~~~~~~~~~~~~~~
Private sub 氏名一覧_DblClick(Cancel As Integer)
Dim stSQL As String
stSQL = "氏名 = '" & Me.[氏名一覧].Value & "'"
Docmd.OpenForm "個人情報", , , stSQL
End Sub
'~~~~~~~~~~~~~~~~~~~~
リストボックスの中には、氏名の他に「ID」なるものがあればイイですね...
(漢字とか平仮名だと正常に認識しない時がありますので...)
このときは、Columnプロパティを使用します
なにかあれば補足を御願いします
この回答への補足
「個人」テーブルの内容をフィルタを使って絞り込む為
"個人情報一覧"というクエリを作成しました。
個人ID、氏名、フリガナのフィールドを設置し、フリガナの抽出条件に
Like[Forms]![個人情報][フィルタ]を入力しました。
そして個人情報フォームには、
リストボックス・テキストボックス・オプショングループを作りました。
「リストボックス」のプロパティは、
名前:氏名一覧、集合ソース:個人情報一覧、列数:3。
「テキストボックス」の名前:フィルタにし、不可視。
「オプショングループ」の名前:氏名フィルタとし、
その上に「あかさたなはまやらわ、すべて」と11個のボタンをつけ、
氏名フィルタのイベントプロシージャ、更新後処理で、
下記の様なコードを記述しました。
*********************************
Private Sub 氏名フィルタ_AfterUpdate()
Select Case Me![氏名フィルタ]
Case1
[フィルタ]="[あ-お]*"
Case2
[フィルタ]="[か-ご]*"
・
・
・
Case10
[フィルタ]="[わ]*"
Case11
[フィルタ]="*"
End Select
Docmd.Requery"氏名一覧"
End Sub
************************************
[氏名一覧]リストボックスに「個人」テーブルの一覧が表示され、
「あ」から「わ」までの各ボタンを押すと該当する氏名が表示される様になっています。
教えていただいたサンプルを参考にダブルクリックのコード作ってみたのですが、
上手くいかなかったので、行った作業を全て書いてしまいました。
宜しくお願いします。。。。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Access(アクセス) access フォーム 大分類、小分類 1 2022/08/11 18:03
- Visual Basic(VBA) ユーザーフォームの表示を追加したい 2 2023/03/26 23:18
- 格安スマホ・SIMフリースマホ GooglePixelで端末内のアプリを検索する方法を教えてください。 アプリ一覧に表示される検索ボ 2 2023/05/15 00:55
- HTML・CSS HTMLのフォームについてお尋ねします 1 2022/12/03 21:47
- Access(アクセス) Accessで予定表を作成しようとしてます。 テーブル フィールド名 連番 オートナンバー型 年月日 2 2023/07/23 11:40
- Excel(エクセル) [テーマのフォント]、[見出しのフォント]、[本文のフォント]とは何ぞや? 2 2023/02/27 09:18
- Excel(エクセル) [クイックアクセスツールバー]の設定ファイルの格納場所について、 5 2023/04/21 14:43
- Excel(エクセル) Excelで質問です。 詳細(写真) ①黄色の部分を全てプルダウンを設定する。 ②リストはG列 ③リ 1 2023/06/16 21:54
- Excel(エクセル) エクセルでキーリストからデータを取り出して1枚1枚印刷するには? 11 2022/06/27 09:52
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessのコンボボックスでリス...
-
Oracleで文字列型の時間を引き...
-
ACCESSでコンボボックスにSQLで...
-
ACCESS リストボックスの字の色...
-
フォームでの検索
-
Accessのフォーム(コンボボッ...
-
コンボボックスのボタンの大き...
-
帳票フォームでのあるコンボボ...
-
accessでオートコンプリート機...
-
アクセス:フォーム入力:【大...
-
パススルークエリのデータ件数...
-
Accessのコンボボックスの値が...
-
.flex-direction プロパティは...
-
自動入力
-
Access サブフォームでの選択行...
-
エクセルで、抽出したデータだ...
-
ACCESSでVBAから選択クエリの抽...
-
access サブフォームにリストを...
-
「パラメータが少なすぎます。3...
-
前のレコードの値を自動で入れたい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessのコンボボックスでリス...
-
Accessのコンボボックスの値が...
-
ACCESSでコンボボックスにSQLで...
-
.flex-direction プロパティは...
-
ACCESS リストボックスの字の色...
-
帳票フォームでのあるコンボボ...
-
accessでオートコンプリート機...
-
ACCESSクエリ抽出条件について
-
Accessのコンボボックスのデフ...
-
accessでのリストボックス選択...
-
Oracleで文字列型の時間を引き...
-
コンボボックスのリスト外入力...
-
コンボボックスのボタンの大き...
-
更新クエリで変数は使えない?
-
ACCESSのリストボックス抽出に...
-
フォームでの検索
-
Access 帳票フォームのコンボボ...
-
Access2003 孫フォームのRequer...
-
アクセス:フォーム入力:【大...
-
[Access2003]コンボボックスと...
おすすめ情報