ابوخليل

تفضل بيانات الطلبة4.rar

ضع مرفق مختصر حنى تمكن الاعضاء من مساعدتك

انظر هل هذا مطلوبك ؟ بيانات الطلبة3.rar

الملف مضغوط بعد تنزيله تفك الضغط عنه وعلى كل حال هذا الملف بدون ضغط فقط خففت من حجمه بازالة الصور egypt 2.accdb

عليكم السلام .. وحياك الله بين اخوانك هذا كود فتح نموذج من نموذج آخر على حقل محدد Dim stDocName As String Dim stLinkCriteria As String stLinkCriteria = "passenger=forms!srch!t" stDocName = "data1" DoCmd.OpenForm stDocName, , , stLinkCriteria ويمكن اختصاره هكذا وسيعمل DoCmd.OpenForm "data1", , , "passenger=forms!srch!t" egypt 2.rar

اخي العزيز الغالي ابو بسملة .. جميلة جدا هذه الاستعارة .. في ردي السابق نسيت ان اربط النموذج بالبيانات .. تجدون ادناه تعديل لمرفقي السابق test12.rar

اخوي احمد .. الله يكون بعونك .. ستتعب كثيرا test11.rar

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

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