Access VBA質問箱 IV

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

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


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

8925 / 9994

←次へ　｜　前へ→


	【4222】コンボボックスへのセット方法

Aiz - 05/1/20(木) 15:07 -


	引用なし

	パスワード

▼クロさん：
ありがとうございます。おかげさまで抽出のほうは上手くいきました。

便乗の質問なんですが、この抽出したデータをコンボボックスに設定したいのですが、どうも上手くいきません。
すいません、ご助言のほうよろしくお願いします。

　　'コンボボックスに出力対象となる出力テーブル名をセットする処理
　　Dim CN As New ADODB.Connection
　　Dim RS As New ADODB.Recordset
　　Dim criteria As String
　　　
　　'接続
　　Set CN = CurrentProject.Connection
　　
　　'レコードセットを取得
　　Set RS = New ADODB.Recordset
　　'出力対象フラグが"1"且つ、表示順位の昇順で抽出
　　criteria = "SELECT 名前 FROM テーブル名 WHERE 出力対象=1 ORDER BY 表示順;"
　　RS.Open criteria, CN, adOpenKeyset, adLockOptimistic
　
　　If RS.RecordCount = 0 Then
　　　　Call showError("現在、出力可能なマスタ情報は存在しません。")
　　　　Exit Sub
　　Else
　　　　Do Until RS.EOF
　　　　　　Debug.Print RS!NMテーブル名
　　　　　　RS.MoveNext
　　　　Loop
　　End If

　　'終了
　　RS.Close:　Set RS = Nothing
　　CN.Close:　Set CN = Nothing

354 hits

▼

【4216】コンボボックスにテーブルの値をセットす... Aiz 05/1/20(木) 10:55