isempty does not work on new records

[Raul Sousa]

If the field DocId as any data I want the user to be able to print a report.
If the field DocId the user will not have the option to print.
I have built the above code.
The problem is that it acts as if DocId was never empty. Not even in a new
record, with any data.

Private Sub Form_Close()
Dim strMsg As String

If Not IsEmpty(Me.DocID) Then
strMsg = "Deseja imprimir o documento?"
If MsgBox(strMsg, vbQuestion + vbYesNo, "Impressão") = vbYes Then
DoCmd.OpenReport "Factura", acViewNormal, "", "", acNormal
End If
End If
End Sub

I can’t understand why. Can anyone help me?

 

[Douglas J. Steele]

IsEmpty is only intended to work with variables.

You appear to be trying to use it with either a control on a form, or a
field in that form's Recordsource.

Assuming that you have no default value set for the control or field, try
using the IsNull function instead.

 

[Raul Sousa]

Thank you for your reply,
I tried with isnull, the same result.

Private Sub Form_Close()
Dim strMsg As String

If Not Isnull(Me.DocID) Then
strMsg = "Deseja imprimir o documento?"
If MsgBox(strMsg, vbQuestion + vbYesNo, "Impressão") = vbYes Then
DoCmd.OpenReport "Factura", acViewNormal, "", "", acNormal
End If
End If
End Sub


"Douglas J. Steele" escreveu:

 

[Douglas J. Steele]

Do you have a default value defined to DocID?

 

[Raul Sousa]

No.
The field is empty, on new records.

"Douglas J. Steele" escreveu: