كيف احل رسالة الخطاء

وعليكم السلام :)

هذا الخطأ ، لان الجدول فاضي :)

اضف السطر الثاني الى الكود اللي عندك:

Private Sub ÑÞã_ÇáÕäÝ_AfterUpdate()
On Error GoTo err_Number_AfterUpdate

واضف هالاسطر قبل End Sub

     
Exit Sub
err_Number_AfterUpdate:

    If Err.Number = 3021 Then
        Resume Next
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Sub

يعني الكود يصير هكذا:

جعفر

255.1.الجرد اليومي.mdb.zip