استاذى العزيز م. قاسم السلام عليكم ورحمة الله
لقد قمت بتنزيل المرفق وعندما قمت بتشغيله اظهر لى هذا الخطا
وانا اعرف سبب ظهورة لان هناك مرجع 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 فيظهر فى مربع النص اسفل النموذج محموع تلك القيم المحددة - كما فى الاكسيل اذا قمنا بتظليل عدة خلايا على مستوى العمود يظهر فى شريط المعلومات مجموع تلك القيم؟
اعتذر للاطالة واشكر لكم سرعة استجابتكم لحل مشكلنى . حزاكم الله خيرا وزادكم علما وفضلا..
السلام عليكم ورحمة الله