I am using the following code from another post to check a form fill in box upon close. If the textbox is null or empty I want a message saying so and then cancel the save operation.  The code is not working. What am I missing?

Private Sub Document_Close() Dim iChk If ActiveDocument.Saved = False Then iChk = MsgBox("do you want to save the changes to " & ThisDocument.Name & "?", vbYesNoCancel, "check if document changed") Select Case iChk Case 6 If IsNull(text1) Then MsgBox ("you need to fill in the text1") MsgBox "Cancel" Exit Sub End If MsgBox "Yes" Case 7 MsgBox "No" Case 2 MsgBox "Cancel" End Select End If

____________________________
Richard

Hi there,

OK, looking at your code you are getting iChk to return a result from your message box, and then deciding what to do with a select case statement.  What I don't understand is why you are testing for 6,7 and 2. If it were me the code would be:-

Select Case iChk
   Case VbYes
       [Do This]
   Case VBNo
       [Do This]
   Case VBCancel
       [Do This]
Ens Select

I don't see how the code can work whilst you are testing for those numbers instead of the VB keywords.

Try it, and see if it solves your problem.

Shady

____________________________
I don't wanna die... but I ain't keen on livin' either

Hi Richard,

I can see why Shady is saying to use the VBKeyWords rather than their current values - that way if Microsoft ever change the Return Values from the MessageBox your code will still work. However, there is technically nothing wrong with using the ACTUAL return values in your code. It is not this that is preventing your code from working but the fact that the Document_Close Event cannot be cancelled. You therefore need to check content before the close event is called.


____________________________
multi-tasking - the ability to hang more than one app. at the same time.