| |
今作ろうとしているものは、フォームヘッダーに非連結のテキストボックスを作り
そこに文字を入力し、検索ボタンを押して、結果を詳細に表示させるやり方が分かりません、ご回答くださいます様宜しくお願いします。
一応、下記に私がイベントプロシージャで記述した物を表示しておきます。
この記述ではどうしてもデバックしてしまいます。ちなみに検索対象はタイトルです。
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
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
