ابوخليل

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

ابشركم قبضت عليه .. المشكلة انه امامنا ولكن لم ننتبه له عثرت عليه بعد ان تم حذفه .. حزورة فزورة .. في آخر الخطوات سوف اخبركم كيف العثور عليه اولا هذا الكود يستخرج قائمة كاملة بأسماء قوائم أكسس وهي كثيرة جدا .. وواضحة من مسمياتيها ( تسمية عامة تحمل الصفة) .. وانما انا ابحث عن اسم خاص Sub ListCustomCommandBarControls() Dim x For Each bar In CommandBars x = bar.Name Debug.Print x Next End Sub وطبعا عثرت على ثلاثة : 1- طباعة 2- (print) 3- (prscs ) والثالث هذا هو المطلوب ادخلت الاسم الثالث هذا في امر الحذف هذا : Private Sub Command1_Click() Application.CommandBars("prscs").Delete End Sub فطار من غير رجعة .. الآن نرجع .. كيف وجدته بعد حذفه ؟ لما حذفته اعدت تشغيل المثال فخرجت لي رسالة خطأ بان القائمة prscs غير موجودة هنا ذهبت الى خصائص قاعدة البيانات من ملف فوجدت صاحبنا متربع في الحقل مع اختصار أخر بجانبه يستأنس به انظروا الصورة طبعا بدلته الى الافتراضي ثم موافق فاختفى هو وأثره للأبد TNDT2.mdb

اذا لم تصل لحل !! هل تنتظر مني ان اصل ؟ 🤔 هذا الملف الاصل بصيغة mdb TNDT.mdb

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

لن نكون بحاجة الى موضوع مستقل وهذا العمل معلوم للكل بالضرورة مثلا اذا عندي 5 قوائم تحت كل قائمة 5 ازرار القائمة : ptn_a وتحتها الازرار : a1 ، a2 ، a3 ، a4 ، a5 والقائمة : ptn_b وتحتها ازرارها b1 b2 ......... وهكذا لجميع القوائم يصبح أمامنا 25 زر اكتب هذا الكود والصقه 25 مرة Private Sub a1_Click() On Error GoTo err_Handeler Dim stDocName As String Dim stLinkCriteria As String stDocName = "yourForm" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_err_Handeler: Exit Sub err_Handeler: MsgBox err.Description Resume Exit_err_Handeler End Sub ثم اغير فقط اسم الزر واسم النموذج الذي سيتم فتحه stLinkCriteria المعيار كما تعلمون يكون جاهز ، فقد تحتاج اليه بعض النماذج عند الفتح ، حينها يتم تعريفه بسطر وسلامتكم ،،،

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

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

لا يمكنك استدعاء قيمة صحيحة .. يجب أولا عمل علاقة بين الجدولين ..

السلام عليكم ورحمة الله وبركاته في المرفق شريط قوائم عملته في اصدار 2003 على الاصدار 2010 يظهر تحت القائمة Add-Ins الآن اريد نقل هذه الأوامر خلف ازرار ظاهرة .. ولأن البنود كثيرة تخص الكثير من النماذج والتقارير ، وهذه البنود تحت تسميات متنوعة فهل من طريقة لاستخراج هذه الأكود من اجل تسهيل عملية النقل والاستبدال مرفق صورة والمثال Database1.accdb

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

عدلت العنوان من اجل يكون قريب للباحث وهذه طريقة اخرى ايضا Me.datex2 = Format(CDate(datex), "yyyy")

الحمد لله والف شكر على هذه الكلمات الطيبات

تمام كما بين واوضح اخي @ناقل .. بأن تنقل المعيار الى حقل اسم الصف وليس معرف الصف --------------------------------------------- أو .. تعديل الترقيم المشكلة في الترقيم افتح جدول الصف وغير في حقل saf_id الحقل كي جي 1 غيره الى 77 بدلا من 11 الحقل كي جي 2 غيره الى 88 بدلا من 12 السبب في ظهورها هو المعيار ... اي رقم يشتمل على 1 او 2 او 3 او 4 او 5 او 6 سوف يظهر لو الرقم 456 سوف يظهر مع الصف الرابع والخامس والسادس دقق في المعيار في الاستعلام وراح تفهم

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

انا اللي فاهم على صاحب الموضوع هو يريد تنفيذ (تشغيل) كود مكتوب في الجدول لهذا وجهته ان هذه الطريقة ستسبب له لاحقا مشاكل برمجية .. وايضا فيها محاذير أمنية . على كل حال انت صاحب الشان جرب هذا Dim x As String x = DLookup("cal", "test_tbl") Me.C = Round(Eval(x), 3) Cal error2.rar

ابشر .. سوف اراجع ملاحظاتك .. وأصلحها احتاج الى الوقت المتاح ..

مشاركة مع اخي موسى ما دام السجل يأخذ ترقيما فريدا الى يصلح معيارا بدلا من التاريخ مثل : =DSum("Price";"Q";"ID_Zabon = " & [ID_Zabon] & " and ID_NoF_OUT <>" & [ID_NoF_OUT])

تفضل لمسات لزيادة التحكم والضبط جرب البرنامج .. ووافني بملاحظاتك stock13 .rar

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

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

تفضل تعديلات جوهرية 1- اختصار 3 نماذج الى نموذج واحد ( الوارد / الصادر / التلفيات ) من اجل سهولة التعديل والتطوير .. حيث يكون العمل من مكان واحد 2- عملت ضوابط في النموذج حسب نوع العملية .. لزيادة التحكم 3- فك ارتباط النماذج بالجداول ، وادخال البيانات عبر مجموعة السجلات .. ونكسب من هذه الطريقة : A- منع الحفظ التلقائي B- عدم الحاجة لعمليات الحذف ( اما الحفظ واما الخروج وعدم الحفظ ) stock12 .rar

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

بدلا من كتب المعادلة في الجدول اعمل في الجدول عمود بـــــ المعادلة1 / المعادلة2 / المعادلة3 .. الخ .. وعمود بجانبه رقمي يمثل معرف في محرر الفيجوال اعمل فنكشن : اذا قيمة الحقل الفلاني في الجدول الفلاني = 1 نفذ هذا السطر واذا القيمة = 2 نفذ السطر الآخر هذا وهكذا ... لو تعمل 100 سطر اتمنى شرحي واضح ومفهوم

الصح ان الاكواد تكون داخل المحرر ويتم التحكم في الكود بناء على متغير وضح فكرتك وما تريد الوصول اليه .. ستجد الحل المناسب ان شاء الله

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