| |
こんにちは。
>次のような場合インプットボックスがＮＵＬＬの場合は
>エラーになってしまいます。
NULLではなく、長さ0("")ではないでしょうか？
以下のようにされては如何でしょう。
Private Sub コマンド1_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim ipt As String
Dim AAA
Dim strSQL As String
ipt = InputBox("業者名検索：検索文字列を入力して下さい")
If ipt = "" Then
Msgbox "入力項目が不正です"
Exit Sub
End If
Set cn = Application.CurrentProject.Connection
Set rs = New ADODB.Recordset
strSQL = "SELECT 業者分類コード, 業者コード, 業者名, ﾃﾞｰﾀ作成日, 除 " & _
"FROM T_業者マスタ WHERE 業者名 Like '*" & ipt & "*'"
rs.Open strSQL, cn, adOpenStatic, adLockReadOnly
If Not rs.EOF Then
AAA = AAA & rs!業者分類コード & " ： " & rs!業者コード & " ： " & rs!業者名 & " ： " & Format(rs![ﾃﾞｰﾀ作成日], "yymm") & "：" & rs!除 & Chr(13)
End If
MsgBox AAA
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
