kanory

-------->>>>>> تفضل ::::::: تجربة_7652.accdb

حياك الله .... الحمد لله رب العالمين

مشاركة مع استاذي الغالي @kha9009lid استخدم هذا الكود Dim db As DAO.Database Dim rs As DAO.Recordset Dim str As String str = "SELECT Table1.ID, Table1.barcode, Table1.police, Table1.FindBarcod, Table1.countBarcod FROM Table1 WHERE (((Table1.police) Is Null));" Set db = CurrentDb Set rs = db.OpenRecordset(str) Dim i As Integer For i = 1 To Me.Text0 rs.Edit rs!police = Me.Text2 rs.Update rs.MoveNext Next i rs.Close Set rs = Nothing تفضل .... New Microsoft Access Database.mdb

حياك الله اخي الكريم ..... بالتوفيق

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

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

غير مصدر النموذج الى TABLEMARKAZ1 بدلا من STABLEMARKAZ1

ربما هذا المطلب .... جرب المرفق !! DATE _1.accdb

وعليكم السلام اخي بلال لي ملاحظة على موضوعاتك :::::::: انت تطرح الاسئلة و لا تتابع أو تتفاعل مع الاجابات التي ترد للموضوع مثل هذا الموضوع ::::: لكن على كل حال انظر الصورة وطبق ::::::

اعتقد المشكلة لديك في نوع العلاقة !!!!

هذه طريق اخرى تم استخدام هذا الكود ... On Error Resume Next If DCount("ID", "تذيل المبيعات", "[رقم_الباركود_ت] = '" & xxx1 & "' And [رقم الفاتورة] = " & kan & "") > 0 Then DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE [تذيل المبيعات] SET [تذيل المبيعات].العدد = [تذيل المبيعات].[العدد]+1 WHERE ((([تذيل المبيعات].رقم_الباركود_ت)=[forms]![فاتورة مبيعات]![تذيل المبيعات].[Form]![xxx1]) AND (([تذيل المبيعات].[رقم الفاتورة])=[forms]![فاتورة مبيعات]![رقم الفاتورة]));" Me.Undo DoCmd.RunSQL "DELETE DISTINCTROW [تذيل المبيعات].العدد, [تذيل المبيعات].رقم_الباركود_ت, [تذيل المبيعات].[رقم الفاتورة] FROM [تذيل المبيعات] WHERE ((([تذيل المبيعات].العدد)=1) AND (([تذيل المبيعات].رقم_الباركود_ت)=[forms]![فاتورة مبيعات]![تذيل المبيعات].[Form]![xxx1]) AND (([تذيل المبيعات].[رقم الفاتورة])=[forms]![فاتورة مبيعات]![رقم الفاتورة]));" DoCmd.SetWarnings True Else Me.سعر_البيع.Requery Me.سعر_البيع = Me.سعر_البيع.ItemData(0) [Forms]![فاتورة مبيعات]![تذيل المبيعات]![نص40] = [Forms]![فاتورة مبيعات]![تذيل المبيعات]![نص40] - [Forms]![فاتورة مبيعات]![تذيل المبيعات]![العدد] DoCmd.Requery End If تجربة_7652.accdb

متابع بصمت ... بارك الله في الجميع

بارك الله فيك اخي احبك الله الذي احببتنا فيه الحمد لله الذي بفضله تتم الصالحات

حياك الله اخي الكريم ... التعديلات في الاتي ::::::::: الجداول : TableFields الاستعلامات : qry_Items_Dates_31 qry_Items_Pages_3 النماذج : frm_Main التقارير : rpt_Items_Dates_3 rpt_Items_Pages_3 ======================================= بالتوفيق ,,,,,,,,,

جزاك الله خير اخي الحبيب ... واياك ... جرب المرفق التالي هناك اضافة وهي اخفاء بقية الحقول في حال اختيارك لمستودع واحد أو اكثر .... بدلا من الفراغ في الجدول ... DATA555 - kanory.mdb

واياك اخي الكريم .... بارك الله فيك .... المشكلة لديك ليس في الاستيراد ... لأن طريقة الاستيراد التي في البرنامج تصلح لاستيراد اي ملف اكسل ,,, ولكن المشكلة في ملف الاكسل لديك أن المعلومات متداخلة ... فتطلب كتابة كود يستخلص هذا البيانات حسب كل ادارة أو مكتب ... هنا كانت المشكلة

رفع الله قدرك اخي الكريم ... وأشكرك على طول صبرك ... والحمد لله وجدنا الوثت لمساعدتك قدر الامكان ... انظر المرفق والصور لعل هذا ما تريد ... DATA555 - kanory.mdb

طيب جرب المرفق واعلمنا بالنتيجة .... ‏‏import_kan2.accdb

هل هذا التصور المطلوب ؟؟؟؟

ولد جدة ام الرخا والشدة .... اين ملف الاكسس المراد استيراد البيانات لها ؟؟؟؟؟

تفضل وجرب .... MALAK-XP_Kan.MDB

.

ممكن مرفق للتقرير

واياك ... حياك الله

وعليكم السلام تفضل .... Kan_aa.accdb