Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1935 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【4568】コンボボックスの値を自動表示 fanny 05/3/12(土) 12:27 質問[未読]
【4569】Re:コンボボックスの値を自動表示 Gin_II 05/3/12(土) 16:22 回答[未読]
【4571】Re:コンボボックスの値を自動表示 hatena 05/3/14(月) 10:18 回答[未読]
【4568】コンボボックスの値を自動表示
質問  fanny  - 05/3/12(土) 12:27 -
引用なし
パスワード
   コンボボックスをクリックして表示される値を、操作する方法について質問します。コンボボックスに最初の一文字を入力すると、その文字を先頭とする入力候補
をテーブルの値から自動的に抽出し表示させたいのですが、どのようにしたらいいでしょうか？
【4569】Re:コンボボックスの値を自動表示
回答  Gin_II  - 05/3/12(土) 16:22 -
引用なし
パスワード
   >コンボボックスに最初の一文字を入力すると、その文字を先頭とする入力候補
>をテーブルの値から自動的に抽出し表示させたいのですが、

そのようになっていませんか？
【4571】Re:コンボボックスの値を自動表示
回答  hatena  - 05/3/14(月) 10:18 -
引用なし
パスワード
   >コンボボックスをクリックして表示される値を、操作する方法について質問します。
>コンボボックスに最初の一文字を入力すると、その文字を先頭とする入力候補
>をテーブルの値から自動的に抽出し表示させたいのですが、どのようにしたらいいでしょうか？

自動拡張が「はい」になっていれば、先頭一致するデータを検索して
拡張表示しますが、それではだめですか。

リストを抽出したいのでしょうか。
もしそうなら、まずコンボボックスの価集合ソースの抽出条件を
Like [コンボボックス名] & "*"
と設定して置いて、変更時イベントを下記のように設定します。

Private Sub コンボボックス名_Change()
Dim p As Integer
　　p = Me.コンボボックス名.SelStart
　　Me.コンボボックス名.Value = Me.コンボボックス名.Text
　　Me.コンボボックス名.Requery
　　Me.コンボボックス名.SelStart = p
End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1935 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078263
(SS)C-BOARD v3.8 is Free