Access VBA質問箱 IV

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

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


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

7081 / 9994

←次へ　｜　前へ→


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

赤い小鳩 - 05/8/31(水) 13:18 -


	引用なし

	パスワード

次のような場合インプットボックスがＮＵＬＬの場合は
エラーになってしまいます。
"入力項目が不正です"のようにメッセージを表示したいのですが
どなたかご教示下さいませんか。

Private Sub コマンド1_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim ipt As String
Dim AAA

Set cn = Application.CurrentProject.Connection
Set rs = New ADODB.Recordset
rs.Open "T_業者マスタ", cn, adOpenStatic, adLockReadOnly
rs.MoveFirst
ipt = InputBox("業者名検索：検索文字列を入力して下さい")
Do Until rs.EOF
rs.Find "業者名 Like *" & ipt & "*"
If rs.EOF Then
Exit Do
Else
AAA = AAA & rs!業者分類コード & " ： " & rs!業者コード & " ： " & rs!業者名 & " ： " & Format(rs![ﾃﾞｰﾀ作成日], "yymm") & "：" & rs!除 & Chr(13)
End If
rs.MoveNext
Loop
MsgBox AAA
rs.Close
cn.Close
End Sub

1,620 hits

▼

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

≪