Access VBA質問箱 IV

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

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


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

2563 / 9994

←次へ　｜　前へ→


	【10703】検索ボックスにあいまいな文字を入力し検索を出力する

まる子 - 08/11/9(日) 1:23 -


	引用なし

	パスワード

今作ろうとしているものは、フォームヘッダーに非連結のテキストボックスを作り
そこに文字を入力し、検索ボタンを押して、結果を詳細に表示させるやり方が分かりません、ご回答くださいます様宜しくお願いします。
一応、下記に私がイベントプロシージャで記述した物を表示しておきます。
この記述ではどうしてもデバックしてしまいます。ちなみに検索対象はタイトルです。

Option Compare Database
Option Explicit
Private Sub 検索_click()
Dim wCNN As ADODB.Connection
Dim wRec As ADODB.Recordset
Dim strSQL As String

Set Me.Recordset = Nothing
Me.注文コード.ControlSource = ""
Me.グループ別.ControlSource = ""
Me.タイトル.ControlSource = ""

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

strSQL = "SELECT * FROM ﾘｽﾄ印刷19"
If IsNull(Me.タイトル検索) = False And Len(Me.タイトル検索) <> 0 Then
　strSQL = strSQL & "WHERE タイトル Like '%" & Me.タイトル検索 & "%'"
End If
strSQL = strSQL & ";"
wRec.Open strSQL, wCNN, adOpenStatic, adLockReadOnly
If wRec.EOF = False And wRec.BOF = False Then
Set Me.Recordset = wRec
Me.注文コード.ControlSource = wRec("注文コード").Name
Me.グループ別.ControlSource = wRec("グループ別").Name
Me.タイトル.ControlSource = wRec("タイトル").Name
End If
wRec.Close

Set wCNN = Nothing
Set wRec = Nothing

Me.Requery
End Sub

278 hits

▼

【10703】検索ボックスにあいまいな文字を入力し検索を出力する まる子 08/11/9(日) 1:23