Microsoft Access 掲示板

早速ありがとうございます!
あ行で絞り込んでいるのは、埋め込みマクロ(条件式 =[苗字カナ] Like "[ア-オ]*")です。

仮に、(やり方がよくわかっていませんが)クエリで絞り込んだ場合、あ行用のコンボボックス、か行用のコンボボックスと、それぞれに必要になるということでしょうか？

　テキストボックスを配置して、
・選択クエリの抽出条件に、Like［Forms]![フォーム1]![テキスト1] & “*”
・プロパティシートの変更時イベント

Private Sub テキスト1_Change()
    Me.Requery
    Me.テキスト1.SetFocus

    If IsNull(Me.テキスト1) Then
        Me.テキスト1.SelStart = 0
    Else
        Me.テキスト1.SelStart = Len(Me.テキスト1)
    End If
End Sub

　ボタンを配置して、
・マウスボタンクリック時イベント

Private Sub ボタン1_MouseDown(ほにゃらら、自動入力されるので、省略)
　　　　　Me.テキスト1 = “[ア-オ]“
　　　　　Me.Requery
End Sub

　コンボボックスを配置して、
・プロパティシートの値集合ソースに、絞り込むために活用した選択クエリを設定
・フォーカス取得時イベント

Private Sub コンボ1_Enter()
        Me.コンボ1.Requery
End Sub

hiroton さんありがとうございます。
まず私にもわかるかもしれないこのパターンでやってみようと取り組んでいますが、
質問させてください。
テーブルに「抽出用カナ」に該当するフィールドがなく、「苗字カナ」とは別にそれを設ける必要があるということでしょうか？

テーブルのフィールドは必要ないですよ

フォームデザインツールでコントロールの中からテキストボックスを選んでフォーム上の適当な場所に配置し、「テキスト ボックス名を指定してください。」のとこで「抽出用カナ」と入力します

これで、フォームのデザインビュー上でテキストボックスに「非連結」と表示された名前プロパティが「抽出用カナ」のテキストボックスが配置できます

配置済みの適当なテキストボックスをコピー＆ペーストしてコントロールソースプロパティを「」（削除）、名前プロパティを「抽出用カナ」と変更してもかまいません。コントロールソースプロパティがないテキストボックスはデザインビュー上で「非連結」と表示されます

このような「非連結」のテキストボックスを配置すると、テーブルのデータに影響しない自由な入力のできるテキストボックスになります。今回は五十音の各ボタンがあって、それぞれで動きを変えたいのでどのボタンを押したのかを覚えておく必要があります。フォームに専用のメモ書きを用意してるという感じです

間違える手順もなさそうですが念のため

動作チェックとして、「再クエリ」のアクションを削除して実行してみてください。テキストボックスに文字を入力するだけになりますがエラーがでますか？

次に、テキストボックスの名前とマクロで設定するコントロール名を変更して試してください（たとえば「test1」とか）

あとは・・・ボタンと非連結のテキストボックスは同じフォームの上にありますよね？

ただ、再クエリを追加するとコンボボックスに苗字カナが表示されますが、どれかを選ぶと「型が一致しません」と表示されます。

提示の内容はコンボボックスに抽出したリストを表示するまでの方法です。その後の「どれかを選ぶと何かしたい」は特に質問から見受けられないので回答に入れていません。

1. したいこと
2. 試したこと
3. その結果（今回は『「型が一致しません」と表示される』ですね）

これらを合わせて質問してください

本当は、コンボボックスに漢字で「苗字」と「名前」を表示させたかったのですが

クエリのフィールドには計算式が使えます。1列目の「苗字」のところを「氏名: [苗字] & [名前]」とすると表示できます

クエリにフィールドを追加すると、もっと変な表示(同一人物の名前が何個も続く)になってしまいました。

前提に一般的な話として、今のクエリの場合「苗字」だけなので、例えば従業員リストに

なんてデータがあると、コンボボックスには「鈴木」が3回並んでしまいますね。「氏名: [苗字] & [名前]」とすればある程度は解消しますが、同姓同名問題が起きる可能性は否定できません

ただ、これはあくまでも「クエリで表示される1行がそのまま表示される」だけでクエリにフィールドを増やしても行数が増えることはありません。クエリの設定に提示していない内容はありませんか？

例えばグループ化を設定している場合、「苗字」だけのクエリなら「鈴木」はすべて統合されて1行になりますが、「苗字」に加えて「名前」のフィールドも設けると、「鈴木」は共通でも「名前」が違うのでそれぞれ異なる1行になります。そのうえで「苗字」だけを表示するコンボボックスを設置すれば問題の状況になったりします

コンボボックスの内容はクエリの1列目と同じです（設定で変わりますが）。直接クエリを開いた場合、1列目は望む内容になっていますか？
クエリの表示自体がうまくいっていない場合クエリの組み方に問題があります

コンボボックスにアンザイ・イトウ・オカダ・アンザイ・イトウ・オカダ

>> 12で

ちなみにクエリは
フィールド　　　苗字　　　　　苗字カナ
テーブル　　　　基本情報　　　基本情報
並べ替え
表示　　　　　　チェック
抽出条件　　　　　　　　　　　Like [Forms]![基本情報1]![抽出用カナ]

このようにしています。

とあります。「苗字カナ」の「表示」はチェックなしですよね？表示なし、つまり存在しないデータがコンボボックスに表示されていることになってしまっています。クエリの名前とコンボボックスの値集合ソースの値を確認してください。>> 4では、ともに「Q従業員抽出」とすることにしましたが、実際は何にしましたか？

続きについては、クエリで正しい（望みの）リストが作れることと、コンボボックスの内容はクエリと全く同じになることが理解できないと実装できない部分なのでまずはここまでで見直しをしてください

「Q従業員抽出」を直接開いて内容を確認してみましたか？

クエリでほしいリストがきちんと作れているか確認しましょう。フォームとの連携はひとまずおいといて抽出条件を変更して確認してみてください

Like [Forms]![基本情報1]![抽出用カナ]
↓
Like "[ア-オ]*"

これでクエリを開くと、「あ」のボタンを押したときにコンボボックスに表示したい内容になりますか？

コンボボックスで起きているそのほかの不具合「苗字カナの内容（カタカナ）が表示される」「データがない」等は起きていないということでいいですか？
たとえば、「か」のボタンを押したと想定して"[ア-オ]*"を"[カ-コ]*"に変えてみたり、さらに"[サ-ソ]*"に変えてみたり等、試してみてください

この、手で書き換えている操作を、フォーム上の値を使って自動で書き換えようというのが

Like [Forms]![基本情報1]![抽出用カナ]

の目的です。抽出条件を再度Like [Forms]![基本情報1]![抽出用カナ]に設定して、今度はフォーム上の「抽出用カナ」テキストボックスに手入力で"[ア-オ]*"と入力してクエリを開いてみてください。抽出条件を手入力したとき（Like "[ア-オ]*"と入力したとき）と同じ内容が表示されてますか？

同じ方の名前が何度も(100回以上)繰り返されています。

クエリの元データにはどのようなデータ（テーブルorクエリ）を使っているんでしょうか？>> 15で説明していますがクエリのもとにしているデータに複数登録されていれば何度も出てきて当然になります。データベース運用から考えれば「同一人物の重複登録を許さないデータ（テーブル）」があるものと思います。きちんと指定できていますか？

クエリの内容でコンボボックスに見られるような異常が起きないのであれば、改めてボタンをクリックしたときの動作を確認してください。

「あ」のボタンを押す
→「抽出用カナ」テキストボックスに「[ア-オ]*」と入力される
→クエリ「Q従業員抽出」を開いて内容を確認する
→コンボボックスをクリックしてクエリの内容と同じものが表示されるか確認する

「か」のボタン「さ」のボタンでも同様の確認をする

ひとまずこれでフォームの作り、マクロの設定に異常がないか確認できます

クエリの結果が望んだ内容になっていないことは少し問題がずれるのでこのツリーからは外して改めて回答しなおします

コンボボックスが空白だということなので改めて設定を確認していきます

コンボボックスには値集合ソースに「Q従業員抽出」が指定してあります。なのでコンボボックスにはクエリに内容が表示されているはずです

Q従業員抽出の抽出条件を削除して保存した後フォームを開きなおすとコンボボックスにはクエリと同じ内容が表示されますか？

これが確認出来たらQ従業員抽出の抽出条件をLike "[ア-オ]*"にして保存しなおした後、フォームを開きなおします。コンボボックスにはクエリと同じ内容が表示されますか？

このような方法でクエリの内容をコンボボックスに表示することができることが確認できますが正しく動いていますか？

お世話になります。気づかず申し訳ありません。

SELECT 基本情報.苗字
FROM 基本情報, 基本情報 AS 基本情報_1
WHERE (((基本情報.苗字カナ) Like [Forms]![基本情報1]![抽出用カナ]));

このようになっています。

「あ」のボタンを押した後、従業員コンボボックスには、従業員の苗字が1回ずつ(同一名が繰り返されることなく)表示されました。
そして、名字を選択すると「型が一致しません」となります。

マクロ名
基本情報1 : 従業員コンボボックス : AfterUpdate : 埋め込みマクロ
アクション名
オブジェクトからレコードの検索
引数
-1, , 先頭のレコード, ="[従業員コード] = "& Str(Nz([Screen].[ActiveControl], 0))
エラー番号
2950

となっています。

引数
-1, , 先頭のレコード, ="[従業員コード] = "& Str(Nz([Screen].[ActiveControl], 0))

　　　　　　　　　　　　　　数値型　　　　　≠　　　　　文字型
　とりあえず、コンボボックスの表示問題は解決出来たという事でよろしいですか？この質問スレを解決済みにして新しい質問を立てましょう。下記の準備をやっておいて下さい。
　やりたい事の為には、従業員コードが出てくる「従業員テーブル、従業員抽出クエリ、ほにゃららフォームのコンボボックス(値集合ソース:従業員抽出クエリ)」が必要だと思います。
　Q従業員抽出が従業員抽出クエリに相当するならば、従業員コードのフィールドを追加、本番前のお試しクエリに相当するならば、新しいコンボボックス(値集合ソース:従業員抽出クエリ)を作って下さい。コンボボックスの連結列が従業員コードの列になるようにしておきましょう。