Why wont this simple code work!

[Bob]

All I want is the record not to save unless there is data in Both, cbOwnerID
and TbAmountpaid
Private Sub cmdClose_Click()
If IsNull(cbOwnerID) And (TbAmountPaid) Then
If Me.Dirty Then
Me.Undo
End If
End If

DoCmd.Close acForm, Me.Name

End Sub

 

[David F Cox]

If I am seeing this right (I should be in bed) it should be :
IsNull(cbOwnerID) OR IsNull (TbAmountPaid) then
' data not present in both fields
....
Else

 

[Ken Snell \(MVP\)]

What happens when you use this code? If it is "failing", are you sure that
your form's data have not already been saved before the code runs (such that
Me.Dirty is False)?

 

[Bob]

David using your code nothing is saving, not even if i have data in both
fields
Funny thing is I can get either one to work but not together, here they are
seperate that do work:
Thanks for any help.................Bob
-------------------------------------------------------------------------------
Private Sub cmdClose_Click()
If IsNull(cbOwnerID) Then
If Me.Dirty Then
Me.Undo

End If

DoCmd.Close acForm, Me.Name
End If
End Sub
-----------------------------------------------------------------------------------
Private Sub cmdClose_Click()
If IsNull(tbPaidAmount) Then
If Me.Dirty Then
Me.Undo

End If

DoCmd.Close acForm, Me.Name
End If
End Sub
-------------------------------------------------------------------------------------------

 

[Bob]

Oops 2 different DBs !!

David using your code nothing is saving, not even if i have data in both
fields
Funny thing is I can get either one to work but not together, here they
are seperate that do work:
Thanks for any help.................Bob
-------------------------------------------------------------------------------
Private Sub cmdClose_Click()
If IsNull(cbOwnerID) Then
If Me.Dirty Then
Me.Undo

End If

DoCmd.Close acForm, Me.Name
End If
End Sub
-----------------------------------------------------------------------------------
Private Sub cmdClose_Click()
If IsNull(tbPaidAmount) Then
If Me.Dirty Then
Me.Undo

End If

DoCmd.Close acForm, Me.Name
End If
End Sub

 

[JK]

Bob,

In the table(s), for each of the fields properties

Required=Yes
Validation Rule: <>0
Validation Text: (the message you want to see when the rule is violated)


Make sure that all the records already in table conform with this rule
before you make these changes

Regards
Jacob

 

[Allan Murphy]

Should the code read
IsNull(cbOwnerID) AND IsNull (TbAmountPaid) then