Access VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

6689 / 9994

←次へ　｜　前へ→


	【6506】Re:ではサンプルをまた一つ

Saiyama - 05/10/16(日) 20:56 -


	引用なし

	パスワード

小僧さん
　こんばんは。
　何度も質問をしてしまい、すみません。よろしくお願いします。

>適当なフォームを作成し、
>
>リストボックス: lstフィールド名
>コマンドボタン: クエリ作成
作成完了。
>を配置して下さい。
>lstフィールド名の方は複数選択を「標準」に設定して下さい。
設定完了。
>まず、フォームの読み込み時のイベントに
>
>Private Sub Form_Load()
>'要参照 DAO x.x Object Library
>Dim RS As DAO.Recordset
>Dim i As Long
>
>　　Me.lstフィールド名.RowSourceType = "Value List"
>
>　　Set RS = CurrentDb.OpenRecordset("テーブルＡ", dbOpenSnapshot)　
>　　　　For i = 0 To RS.Fields.Count - 1
>　　　　　　Me.lstフィールド名.AddItem RS(i).Name
>　　　　Next
>　　RS.Close: Set RS = Nothing
>
>End Sub
>
>のようにイベントを組み込みます。
>
>これでフォームを開くと、リストボックスにフィールドの一覧が表示されると思います。
実行しましたら、「コンパイルエラー：メソッドまたはデータメンバが見つかりません」
メッセージが出ています。
変更したのは、以下の二点です。
※OpenRecordsetの「テーブル名」→テーブルＡへ書き換えました
※DAO x.x Object Library→DAO 3.6 Object Libraryに設定した

361 hits

▼

【6460】フィールドの選択について Saiyama 05/10/12(水) 22:44