conditional msgbox in a control

[raton]

i have bound data entry form. one field is textbox contain the primary key. if i type in the textbox then delete it and try to close it shows a msg
but i want my custom msg with yes no field. if i press yes button then the cursor will go to the textbox and if i press the no button then the form will close. how can i do that. help

[June7]

How are you closing form - command button or the X close?

What is the message you get?

[raton]

x close
the msg "the field (textbox name) cannot contain a null value bcs the required property for this field is true" yes no msgbox
click yes
access standard msgbox
"access encountered problem when save the record do you want to close the database object anyway"

[June7]

Closing a form is one way an initiated record is committed to the table. The record was initiated when value entered entered the textbox, and because it is a required field, the record can't save until it has a value. Try the Undo method. In the form's Close event. http://msdn.microsoft.com/en-us/libr...ffice.11).aspx

If IsNull(Me.textboxname) Then
If MsgBox("No primary key. Cancel record?", vbYesNo) = vbYes Then
Me.Undo
Else
Cancel = True
End If

[raton]

Thanks June
1. its almost working fine.
your Code is ok
but after form open when i typed something in the textbox and delete it and press the enter button then the msgbox shows
if i press the yes button of msgbox, the textbox get focus after that i do not typed anything and press the enter then the msgbox
is not shown and the cursor go to the next control though the textbox is null......................


2. when i click the X button of the form
i want a msg with yes no. if i click yes, form will close but if i press no
the form won't close. how can i do that
i am trying the code mentioned below but no condition of the msgbox is not working



Private Sub Form_Close()
If IsNull(Me.tblpid) Then
If MsgBox("no primary key Typed." & vbCrLf & "Do You Want to Close?", vbQuestion + vbYesNo, "confirm") = vbYes Then
Me.Undo
Else
Cancel = True
DoCmd.CancelEvent
End If
End If
End Sub

[June7]

I actually never used Close event. I normally disable the X close button and use command button to control closing. So my suggestion was a quick brainstorm last night. Now I have chance to test and not having success with Close event. I tried BeforeUpdate and it almost works. Can't get rid of the 'Can't save record at this time' warning message.

Private Sub Form_BeforeUpdate(Cancel As Integer)
If IsNull(Me.Text40) Then
    If MsgBox("Close", vbYesNo) = vbYes Then
        Me.Undo
        Cancel = True
    End If
End If
End Sub

Annoying thing about Close and Unload events is they run even if you switch to Design view.

This all reminds me why I disable the X close button.

[raton]

many many thanks, june
for your genorus help