Problems Deleting a record.

I have a simple Form that adds records to a table in my Database.
It has a command button called "Clear all Fields" which will (unbelievably) clear all the fields on the Form. To accomplish this I have the following Code in the form:

Private Sub CMD_Clear_Fields_Click()
'Clears values for all items in form.

confirmclearfield = MsgBox("Clearing the Fields will delete delete this record without saving. Do you wish to continue?", vbYesNo)

If (confirmclearfield = 6) Then


DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.SetWarnings True



End If

End Sub

Now, this command works perfectly IF the user has entered data in every field.
However, if they have not entered data in a couple of the fields (fields which, incidentally, have relationships to child tables) and they try to clear, they get this error: "You cannot Add or Change a record because a related record is required in TBL_Efficiency."

I know these relationships are set up correctly. They are very simple and (I think at least) I know what I'm doing. I think this is just related to something I need to do to workaround deleting the record when those fields are blank.

Any suggestions you have would be greatly appreciated.

Thx so much!

Kris

Undo the changes before you delete

If Me.Dirty Then
Me.Undo
End If
If Not Me.NewRecord Then
RunCommand acCmdDeleteRecord
End If

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Kris L." wrote in message
...
I have a simple Form that adds records to a table in my Database.
It has a command button called "Clear all Fields" which will
(unbelievably) clear all the fields on the Form. To accomplish this I have
the following Code in the form:

Private Sub CMD_Clear_Fields_Click()
'Clears values for all items in form.

confirmclearfield = MsgBox("Clearing the Fields will delete delete this
record without saving. Do you wish to continue?", vbYesNo)

If (confirmclearfield = 6) Then


DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.SetWarnings True



End If

End Sub

Now, this command works perfectly IF the user has entered data in every
field.
However, if they have not entered data in a couple of the fields (fields
which, incidentally, have relationships to child tables) and they try to
clear, they get this error: "You cannot Add or Change a record because a
related record is required in TBL_Efficiency."

I know these relationships are set up correctly. They are very simple and
(I think at least) I know what I'm doing. I think this is just related to
something I need to do to workaround deleting the record when those fields
are blank.

Any suggestions you have would be greatly appreciated.

Thx so much!

Kris