أواب

شكرأ لاهتمامك ..........زهرة المنتدى ولكن ماذا أكتب قبل الكود؟ أي كيف أعبر عن هذا المعنى: then (اسم هذه القاعدة =كذا) if

if [اسم هذه القاعدة]="النقل المدرسي" then [نفذ هذا الكود]' Dim strPath As String Dim fs, OldFile, DBwithEXT, DBwithoutEXT, NewFile OldFile = CurrentDb.Name DBwithEXT = Dir(OldFile) DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4) strPath = CurrentProject.Pat…

إخواني الكرام السلام عليكم ورحمة الله لدي قاعدة بها كود لعمل نسخة باسم مختلف أرجو اذا تغيير اسم القاعدة يتعطل هذا الكودعلى نمط if (اسم هذه القاعدة =كذا) then[نفذ هذا الكود]end if شاكراُ لكم حسن تعاونكم

يمكنك التعديل من خلال فتح قاعدة الجداول والتعديل على من تحب بالتوفيق

ما هو المطلوب؟ وهل هناك من يستخدم معا رف الى الآن؟ ألم يستبدل بنظام نور--تبع الوزارة؟

جزاكم الله خيرا...جميعكم وننتظر نسخة ال 2003

وعليكم السلام أخي.......السؤال غير واضح لو ترفق مثالا وتوضح به المطلوب لتتم مساعدتك.

بارك الله فيك

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

الأخوة الأعضاء.....بعد التحية هل يمكن ( بالكود ) تعطيل الزر الأيمن للفارة ( عن الضغط على التقارير يزر الفأرة الأيمن ان لا تظهر لك القائمة المختصرة )...وبالطبع إعادة تمكينه؟ على غرار تعطيل الشفت؟

مشكور على جهدك الكبير لكن الاغلاق الآلي للقاعدة لا يمكننا من تتبع أفكارها فكل نموذج به تايمر بعده خروج من البرنامج !!!!!

تسلم ايديك ياست الكل

أختي الكريمة هذا ما أريده بالفعل.....جزاك الله خيراً

الأخوة الأعضاء.....بعد التحية هل يمكن ( بالكود ) تعطيل الزر الأيمن للفارة...وبالطبع إعادة تمكينه؟ على غرار تعطيل الشفت؟

اخواني الأعزاء بعد التحية والاحترام لماذا هذا الكود يعمل في بعض النماذج ولا يعمل يعمل في بعض آخر؟؟؟ Me.AllowEdits = False Me.AllowAdditions = False Me.AllowDeletions = False

فى الثابت عن رسول الله صلى الله عليه وسلم عن الله عز وجل ( لم يشكرنى من لم يشكر من اجريت النعمة على يديه ) وفي الحديث (من اراد ان يبالغ فى الثناء فليقل جزاك الله خيرا)

الأفضل رفع القاعدة لمحاولة حل المشكلة أم تبقى القاعدة محجوبة حتى عنك أيضاً بسبب سرية المعلومات؟؟؟؟؟ كما أنه المفترض من الأعضاء الأمانة والثقة.

تفضل أخي الكريم لا تنسى التقييم ++Data_Base.rar

اين التقييـــــــــم؟؟؟؟؟؟؟

هذا كود الرط............حاول الاستفادة منه...............أو أرفق مثالا بنتشيق 2003 للتعديل عليه Private Function Relink(tblPath As String, progPath As String, Optional blnSilent As Boolean = True) As Boolean Dim db As DAO.Database ' كودالربط Dim tdf As DAO.Tab…