Prompt on close and don't save the null record

[hasanrazaj1]

Slaam to all.
hey everyone.

i have form with some txt fields and close button.

i want that when user click on close button then access generate a message with yes and no button.

which is such as" Are you sure to close Application" vb yes or no
when use press yes then access check only two fields for null and if both or one null then record not saved in table all things work good but only saving issued not solved. for this purpose i used cancel = true if msgbox = vbyes but it save the record even both fields are empty. what problem with code I cann't understand.

the code behind close button is :


-------------------------------------------------------------------------

Private Sub cmdClose_Click()
Dim strmsg As String
On Error GoTo Err_cmdClose_Click

strmsg = "Are you sure to close Application"

If MsgBox(strmsg, vbQuestion + vbYesNo, "Close Application") = vbYes Then
    If IsNull(Me.WithDrawAmount) Or IsNull(Me.Description) Then
        MsgBox ("Record will be not saved")
        End If
Cancel = True
DoCmd.Close acForm, "WithDrawSpecial"
Else
    If IsNull(Me.WithDrawAmount) Or IsNull(Me.Description) Then
    Me.WithDrawAmount.BorderColor = vbRed
    Me.Description.BorderColor = vbRed
    End If
End If

Exit_cmdClose_Click:
    Exit Sub

Err_cmdClose_Click:
    MsgBox Err.Description
    Resume Exit_cmdClose_Click
    
End Sub

----------------------------------------------------------------
any ideas, suggestion, will be appreciated.

[hasanrazaj1]

this code works good. i have a main form "Account" where i click on cmdWithDrawAmount button to open withdrawspecial form for amount entry in concern account record. withdrawspecial form open using openArgs properity for opening in same record as in "Account".

Form withdrawspecial also have some other fields like accountid which filledup automically by Account OpenArgs Properity. TranscationID (autonumber) field, WithDrawAmount field and Description fields.

i want that when user open withdrawspecial form for amount entry but he click on close button to close the form without filling WithDrawAmount field and Description field then access generate message box with yes or no button. if user click on yes then form close without saving the records and if he/she click on no then both fields border get red.

is it impossible to prevent saving the record if only two above said fields empty.

[slave138]

This change might work in your function:

...
If MsgBox(strmsg, vbQuestion + vbYesNo, "Close Application") = vbYes Then
    If IsNull(Me.WithDrawAmount) Or IsNull(Me.Description) Then
        MsgBox ("Record will be not saved")
        DoCmd.RunCommand acCmdUndo
    End If
    DoCmd.Close acForm, "WithDrawSpecial"
Else
    If IsNull(Me.WithDrawAmount) Or IsNull(Me.Description) Then
        Me.WithDrawAmount.BorderColor = vbRed
        Me.Description.BorderColor = vbRed
        DoCmd.CancelEvent
    End If
End If
...

Move the function to the BeforeUpdate event instead of the OnClose.