| |
こんにちわ。
フォームの入力値のチェックがしたいので、下のように記述してみましたが、うまく動きません。
Property Let プロシージャが定義されていないので、値を返せないというエラーが出ます。
解決方法をよろしくお願いします。
Private Sub 入力チェック_Click()
On Error GoTo Err_入力チェック_Click
If Me!I類計<> Me!I類計２ Then
MsgBox ("調整額を正しく入力してください。")
Me!I類計.SetFocus
End If
If Me!特別控除１ <> Me!特別控除算出１ Then
MsgBox ("特別控除の値を確認してください。")
Me!特別控除１.SetFocus
End If
If IsNull(Me!差引計) Or IsNull(Me!生活費) Then
MsgBox ("差引が空欄です。確認してください。")
Me!収入合計.SetFocus
End If
Exit_入力チェック_Click:
Exit Sub
Err_入力チェック_Click:
MsgBox Err.Description
Resume Exit_入力チェック_Click
End Sub
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
