Access2003 検索フォームの作成について
Access2003で検索フォームを作成しようと思うのですが、
過去の質問を見てもわからなかったので投稿します
帳票形式で全てのデータを表示する一覧画面フォームと
画面のフッター部分に検索ワードを入れるテキストボックス
(名前は 検索ボックス)を作成し
そこでエンターキーが押下された場合に検索結果一覧画面のフォームを開き、帳票形式で検索結果を表示しようと思います
データベースについては既にエクセルからインポートしてあります
(名前は テーブル)
検索結果は複数あることがあります
一覧画面フォームを作成するところまでは出来たのですが...
その先の検索結果を表示するフォームがうまくいきません
一覧画面フォームの検索ボックスの内容*********
Private Sub 検索ボックス_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Docmd.OpenForm "検索結果画面", acNormal, , , , acDialog, Me.検索ボックス.Value
End If
End Sub
*********************************************
検索結果一覧画面の内容***********************
Private Sub Form_Open(Cancel As Integer)
Me.検索したボックス.Value = Me.OpenArgs
Dim 変数名1 As New ADODB.Connection
Dim 変数名2 As New ADODB.Recordset
Dim 変数名3 As String
Set 変数名1 = Application.CurrentProject.Connecton
Set 変数名2 = 変数名1.Execute("SELECT * FROM テーブル WHERE 検索したい列名1 = Me.OpenArgs OR 検索したい列名2 = Me.OpenArgs")
Do Until 変数名3.EOF
Debag.Print 変数名3!列名1, 変数名3!列名2
変数名3.MoveNext
Loop
変数名1.Close
変数名2.Close
Set 変数名1 = Nothing
Set 変数名2 = Nothing
End Sub
*******************************************
検索したボックスについてはテキストボックスで
~~で検索しました。 と表示するために用意したものです
検索したボックスについてはうまく検索ボックスの内容が表示されていますが、検索結果が出てきません どなたかご存知の方ご教示お願いします
お礼
ご回答ありがとうございました。