Microsoft Access 掲示板

Microsoft Access 掲示板

フォームの入力漏れ防止について / 1

2 コメント
views
4 フォロー
1
hiroton 2021/07/29 (木) 10:45:11 85289@f966d

Function プロシージャは戻り値が取れるのでその結果で条件分岐すればいいでしょう

Public Function 入力漏れ() As Boolean
 Dim myCtrl As Control

 For Each myCtrl In Screen.ActiveForm.Controls
        If myCtrl.Name Like "txt*" Then
         If IsNull(myCtrl.Value) Then
            MsgBox "入力必須項目に入力漏れがあります"
'            Cancel = True
            入力漏れ = True
            Exit Function
         End If
        End If
    Next
  入力漏れ = False

End Function

プロシージャはExitステートメントで中断することができます

  If Module1.入力漏れ Then Exit Sub
通報 ...