I'm not too familiar with VB... but I think your problem is with setting the value of the field.
 
I believe it should be:
 
Private Sub Doneby_AfterUpdate()
If Forms![SCANFORM]!StartTime Is Null Then
        Forms![SCANFORM]!StartTime.SetFocus
        Forms![SCANFORM]!StartDate.Value = CStr(Date)
        Forms![SCANFORM]!StartTime.SetFocus
        Forms![SCANFORM]!StartTime.Value = CStr(Time)

   Else: Forms![SCANFORM]!StartTime = Not Null
        Forms![SCANFORM]!StopDate.SetFocus
        Forms![SCANFORM]!StopDate.Value = CStr(Date)
        Forms![SCANFORM]!StopTime.SetFocus
        Forms![SCANFORM]!StopTime.Value = CStr(Time)
End If
            
End Sub

 


brazilianbound <[EMAIL PROTECTED]> wrote:
Hey all!

Can someone tell me what is wrong with my IF statement - I know i'm
close but it's making me nuts.

Basically what i'm trying to do is that on After_Update, if Startime
is
empty, then put the time in and also the startdate.  If it is not
empty
then populate the StopTime & StopDate. - Thanks!

Private Sub Doneby_AfterUpdate()
If Forms![SCANFORM]!StartTime Is Null Then
        Forms![SCANFORM]!StartTime.SetFocus
        Forms![SCANFORM]!StartDate.Text = CStr(Date)
        Forms![SCANFORM]!StartTime.SetFocus
        Forms![SCANFORM]!StartTime.Text = CStr(Time)

   Else: Forms![SCANFORM]!StartTime = Not Null
        Forms![SCANFORM]!StopDate.SetFocus
        Forms![SCANFORM]!StopDate.Text = CStr(Date)
        Forms![SCANFORM]!StopTime.SetFocus
        Forms![SCANFORM]!StopTime.Text = CStr(Time)
End If
            
End Sub





YAHOO! GROUPS LINKS








Please zip all files prior to uploading to Files section.




SPONSORED LINKS
Microsoft access developer Microsoft access help Microsoft access database
Microsoft access training Microsoft access training course Microsoft access programming


YAHOO! GROUPS LINKS




Reply via email to