<div>
Hello Petrobras,<br />
<br />
Private Sub txtDateApprovedOrDeclined_<wbr />AfterUpdat<wbr />e()<br />
<br />
&nbsp; &nbsp; If Not(IsNull(Me.ApprovedorDe<wbr />clinedcbo)<wbr />) Then<br />
&nbsp; &nbsp; &nbsp; &nbsp; Me.Status = &quot;Inactive&quot;<br />
&nbsp; &nbsp; &nbsp; &nbsp; Me.PrcntComplete = &quot;100&quot;<br />
&nbsp; &nbsp; &nbsp; &nbsp; <br />
&nbsp; &nbsp; End If<br />
<br />
Regards,<br />
<br />
Jim
</div>


Hello Petrobras,

Private Sub txtDateApprovedOrDeclined_AfterUpdate()

    If Not(IsNull(Me.ApprovedorDeclinedcbo)) Then
        Me.Status = "Inactive"
        Me.PrcntComplete = "100"
       
    End If

Regards,

Jim

<div>
<div class="content wysiwyg-content">
Experts, would like to have this afterupdate event work but have a syntax. &nbsp;I have looked around on EE and did not find a solution so I decided to ask a question. &nbsp;It is my code so there might be a better way to code it. &nbsp;Basically, on AfterUpdate and if the field txtDateApprovedOrDeclined is not null (meaning that &nbsp;adate was entered) I would like the other two fields to say Inactive and 100. &nbsp;thank you<br />
<br />
Private Sub txtDateApprovedOrDeclined_<wbr />AfterUpdat<wbr />e()<br />
<br />
&nbsp; &nbsp; If (IsNotNull(Me.ApprovedorDe<wbr />clinedcbo)<wbr />) Then<br />
&nbsp; &nbsp; &nbsp; &nbsp; Me.Status = &quot;Inactive&quot;<br />
&nbsp; &nbsp; &nbsp; &nbsp; Me.PrcntComplete = &quot;100&quot;<br />
&nbsp; &nbsp; &nbsp; &nbsp; <br />
&nbsp; &nbsp; End If<br />
&nbsp; &nbsp; 
</div>
</div>


Experts, would like to have this afterupdate event work but have a syntax.  I have looked around on EE and did not find a solution so I decided to ask a question.  It is my code so there might be a better way to code it.  Basically, on AfterUpdate and if the field txtDateApprovedOrDeclined is not null (meaning that  adate was entered) I would like the other two fields to say Inactive and 100.  thank you

Private Sub txtDateApprovedOrDeclined_AfterUpdate()

    If (IsNotNull(Me.ApprovedorDeclinedcbo)) Then
        Me.Status = "Inactive"
        Me.PrcntComplete = "100"
        
    End If
    

If Is Not Null syntax

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.