Access VBA質問箱 IV

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

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


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

7079 / 9994

←次へ　｜　前へ→


	【6112】Re:インプットボックスがＮＵＬＬの場合

MJM - 05/8/31(水) 14:14 -


	引用なし

	パスワード

こんにちは。

>次のような場合インプットボックスがＮＵＬＬの場合は
>エラーになってしまいます。

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

1,646 hits

▼

【6110】インプットボックスがＮＵＬＬの場合 赤い小鳩 05/8/31(水) 13:18