Change to Save Record!

[Bob V]

Can this Close Control On my form be change that instead of Not saving the
record , but to save it by entering "zSpare" into the text box on the form
[tbName] text field ,which is in [tblHorseInfo]
In that case I will have records under this name to use at a later date? and
not getting big gaps in my increment numbers
Thanks for any help...........Bob

Private Sub cmdClose_Click()


If IsNull(Me.subHorseDetailsChild.Form.OwnerID) Then
If Me.Dirty Then
Me.Undo
End If
If IsNull(Me.subHorseDetailsChild.Form.OwnerID) Or _
(IsNull(tbName) And IsNull(cbFatherName)) Then

If Me.Dirty Then
Me.Undo
End If

End If
End If

DoCmd.Close acForm, Me.Name