Access VBA質問箱 IV

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

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


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

8126 / 9994

←次へ　｜　前へ→


	【5049】Re:コンボボックスの値を検索条件にしたい...

小僧 - 05/5/19(木) 13:34 -


	引用なし

	パスワード

▼orange さん：
こんにちは。

ご提示されたコードでいくつか疑問があるのですが…。

>　　If IsNull(Me.検索項目) = False And Len(Me.検索項目) <> 0 Then
>　　If IsNull(Me.検索コード) = False And Len(Me.検索コード) <> 0 Then

　　検索項目、検索コードの値が入っていたらExit Subしてしまうのですが…。

>　　Me.検索項目コンボ.SetFocus

　　フォーム上に「検索項目コンボ」と「検索項目」と２つのコントロールが
　　別にあるわけではないですよね？

あとは実際にSQLを発行する直前までのコードを書いて、

>　Set wCNN = Application.CurrentProject.Connection
>　Set wRec = New ADODB.Recordset

以下の処理をコメント化して

　 Debug.Print strSQL

でイミディエトウィンドウに表示されるSQLが正しいかを検証してから
SQL発行後の処理を作ってみてはいかがでしょうか？

266 hits

▼

【5046】コンボボックスの値を検索条件にしたいのですが... orange 05/5/19(木) 12:01