استاذى العزيز م. قاسم السلام عليكم ورحمة الله
 
	لقد قمت بتنزيل المرفق وعندما قمت بتشغيله اظهر لى هذا الخطا 
 
	وانا اعرف سبب ظهورة لان هناك مرجع Doa 3.6  غير مفعل واذا اردت تنزيله يصدر لى رسالة خطا وذلك لانى استخدم اوفيس اصدار حديث 2016 ، وقد بحثت فى حل تلك المشكله باستخدام التعبير Dim rs As ADODB.Recordset  اظهر لى خطا عند rs.edit  فقمت بتعطيلها ، فاظهر خطا اخر type mishmash وذلك لان الحقل رقمى وليس نصى فقمت بتعديل الكود ليتوافق مع النوع الرقمى للحقل كما يلى :  Dim rs As ADODB.Recordset 
	    Dim sql As String 
	    Dim tmpNumber As String 
	     
	    sql = "SELECT Employee.SER FROM Employee;" 
	    Set rs = CurrentDb.OpenRecordset(sql) 
	     
	    If rs.RecordCount > 0 Then 
	        tmpNumber = Nz(rs!SER, 0) 
	    End If 
	     
	    Set rs = Nothing 
	    'logic to increment number 
	    If tmpNumber = "" Then 
	        GetNewCustomerNumber = "1" 
	     Else 
	        tmpNumber = (tmpNumber) + 1 
	         
	             End If
 
	فاظهر لى رسالى ان اسم الجدول customer  غير موجود اصلحته الى اسم الجدول الصحيح employee  فاظهر نفس الخطا 
 
	اى ان الكود لايعمل بكفاءة ، اما عن توضيح النقطة الثالثة الاساسية فانا اريد تحديد قيم متتابعة فى عمود sum  فيظهر فى مربع النص اسفل النموذج محموع تلك القيم المحددة - كما فى الاكسيل اذا قمنا بتظليل عدة خلايا على مستوى العمود يظهر فى شريط المعلومات مجموع تلك القيم؟
 
	اعتذر للاطالة واشكر لكم سرعة استجابتكم لحل مشكلنى . حزاكم الله خيرا وزادكم علما وفضلا.. 
 
	السلام عليكم ورحمة الله