| |
winXP
Access2002です。
以下についてパラメータが足りないとのメッセージが出てしまいます。
恐らくフィルタの指定についてうまくないのだと思いますがわかりません。
どなたかご指導お願いします。
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strMsg As String
Dim strRet As String
Set db = CurrentDb
Set rs = db.OpenRecordset("T_業者ﾏｽﾀ", dbOpenDynaset)
strRet = InputBox("業者名に含まれる文字列を入力して下さい。", "")
If strRet = "" Then
MsgBox "入力が不正です。"
End
End If
rs.Filter = "業者名 like '*' & " & strRet & " & '*'"
Set rs = rs.OpenRecordset()
Do Until rs.EOF
strMsg = strMsg & vbNewLine & rs!業者コード & " : " & rs!業者名 & " : " & rs!業者区分
rs.MoveNext
Loop
MsgBox "検索結果" & vbNewLine & strMsg
Set db = Nothing
Set rs = Nothing
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
