<div>
<div class="content wysiwyg-content">
I'm using the following code and it works fine for the most part, however it allows the user to move to the next record after the second &nbsp;attemp without entering the date resolved. How do I require the user to enter the date resolved before moving to the next record.<br />
<br />
Private Sub Form_BeforeUpdate(Cancel As Integer)<br />
If Not IsNull(Me.ResolveCode) And IsNull(Me.DateResolved) Then<br />
MsgBox &quot;Please enter the Date Resolved&quot;, vbExclamation, &quot;FSB GovTrip&quot;<br />
<br />
&nbsp; &nbsp; &nbsp; &nbsp; Me.DateResolved.SetFocus<br />
&nbsp; &nbsp; &nbsp; &nbsp;<br />
&nbsp; &nbsp; &nbsp; &nbsp;Exit Sub<br />
&nbsp; &nbsp; End If<br />
<br />
&nbsp; &nbsp; <br />
&nbsp;<br />
&nbsp;<br />
End Sub
</div>
</div>


I'm using the following code and it works fine for the most part, however it allows the user to move to the next record after the second  attemp without entering the date resolved. How do I require the user to enter the date resolved before moving to the next record.

Private Sub Form_BeforeUpdate(Cancel As Integer)
If Not IsNull(Me.ResolveCode) And IsNull(Me.DateResolved) Then
MsgBox "Please enter the Date Resolved", vbExclamation, "FSB GovTrip"

        Me.DateResolved.SetFocus
       
       Exit Sub
    End If

    
 
 
End Sub

Access Required Fields

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.