نجوم المشاركات

تم التعديل جمع salim2.rar

تم التعديل قليلاً على الملف 1-بحيث يسمح لك بالكتاية داخل الورقة حتى و لو كان اليوزر ظاهراً 2- لا حاجة للترقيم (اكسل يفعل ذلك اوتوماتيكياً) لذلك جعلت Text1 غير فعّال بيان2 Salim.rar

السلام عليكم ورحمة الله وبركاته ممتاز جدا لكن كيف اعمل جدول جامل للسنه كامله كما المثال المرفق

تم وضع الكود DoCmd.GoToRecord , , acLast عند حدث تحميل النموذج والكود هذا شغال والمشكلة كانت في التسلسل والفرز ، فأنا عملت فرز في الاستعلام جرب ووافني بالنتيجة test4.rar

نعم الفكرة كانت واردة ولكن لاحظ ان استعلام التوحيد هذا ينتج من تشغيل 50 استعلام واكثر طريقة ابي ابراهيم اكثر احترافية

الاخوة الافاضل السلام عليكم ورحمة الله لو سمحتم ممكن انشاء فورم اكسيل لاستخراج نتيجة بين تاريخين يعني مثلا ازداد طفل بتاريخ15/02/2012 و تارخ اليوم 01/09/2017 فما هو عدد السنوات وعدد الشهور وعدد الايام ويتكون الفورم من تكستبوكس لادخال تاريخ الازدياد وتكستبوكس تاريخ اليوم او الان وتكسبوك لنتيجة عدد السنين واخرى لعدد الشهور واخرى للايام جزاكم الله خيرا

إذا فكرنا في ورقة البيات على أنها استعلام جدولي فنحن بحاجة إلى أخراج البيانات الوسطية وتسميتها في عامود بيانات مستقل وليكن (سعر الخدمة)، وحل رؤوس الأعمدة وتسميتها في عامود بيانات وليكن (رقم العربة) وعلى هذا تصبح بيانات الجدول الجديد (رقم العربة، تاريخ الخدمة، سعر الخدمة)... نقوم بإنشاء الجدول ثم نقوم بتشغيل الشفرة التالية لإلحاق البيانات بالجدول 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

تم التطبيق على 4 اعمدة يمكنك اكمال البقية ملحوظة : اسم الحقل في اكسس لا بد ان يبدأ بحرف Data99.rar

هل يمكنك ارسال نسخة مصغرة عن قاعدة البيانات ؟؟

اكيد جدولك هذا مخالف لطرق تصميم قواعد البيانات الصحيحة وانصحك بعد المتابعة ، وان تسلك الطرق الصحيحة ومع ذلك يمكن تحقيق مطلبك ولكن لا بد من تهيئة وتجهيزات خاصة اولا : تنسخ جميع ارقام السيارات وتضعها بجدول خاص يشتمل على حقل واحد ثانيا : تعمل استعلام تحديد تدرج فيه جميع الحقول وتضع معيار Between في حقل التاريخ ثالثا تعمل استعلام تجميعي مصدره الاستعلام السابق الآن يمكن جلب المجاميع بناء على شروط : رقم السيارة ، والتواريخ المحددة

لم توضح طريقة اتصال هذا النموذج بالجداول ؟ اذا المصدر لهذا النموذج استعلام يجمع هذه الجداول فيمكنك الوصول الى السجل الاخير باستخدام احد الدالتين : Dmax اذا يوجد ترقيم تلقائي بحيث ترجع الدالة اكبر رقم تم تسجيله او الدالة Dlast للذهاب الى آخر سجل وقبل كل هذا جرب اولا استخدام هذا الامر DoCmd.GoToRecord , , acLast

اخى الكريم على حامد فى الملف المرفق تجد ورقتين عمل باسم الطباعة الاولى لملف العمل بالكامل بمجرد وضع رقم المسلسل يظهر كافة التفاصيل والورقة الثانية لكل اسم على حدة بدلالة رقم المسلسل ايضا اتمنى من الله ان يكون هذا ما تريد ملاحظة ... لوجود مشكلة فى تحميل الملفات عندى على الموقع ... اذا لم يعمل الملف بشكل جيد يمكنك تحميله من الرابط التالى http://kaitect.com/ihP salim1مرتبات-على.rar

في حال وجود سيرفر و ارتباط فروع الشركة مع هذا السيرفر فانت لست بحاجة الى استضافة كل ما تحتاجه هو وضع قاعدة البيانات على السيرفر و الاتصال بها

أخواني في المنتدى.. محاولة بسيطة مني في تبسيط عمل الكود وجعله مرن مع خيار التراجع. إليكم المرفق: sub total loop.rar

For i = rowdiv To lastRow Step rowdiv 'اكتب هنا الكود المناسب Next اخي الزباري لماذا المرور على كل العامود خلية خلية في حين يمكنك استعمال هذه For Netx في الكود ملاحظة اخرى يمكنك استعمال هذا الكود البسيط للتراجع Sub salim_way() On Error Resume Next lastRow = Range("b1").End(xlDown).Row Range("a2:a" & lastRow).SpecialCells(4).EntireRow.Delete Range("c2:c" & lastRow).SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete End Sub ارجو تقبل هذه الملاحظات و ذلك من اجل كود اسرع و متكامل وخدمة للاخرين حيث بمكن ان يكون هناك بيانات كبيرة مما يوفر الوقت

اضف هذا السطر الى الكود مباشرة قبل End Sub Target_Sheet.Columns.AutoFit

تم معالجة الامر Emploi salim Hidden.rar

تحية طيبة اخي محمد هذا مرفق جديد يحتوي على بعض التعديلات جرب ووافينيا بالنتيجة Link All Table From Sql DataBase 2.rar

ولكن بعد التشغيل وعند الضغط على الزر (اختيار السيرفر) يظهر الخطأ التالى:- وهذا ما جعلنى اكتبه يدوياً فى المرة الاولى مع العلم بان المرجع SQLDMO.DLL موجود بجوار القاعدة تحياتى

تحية طيبة اخي محمد عند تشغيل البرنامج اضغط على زر (اختيار السيرفر) ثم اضغط على القائمة المنسدلة الاولى عندها سيتم اظهار السيرفرات المتوفرة على جهازك وبعد اختيار السيرفر مباشرة ستظهر قواعد البيانات المتوفرة على السيرفر في القائمة المنسدلة الثانية ( قواعد بيانات نظام SQL لن تظهر وهي master - model - msdb - tempdb ) اود التاكيد على ان نسخة SQL التي تم الاختبار عليها هي SQL Server 2005 اما نسخة 2000 فقد اكتشفت انها تعطي خطا واعمل على حلها

نعم ممكن ذلك ان شاء الله نورت الموضوع اخي السيد جمال وفقنا الله و اياكم جميعا

اتابع ابداعك بصمت وفقك الله

يشهد الله اكثر من سنتين و انا افكر في هذا الكود لكن دون اي فائدة اود ان اشكر اخي جمال السيد فهو من اعطاني بذرة الفكرة ودفعني للبحث للوصول لهذا النتائج الحمدلله الذي هدانا لهذا و ما كنا لنهتدي لو لا ان هدانا الله التطبيق القادم باذن الله انشاء قاعدة بيانات SQL وتصدير كافة الجداول لها بواسطة الكود (بدون استخدام معالج التكبير)

يمكن تجربة هذا الملف (ماكرو) Tarhil1.rar

السلام عليكم و رحمة الله و بركاته اخي عماد حياك الله و يوجد تعديل يمكن عمله على الكود اعلاه بحيث يتم اضافة هايبر لينك في كل صفحة لتعيدنا إلى الصفحة الرئيسية ========= و دمت في حفظ الله