ما الخطا فى هذا الكود عند الضغط على لا يحفظ السجل ايضا

للمساعدة

كودك بعد التصحيح:

On Error GoTo err_Error_msg

If IsNull(Reference) Then
    MsgBox "Please add Referance ", vbOKOnly + 64, "Job Code"
    DoCmd.CancelEvent
    Reference.SetFocus
    
    
ElseIf IsNull(Type_a) Then
    MsgBox "Please Insert Type", vbOKOnly + 64, "Work Done"
    DoCmd.CancelEvent
    tyep_a.SetFocus
    Exit Sub

ElseIf IsNull(Vendor) Then
    MsgBox "Please Select Vendor", vbOKOnly + 64, "Status"
    DoCmd.CancelEvent
    Vendor.SetFocus
    Exit Sub

ElseIf IsNull(account_No) Then
    MsgBox "Please Select account Number", vbOKOnly + 64, "Status"
    DoCmd.CancelEvent
    account_No.SetFocus
    Exit Sub

ElseIf IsNull(Amount) Then
    MsgBox "Please Add Amount", vbOKOnly + 64, "Status"
    DoCmd.CancelEvent
    Amount.SetFocus
    Exit Sub

ElseIf IsNull(Currency_a) Then
    MsgBox "Please Select Currency", vbOKOnly + 64, "Status"
    DoCmd.CancelEvent
    Currency_a.SetFocus
    Exit Sub

ElseIf IsNull(Invoice_Date) Then
    MsgBox "Please add invoice Date", vbOKOnly + 64, "Status"
    DoCmd.CancelEvent
    Invoice_Date.SetFocus
    Exit Sub

ElseIf IsNull(Accrual_Date) Then
    MsgBox "Please Add Accrual Date", vbOKOnly + 64, "Status"
    DoCmd.CancelEvent
    Accrual_Date.SetFocus
    Exit Sub

ElseIf IsNull(Stauts) Then
    MsgBox "Please Select Status", vbOKOnly + 64, "Status"
    DoCmd.CancelEvent
    Stauts.SetFocus
    Exit Sub

ElseIf IsNull(Received_By) Then
    MsgBox "Please Select Received By", vbOKOnly + 64, "Status"
    DoCmd.CancelEvent
    Received_By.SetFocus
    Exit Sub

End If


    Dim Msg, Style, Resp
    Msg = "Are You Want to save ?"    ' Define message.
    Style = vbYesNo + vbExclamation    ' Define buttons.

    Resp = MsgBox(Msg, Style)
    If Resp = vbYes Then    ' User chose Yes.
        DoCmd.RunCommand acCmdSave
        DoCmd.GoToRecord , , acNewRec
        Reference.SetFocus
    
    Else    ' User chose No.
        Response = acDataErrContinue
        Cancel = True
        Me.Undo
        
    End If

Exit Sub
err_Error_msg:
    
    MsgBox Err.Number & vbCrLf & Err.Description

جعفر

بارك الله فيك اخى العزيز جعفر

وتسلم يديك

حياك الله :)