[mso] Re: Access 2002: Syntax For Double If Statement?

Cathy--

First things first. You wrote: "Tried adding an If [ProjActionDate] Is Not
Null or [ProjActionDate] = "", but don't have it quite right cause then it
does nothing." That's easy to see; you're telling it to do nothing. The
statement:

If [ProjActionDate] Is Not Null or [ProjActionDate] = ""
        Do something
End If

...is akin to telling the computer:

If the [ProjActionDate] has a value, or if it *doesn't* have a value
        Do something
End If

Anyway, that may just be a type. So, please try this:

Private Sub ProjActionTypeID_FK_AfterUpdate()
        Select Case [ProjActionTypeID_FK]
                Case "1"
                        If [ProjActionDate] & "" = "" Then
                                [ProjActionDate] = Now()
                        End If  
                Case "2"
                        If [ProjActionDate] & "" = "" Then
                                [ProjActionDate] = Now()
                        End If
                        [ProjActionNotes] = "No Commitments"

                Case Else
        End Select
End Sub

Notes:
        1) I've use the 'Select Case' statement; it's very handy, easy to
understand, and much more flexible for future use.
        2) I placed the line '[ProjActionNotes] = "No Commitments"' outside
the If...Then, as I'm not sure whether you wanted it to execute or not;
change it as you see fit.
        3) Your code contained an extra 'End If'; I left it out, as it
seemed like a type.

--Jim 

-----Original Message-----
From: mso-bounce@xxxxxxxxxxxxx [mailto:mso-bounce@xxxxxxxxxxxxx] On Behalf
Of Cathy.Evans@xxxxxxxxx
Sent: Friday, June 24, 2005 12:10 PM
To: mso@xxxxxxxxxxxxx
Subject: [mso] Access 2002: Syntax For Double If Statement?


What do I need to do to prevent the below from writing Now() if
ProjActionDate is not null?  The sub runs on the after update event of my
combo box.

Tried adding an If [ProjActionDate] Is Not Null or [ProjActionDate] = "",
but don't have it quite right cause then it does nothing.  Below writes
current date to ProjActionDate, but sometimes there is already a value there
and I don't want to overwrite what is already there if that's the case.  How
can I prevent the overwrite if a value is already there?  Thank you, Cathy

Private Sub ProjActionTypeID_FK_AfterUpdate()
    If [ProjActionTypeID_FK] = "1" Then
    [ProjActionDate] = Now()
    Else
    If [ProjActionTypeID_FK] = "2" Then
    [ProjActionDate] = Now()
    [ProjActionNotes] = "No Commitments"
    End If
    End If
End Sub



----------------------------------------------------------------------------
-------------------------
The information transmitted is intended only for the person or entity to
which it is addressed and may contain proprietary, business-confidential
and/or privileged material.
If you are not the intended recipient of this message you are hereby
notified that any use, review, retransmission, dissemination, distribution,
reproduction or any action taken in reliance upon this message is
prohibited. If you received this in error, please contact the sender and
delete the material from any computer.  Any views expressed in this message
are those of the individual sender and may not necessarily reflect the views
of the company.  
----------------------------------------------------------------------------
---------------------------

*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or
MicrosoftOffice@xxxxxxxxxxxxxxxx

To send mail to the group, simply address it to mso@xxxxxxxxxxxxx

To Unsubscribe from this group, send an email to mso-request@xxxxxxxxxxxxx
with the word "unsubscribe" (without the quotes) in the subject line.

Or, visit the group's homepage and use the dropdown menu.  This will also
allow you to change your email settings to digest or vacation (no mail).
http://www.freelists.org/webpage/mso

To be able to use the files section for sharing files with the group, send a
request to mso-moderators@xxxxxxxxxxxxx and you will be sent an invitation
with instructions.  Once you are a member of the files group, you can go
here to upload/download files:
http://www.smartgroups.com/vault/msofiles
*************************************************************

*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or 
MicrosoftOffice@xxxxxxxxxxxxxxxx

To send mail to the group, simply address it to mso@xxxxxxxxxxxxx

To Unsubscribe from this group, send an email to 
mso-request@xxxxxxxxxxxxx with the word "unsubscribe" (without the quotes) in 
the subject line.

Or, visit the group's homepage and use the dropdown menu.  This will also allow 
you to change your email settings to digest or vacation (no mail).
http://www.freelists.org/webpage/mso

To be able to use the files section for sharing files with the group, send a 
request to mso-moderators@xxxxxxxxxxxxx and you will be sent an invitation with 
instructions.  Once you are a member of the files group, you can go here to 
upload/download files:
http://www.smartgroups.com/vault/msofiles
*************************************************************

Other related posts: