السلام عليكم ورحمة الله عندي كود لزر حفظ البيانات في الجدول لكن عندي خلل في المرفقات لا أعرف تعديل الكود   ياريت لو ممكن احد يتفضل بالمساعدة وشكرا   Private Sub add_Click() If IsNull(Me.Title) Or IsNull(Me.iso) Then MsgBox "xxxxxxxxxxxxx " 'MsgBox Exit Sub Else Dim Rs As DAO.Recordset Set Rs = CurrentDb.OpenRecordset("unread") Rs.AddNew Rs!id = id Rs!Title = Title Rs!User = User Rs!Date = Date Rs!Time = Time()