|
▼YU-TANG さん:
>▼Seri さん:
>>ご意見ありがとうございます。
>
>ということは、後出し NG 路線を変える気は無い、ということですね。
>ま、何をもって使いやすいとするかは人それぞれなので、それも良い
>でしょう。
>
>前回のレスにも書いたとおり、入力規則で対応する方法は分かりません
>ので、後はフォームの [エラー時] イベントを使うくらいでしょうか。
>
># ヘルプの使用例そのまんまですが。
>
>Private Sub Form_Error(DataErr As Integer, Response As Integer)
>
> Const conInvalidDataType = 2113
> Dim strMsg As String
>
> If DataErr = conInvalidDataType Then
> Response = acDataErrContinue
> strMsg = "数値を入力してください。"
> MsgBox strMsg
> ActiveControl.Undo
> End If
>
>End Sub
>
>それでは、頑張ってください。
ありがとうございます。がんばります。
|
|