[mso] Re: Access 2002: Checking For Nulls On Form Close
- From: "Jim Pettit" <j_e_pettit@xxxxxxxxxxx>
- To: <mso@xxxxxxxxxxxxx>
- Date: Thu, 10 Jun 2004 14:06:55 -0700
Cathy--
You've written:
If Nz(Me!Project.SetFocus, "") = "" Then
You need to remove dot and the the SetFocus method from those calls:
If Nz(Me!Project, "") = "" Then
You've got it in all three 'If - Then' clauses
--Jim
-----Original Message-----
From: mso-bounce@xxxxxxxxxxxxx [mailto:mso-bounce@xxxxxxxxxxxxx] On
Behalf Of Cathy.Evans@xxxxxxxxx
Sent: Thursday, June 10, 2004 2:01 PM
To: mso@xxxxxxxxxxxxx
Subject: [mso] Re: Access 2002: Checking For Nulls On Form Close
>>>Can you post your code and we can try to help you troubleshoot why it
>>>is
popping up the first message box<<<
Here it is, thank you!
Private Sub Form_BeforeUpdate(Cancel As Integer)
If Nz(Me!Project.SetFocus, "") = "" Then
MsgBox "Please fill in Project Number", vbOKOnly +
vbExclamation, "Must Complete Information!"
Me!Project.SetFocus
Cancel = True
Me.Undo
Exit Sub
End If
If Nz(Me!Type.SetFocus, "") = "" Then
MsgBox "Please fill in Order Type", vbOKOnly + vbExclamation,
"Must Complete Information!"
Me!Type.SetFocus
Cancel = True
Me.Undo
Exit Sub
End If
If Nz(Me!DateIssue.SetFocus, "") = "" Then
MsgBox "Please fill in Issue Date", vbOKOnly + vbExclamation,
"Must Complete Information!"
Me!DateIssue.SetFocus
Cancel = True
Me.Undo
End If
End Sub
------------------------------------------------------------------------
-----------------------------
The information transmitted is intended only for the person
or entity to which it is addressed and may contain 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). //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).
//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:
