Display custom error if field is null or zero

[steve87bg]

I have a code,

Private Sub Dodaj_Click()

DoCmd.RunCommand acCmdSaveRecord
DoCmd.SetWarnings False
DoCmd.OpenQuery ("QDodaj")
DoCmd.SetWarnings True

On Error GoTo Err_Dodaj_Click


DoCmd.GoToRecord , , acNewRec
Me.DatumKnjizenja.SetFocus
Me.DatumKnjizenja = ""

Me.Kom = 0
Me.Gr = 0

Me.Dodaj.Enabled = False

Exit_Dodaj_Click:
Exit Sub

Err_Dodaj_Click:
MsgBox Err.Description
Resume Exit_Dodaj_Click

End Sub

I whant if me.kom or me.Gr is null or zero to display custom error

[June7]

Why does the code set Kom and Gr to 0?

Use MsgBox.

If Nz(Me.Kom,0) =0 Or Nz(Me.Gr) = 0 Then
MsgBox "Kom or Gr or both are empty or equal to zero."
End If