I have written the following, but if the "Edition_Number" field is empty, it
will store an empty record, how can I make it look at that field to see if
there is any text or not?
Private Sub Close_Edition_Number_Form_Click()
On Error GoTo Err_Close_Edition_Number_Form_Click

DoCmd.Save
DoCmd.Close

Exit_Close_Edition_Number_Form_Click:
Exit Sub

Err_Close_Edition_Number_Form_Click:
MsgBox Err.Description
Resume Exit_Close_Edition_Number_Form_Click

End Sub
Thank you in anticipation for your help in this matter.

StevenIpek. wrote:

> I have written the following, but if the "Edition_Number" field is
> empty, it will store an empty record, how can I make it look at that
> field to see if there is any text or not?
> Private Sub Close_Edition_Number_Form_Click()
> On Error GoTo Err_Close_Edition_Number_Form_Click
>
> DoCmd.Save
> DoCmd.Close
>
> Exit_Close_Edition_Number_Form_Click:
> Exit Sub
>
> Err_Close_Edition_Number_Form_Click:
> MsgBox Err.Description
> Resume Exit_Close_Edition_Number_Form_Click
>
> End Sub
> Thank you in anticipation for your help in this matter.

Try:

....
If Len("" & Me!Edition_Number) > 0 Then
DoCmd.Save
End If
....

Acki

if not isnull(edition_number) then
runcommand accmdsaverecord ' which I prefer over docmd.save
docmd.close acform, me.name
end if

StevenIpek. wrote:

> I have written the following, but if the "Edition_Number" field is empty, it
> will store an empty record, how can I make it look at that field to see if
> there is any text or not?
--
Bas Cost Budde, Holland
http://www.heuveltop.nl/BasCB/msac_index.html
For human replies, replace the queue with a tea

For starters DoCmd.Save saves the form NOT the record. The record is
"quietly" being saved by Access in the background when the form closes. You
need to change this to:
DoCmd.RunCommand acCmdSaveRecord

Any edit code of this nature MUST be placed in the FORM's BeforeUpdate
event. No other event will be satisfactory. If you attempt to put it
anywhere else, you will need to place it in multiple events in order to trap
all the situations in which Access quietly (without notifying you) saves a
record. In the BeforeUpdate event, you can cancel the update if the
required field is empty:

Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.Edition_Number = "" or IsNull(Me.Edition_Number) Then
Cancel = True
MsgBox "blah, blah, blah", vbOKOnly
Me.Edition_Number.SetFocus
End If
End Sub
"StevenIpek." <(E-Mail Removed)> wrote in message
newsFC7EAF2-C3E0-4948-8F4A-(E-Mail Removed)...
> I have written the following, but if the "Edition_Number" field is empty,
it
> will store an empty record, how can I make it look at that field to see if
> there is any text or not?
> Private Sub Close_Edition_Number_Form_Click()
> On Error GoTo Err_Close_Edition_Number_Form_Click
>
> DoCmd.Save
> DoCmd.Close
>
> Exit_Close_Edition_Number_Form_Click:
> Exit Sub
>
> Err_Close_Edition_Number_Form_Click:
> MsgBox Err.Description
> Resume Exit_Close_Edition_Number_Form_Click
>
> End Sub
> Thank you in anticipation for your help in this matter.