テキストボックスに再度値を格納して実行するには？ (ID:109152)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 早速のご返事ありがとうございます。 教えていただいた、コードを元にコードを作り直してみました。 Private Sub CmdSansho_Click() Dim StrShohinName As String Dim Rs As ADODB.Recordset Dim SQ As String Dim IntHinmokuCode As Integer Dim StrUserMsg As String Set Rs = New ADODB.Recordset IntHinmokuCode = CInt(TxtHinmokuCode.Text) SQ = "SELECT 品目コード, 商品名 FROM 品目マスター WHERE 品目コード = " + CStr(IntHinmokuCode) + "" Call Rs.Open(SQ, Cn, adOpenStatic, adLockOptimistic) If Rs.Fields("品目コード") = CStr(IntHinmokuCode) Then TxtShohinName.Text = Rs.Fields("商品名") Else MsgBox "品目マスターのフィールドには、その品名コードとそれに対 応する商品名がありません。" TxtHinmokuCode = "" Rs.Close IntHinmokuCode = 0 SQ = "" StrUserMsg = InputBox("正しい品目コードを入力してください。") If Not StrUserMsg = "" Then TxtHinmokuCode.Text = StrUserMsg Call CmdSansho_Click Else Do While StrUserMsg = "" StrUserMsg = InputBox("正しい品目コードを入力してくだ さい。") TxtHinmokuCode.Text = StrUserMsg Loop Call CmdSansho_Click End If End If Rs.Close Set Rs = Nothing End Sub としてみましたが、この中で End If Rs.Close Set Rs = Nothing End Sub となっているのですが、デバックを実行してみると、End Sub を抜けた後、また End If Rs.Close Set Rs = Nothing End Sub のコードのEnd Ifに戻ってきて一度 Rs.Closeを実行してレコードセットオブジェクトを閉じた のに、もう一度Rs.Closeを実行してしまい 閉じたオブジェクトは操作できませんとか実行時エラーが発生してしまうの ですが、これは最後の Rs.Close Set Rs = Nothing の部分を削除するとうまくいくと思うのですが、 ほかのプロシジャーでもレコードセットオブジェクトを生成して Openしたいので、End Subの前の部分で レコードセットオブジェクトをCloseしておきたいのですが、 どうしたらいいのでしょうか？