kamelnet5

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

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

اشكرك اخي حسونة على الاهتمام .. لكني جربت كل الطرق وشروحات الفيديوهات ولكني لم اجد نفعاً ... هل يوجد برنامج او اداة تستطيع أن تعيد الملفات ولو جزئياً

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

الف مبروك رفع الله قدركم في الدينا والاخرة

السلام عليكم اشكر جهدك اخي ولكن البرنامج لايعمل هل يمكن أن يكون اصدار الاكسس السبب , رغم اني اتبعت الخطوات بالفيديو يظهر رسال خطأ بالماكرو ...| ارجو أن تفيدني

السلام عليكم ورحمة الله وبركاته اشكر الجميع على الاهتمام ... تم اكتشاف الخطأ وهو انه لايقبل اسم الحقل بفواصل (يجب ان يكون متصلا) يعني يجب أن يكون [اسم_الصنف] وليس [اسم الصنف] تقبلو تحياتي وفائق شكري لكم

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

السلام عليكم اشكرك اخي ... قمت بعمل استدعاء للدالة بعد تعديل اسم الجدول الحقول اصبحت هكذا : FilterComboAsYouType Me.مورد_عميل, "SELECT * FROM البنود الفرعية", "مورد/عميل" لكن مع الاسف عندما اقوم بكتاب اي بيانات تختفي جميع البيانات التي في القائمة هل هناك خطأ ما ؟

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

بشرك الله ووالديك بالجنة كذلك لاحظت أن الملف يحفظ باسم Test.... حبذا لو كان اختيار الاسم حسب الرغبة عبر تكست بوكس أو أي خيار أخر ... (يعني اقوم بكتابة اسم الملف بشكل اختياري) جزاك الله كل خير

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

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

السلام عليكم ورحمة الله وبركاته ارجو من الاساتذة الأفاضل مساعدة في حل مشكلة قفل مفتاح NumLo عندي قاعدة بيانات عند فتحها أو اضافة صنف للفاتورة تقوم باغلاق مفتاح Numlock بشكل تلقائي وقد عانيت من هذه المشكلة كثيراًُ أرجو منكم ارشادي إلى طريقة اجعل فيها هذا المفتاح شغال دائماً شاكراً لكم

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

هكذا بواسطة استعلام تحديث

بوركت اخي .... كنت قد حدثت سعر الصنف من الاستعلام الذي عملته مشكورا وقمت بتحديث السعر في الاصناف بالشكل التالي DLookUp("[متوسط سعر الشراء]";"[qryItemsCosts]";"[اسم الصنف]='" & [اسم الصنف] & "'") فكيف اضيف NZ اليها مع العلم بأن التحديث يتم فقط للاصناف التي فيها حركة فقط جزاك الله خير الجزاء

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

اشكر اهتمامك اخي ... الذي فهمته من خلال المقارنة بين الاستعلام القديم والجديد 1- تم تبديل اسم الاستعلام من qryItemsAvgCosDaily الى qryItemsAvgCosPerDate 2- تم تغيير الاجمالي في حلق تاريخ الشراء:تاريخ الفاتورة من MAX الى تجميع حسب .... وبالتالي تم جلب جميع تواريخ البيع (اليس كذلك..) ارجو منك شرح الخطأ الذي كان قبل التغيير والذي تطلب التعديل ... فقط لإفادتي وان تكون الصورة بالنسبة لي اوضح ولك جزيل الشكر

اشكرك استاذي kkhalifa1960 على هذا العمل طريقة ممتازة لربط سعر الشراء بطرقتين على نموذج الاصناف اشكرك اخي AbuuAhmed ذات شمولية واسعة مجهود تشكر عليه

هذا هو الملف ....!!! 123.accdb

السلام عليكم ورحمة الله وبركاته اريد جلب وسطي سعر الشراء واخر سعر شراء من جدول حركة المواد ارجو من السادة الافاضل المساعدة ولكم جزيل الشكر

السلام عليكم بعد تعديل الكود يظهر معي خطأ التالي ... ماهو السبب

الف شكر استاذي

السلام عليكم ورحمة الله وبركاته اساتذتي الافاضل لدي هذا الفاكشن اريد ربط استراد قاعدة البيانات حسب حقل نص في نموذج معين بدل المسار المكتوب فيه شاكرا لكم جهودكم Public Function req() Dim dada Dim wrkJet0 As Workspace Dim dbs0 As DAO.Database adad = CurrentProject.Path & "\\LinksPro\LinkTbs1.accdb" Set wrkJet0 = DBEngine.Workspaces(0) Set dbs0 = wrkJet0.OpenDatabase(adad, False, False, ";PWD=" & "000000") Dim db As DAO.Database Dim tdf As DAO.TableDef Set db = CurrentDb() For Each tdf In db.TableDefs If (tdf.Attributes And dbAttachedTable) = dbAttachedTable Then On Error Resume Next tdf.Connect = ";DATABASE=" & adad tdf.RefreshLink End If Next End Function