|
▼レラ さん:申し訳ありません。分岐処理しましたが、OKボタンを押すと閉じてしまうので登録することができません。OKボタンを押しても入力画面が表示されたままにするにはどうしたらいいでしょうか?
>▼Jaka さん:
>>>Private Sub cmdTojiru_Click()
>>> Dim myBtn As Integer
>>> Dim myMsg As String, myTitle As String
>>> myMsg = "入力内容を確認し登録してから閉じてください"
>>> myTitle = "登録確認"
>>> myBtn = MsgBox(myMsg, vbAbortRetryIgnore + vbExclamation, myTitle)
>>
>> これで、各ボタンを押した時の番号がわかります。
>> その番号で、分岐処理すればいいです。
>> msgbox myBtn
>>
>>> 'フォームを閉じる
>>> Unload 出庫データダイアログ
>>>
>>> End Sub
>
> Jaka様
>
> 解決いたしました。ありがとうございました。本当に助かりました。またわからないことがあったら、よろしくお願いいたします。 レラ
|
|