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

名前

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

本文 方法はいろいろあると思いますが、 まずCmdSansho_Clickのプロシージャ内で Call CmdSansho_Click と、自分自身を呼び出すという処理、私ならまずやらないです。 Set Rs = New ADODB.Recordset Retry: ’ラベルをここに追加 IntHinmokuCode = CInt(TxtHinmokuCode.Text) （省略） Call CmdSansho_Click この呼び出しを Goto Retry に書き換えて、再度処理をする。 なんか、CmdSansho_Clickのボタンをクリックしたら最後、正しい品目コードを入力して処理を実行しないかぎり、途中でキャンセルすることが出来ないというのが ちょっと引っかかります。（まあそういう仕様であればしょうがないですけど） 正しく動作させるために、あちこちにGoto文を入れないといけない感じだったので、あんまりよろしくないかと。 ここから先は余計なアドバイス＾＾； End If ErrLabel: ’ここにラベルをおいておく。ラベル以降は終了時に必要な処理。 Rs.Close Set Rs = Nothing End Sub で、正しい品目コードが取れない場合 InputBoxを使うのではなく、メッセージボックスでメッセージだけ出して Goto ErrLabel でCmdSansho_Clickプロシージャを終了する。（Call CmdSansho_Clickは無し） そしたらユーザーは、テキストボックスに正しい品目コードを入れて直して CmdSanshoボタンを再度クリックする。 っていう流れのほうが、すっきりするような・・・