Access VBA質問箱 IV

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

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


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

6674 / 9994

←次へ　｜　前へ→


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

Saiyama - 05/10/17(月) 22:34 -


	引用なし

	パスワード

小僧さん　こんばんは、返事をいただき、ありがとうございます。テストの結果を報告します。 >Ac2002 以降でないと、AddItem メソッドは使えない模様ですね。 >お持ちの Access が2002未満でしたら下のようなコードで試されてみて下さい。こちらの環境：ＰＣのＯＳはＭＥですが、Access2002を使っています。 > 以下のコードで、試しましたが、やはり改善されずに、前回と同様なエラーがでています。 >Private Sub Form_Load() >'要参照 DAO x.x Object Library >Dim RS As DAO.Recordset >Dim i As Long >Dim strItem As String > >　　Me.lstフィールド名.RowSourceType = "Value List" > >　　Set RS = CurrentDb.OpenRecordset("テーブルＡ", dbOpenSnapshot) >　　　　For i = 0 To RS.Fields.Count - 1 >　　　　　　'Me.lstフィールド名.AddItem RS(i).Name >　　　　　　strItem = strItem & ";" & RS(i).Name >　　　　Next >　　　　　　Me.lstフィールド名.RowSource = Mid(strItem, 2) >　　RS.Close: Set RS = Nothing >End Sub