التحقق من ادخال جميع الحقول

ارجو من اخواني الكرام التكرم بمساعدتي في التحقق من إدخال جميع الحقول في نموذج وقد ارفقت دالة كنت قد حصلت عليها من برنامج قمت بتحميله من هذا المنتدى الرائع ولكن لا اعرف طريقة وضع الـ Function الموجود في الوحدة النمطية في الملف المرفق في النموذج في حدث قبل التحديث (أو خلافه إن كان هناك مكان أفضل ) ..

آمل التكرم بالمساعدة ودمتم بخير ،،

Function fncFormFieldRequired(frm As Form) As Boolean
fncFormFieldRequired = False
Dim ctl As Control
    For Each ctl In frm.Controls
        If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
            If IsNull(ctl) And ctl.Locked = False And ctl.BackColor <> vbWhite Then
                MsgBox "يجب عدم ترك الحقول باللون الازرق!" & vbCrLf & "تحقق", vbOKOnly
                ctl.SetFocus
                Exit Function
            End If
        End If
    Next ctl
fncFormFieldRequired = True
End Function

التحقق من إدخال جميع الحقول.rar