<div>
Private Sub txtCompleted_AfterUpdate()<wbr /><br />
<br />
&nbsp; &nbsp; If Me.txtDateCompleted.Value = &quot;&quot;&nbsp;Then<br />
&nbsp; &nbsp; &nbsp; &nbsp; Me.txtDateCompleted.Value = Date()<br />
&nbsp; &nbsp; Else<br />
&nbsp; &nbsp;<br />
&nbsp; &nbsp; End If<br />
&nbsp; &nbsp;<br />
End Sub
</div>


Private Sub txtCompleted_AfterUpdate()

    If Me.txtDateCompleted.Value = "" Then
        Me.txtDateCompleted.Value = Date()
    Else
   
    End If
   
End Sub

<div>
Lee that's not it either. &nbsp;<br />
<br />
I probably named txtCompleted incorrectly (I just noticed this actually). &nbsp;It is a value list combo box with value Yes or No. &nbsp;<br />
<br />
maybe that changes something?
</div>


Lee that's not it either.  

I probably named txtCompleted incorrectly (I just noticed this actually).  It is a value list combo box with value Yes or No.  

maybe that changes something?

<div>
No points please!<br />
<br />
How about:<br />
<br />
1. &nbsp;Changing the name of the combo box to cboCompleted<br />
<br />
2. &nbsp;Changing the AfterUpdate event to:<br />
<br />

<pre><code id="code-20-40697095-1">Private sub cboCompleted_AfterUpdate()

    Me.txtDateCompleted = iif(NZ(me.cboCompleted, &quot;&quot;) = &quot;Yes&quot;, Date(), NULL)

End Sub</code></pre>
This will make the DateCompleted NULL if cboCompleted is anything other than &quot;Yes&quot; and todays date if it is &quot;Yes&quot;
</div>


No points please!

How about:

1.  Changing the name of the combo box to cboCompleted

2.  Changing the AfterUpdate event to:



Private sub cboCompleted_AfterUpdate()

    Me.txtDateCompleted = iif(NZ(me.cboCompleted, "") = "Yes", Date(), NULL)

End Sub

This will make the DateCompleted NULL if cboCompleted is anything other than "Yes" and todays date if it is "Yes"

<div>
thank you. &nbsp;It was an education and I hopefully will retain it. &nbsp;<br />
<br />
:)
</div>


thank you.  It was an education and I hopefully will retain it.  

:)

<div>
<div class="content wysiwyg-content">
Experts, the below code is my code and I know it is wrong. &nbsp;<br />
I think you can see what I am trying to do.<br />
I need to update txtDateCompleted to today's date.<br />
<br />
thx<br />
<br />
Private Sub txtCompleted_AfterUpdate()<wbr /><br />
<br />
&nbsp; &nbsp; If Me.txtDateCompleted = &quot;&quot;&nbsp;Then<br />
&nbsp; &nbsp; &nbsp; &nbsp; Me.txtDateCompleted = Date<br />
&nbsp; &nbsp; Else<br />
&nbsp; &nbsp; <br />
&nbsp; &nbsp; End If<br />
&nbsp; &nbsp; <br />
End Sub
</div>
</div>


Experts, the below code is my code and I know it is wrong.  
I think you can see what I am trying to do.
I need to update txtDateCompleted to today's date.

thx

Private Sub txtCompleted_AfterUpdate()

    If Me.txtDateCompleted = "" Then
        Me.txtDateCompleted = Date
    Else
    
    End If
    
End Sub

Update to today's date

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.