هل يمكن عند تطابق بيانات في صف وليس عمود بواسطة استعلام يتم عملية الجمع للعمود المتطابق عن طريق نموذج عندي جدول متعمد علي شيت اكسيل اول عمود خاص بالتاريخ باقي الاعمدة عبارة عن لكل عمود رقم السيارة وتحته قيم علي حسب التاريخ الموجود في اول عمود هل يمكن عمل استعلام عن طريق نموذج عند وضع رقم السيارة وتاريخين يقوم بجمع القيم للسيارة بين التاريخين ؟ مع الاعتبار عن ارقام السيارات في صف وليس عمود ! نموذج من القاعدة مرفق Database19.zip

إذا فكرنا في ورقة البيات على أنها استعلام جدولي فنحن بحاجة إلى أخراج البيانات الوسطية وتسميتها في عامود بيانات مستقل وليكن (سعر الخدمة)، وحل رؤوس الأعمدة وتسميتها في عامود بيانات وليكن (رقم العربة) وعلى هذا تصبح بيانات الجدول الجديد (رقم العربة، تاريخ الخدمة، سعر الخدمة)... نقوم بإنشاء الجدول ثم نقوم بتشغيل الشفرة التالية لإلحاق البيانات بالجدول Sub UpendDataToTable() Dim RS As Recordset CurrentDb.Execute "Delete * From [Vehicle Services]" Set RS = CurrentDb.OpenRecordset("Sheet1") For i = 1 To RS.Fields.Count - 1 CurrentDb.Execute "Insert into [Vehicle Services]([Service Date],[Service Price], [Vehicle Number])" _ & "Select [Service Date],format([" & RS(i).Name & "],'Standard') As [Sevice Price],'" & RS(i).Name & "' AS [Vehicle Number] From Sheet1" Next End Sub وهذه الشفرة لجلب البيانات من أكسل مباشرة إلى الجدول الجديد Sub FetchExcelDataSheet(BookName, SheetName) Dim RS As Recordset Dim dbType dbType = "[EXCEL 12.0;HDR=YES;]" BookName = CurrentProject.Path & "\" & BookName SheetName = "[" & SheetName & "$]" CurrentDb.Execute "Delete * From [Vehicle Services]" Set RS = CurrentDb.OpenRecordset("Sheet1") For i = 1 To RS.Fields.Count - 1 CurrentDb.Execute "Insert into [Vehicle Services]([Service Date],[Service Price], [Vehicle Number])" _ & "Select [Service Date],format([" & RS(i).Name & "],'Standard') As [Sevice Price],'" _ & RS(i).Name & "' AS [Vehicle Number] From " & SheetName & " in'" & BookName & "'" Next End Sub وهذا التطبيق على المثال Database19.zip