عبد الله قدور

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

السلام عليكم اخواني الكرام 1- اريد انشاء فانكشن function واضافة براميتر له وهذا البراميتر يجب ان يعرض على شكل قائمة اثناء استخدام الفانكشن في البرمجة بحيث يعرض لي قائمة اختار منها احد الخيارات المتاحة 2- الطلب الثاني كيف يمكنني ان اجعل البراميتر اختياري وليس اجباري في الفنكشن

السلام عليكم قد يكون وصل حجم قاعدة البيانات الى 2 جيكا بايت قاعدة بيانات اكسس عندما يصل حجمها الى 2 جيكا لا تقوم بادخال سجلات

اعرف ذلك اخي الكريم لكن اريد ان اعمل هذه الفكرة فهي مفيدة

السلام عليكم اخواني الكرام هل من الممكن ان يقوم برنامج بحفظ كل القراءات التي يقرؤها جهاز الباركود في جدول ان كان البرنامج مفتوح جانب الساعة او مغلق المهم المطلوب في اخر النهار الحصول على كل قراءات الباركود بحيث افتح البرنامج في الصباح واتابع عملي على برنامج اخر وفي نهاية اليوم اجد كل قراءات الباركود موجودة فيه والسبب في ذلك ان جهاز الباركود عندي لا سلكي وموجود في المستودع ولا اعلم متى يقوم عامل باستخدامه لاخراج بضاعة من المستودع

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

اخي الكريم هذه المشكلة من اعدادات الشبكة عندك اجعل خصائص المجلد المشارك تحكم كامل

Public Function CreateTableLink(strBEPath, strSourceTableName, strPassword) As Boolean Dim db As DAO.Database Dim tdf As DAO.TableDef Dim strConnect As String Dim strLinkName As String strLinkName = strSourceTableName strConnect = "MS Access;PWD=" & strPassword & _ ";DATABASE=" & strBEPath Debug.Print strConnect Set db = CurrentDb Set tdf = db.CreateTableDef tdf.Connect = strConnect tdf.SourceTableName = strSourceTableName tdf.Name = strLinkName db.TableDefs.Append tdf Set tdf = Nothing Set db = Nothing End Function السلام عليكم ضع هذا الكود في وحدة نمطية ثم قم باستدعائها بالكود التالي Call CreateTableLink(path_database,table_name, password) بحيث path_database هو مسار قاعدة البيانات و table_name اسم الجدول المراد استيراده و password كلمة مرور قاعدة البيانات بهذه الطريقة يمكنك استيراد الجداول واحد واحد بقي في النهاية ان اشكر معلمنا الكبير ابو ادم على هذا الكود فهو من قدمه للمنتدى

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

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

السلام عليكم اخواني الكرام اريد طريقة للحصول على موقع الحرف في مربع النص مثل الدالة search في الاكسل يعني انا اعطي للدالة الحرف وهي تعطيه الموقع مثال للمطلوب مربع النص موجود بداخله كلمة عبد الله اريد معرفة موقع حرف الباء اين الجواب هو 2 وهكذا

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

Public Function CreateTableLink(strBEPath, strSourceTableName, strPassword) As Boolean Dim db As DAO.Database Dim tdf As DAO.TableDef Dim strConnect As String Dim strLinkName As String strLinkName = strSourceTableName strConnect = "MS Access;PWD=" & strPassword & _ ";DATABASE=" & strBEPath Debug.Print strConnect Set db = CurrentDb Set tdf = db.CreateTableDef tdf.Connect = strConnect tdf.SourceTableName = strSourceTableName tdf.Name = strLinkName db.TableDefs.Append tdf Set tdf = Nothing Set db = Nothing End Function يمكنك وضع هذا الكود في وحدة نمطية وتستدعيه بالكود التالي فيقوم بربط جدول واحد ويمكنك تكرار كود الاستدعاء لربط اكثر من جدول Call CreateTableLink(data path, "table name", "password") بحيث يكون data path هو مسار قاعدة البيانات و table name هو اسم الجدول المراد ربطه و password هي كلمة مرور قاعدة البيانات واخيرا لا بد من ذكر صاحب الفضل في هذا الكود هو معلمنا الكبير ابو ادم تحياتي له

السلام عليكم اخي الكريم عندي فكرة قد تساعدك في عدم تكرار ظهور الرسالة وهي ان تضيف عمود الى الموظف يكون نوعه نعم لا يفيد ان تم اظهار الرسالة ام لا بحيث اذا اتم الموظف اتم السن المحدد (50) تظهر الرسالة وتضع في العمود اشارة صح بانه تم اظهار الرسالة طبعا لا تنسى في الكود يجب ان يكون شرط اظهار الرسالة من شرطين السن وعدم وجود اشارة صح في العمود المضاف

اخي الكريم استطيع مساعدتك عن طريق استخدام برنامج teamviewer 12 فان كان لا يوجد عندك مشكلة في استخدامه راسلني على الواتس اب او التلغرام على الرقم : 00905456969400

الكود الاول يقوم بضغط زر f10 وعندها يظهر لك اختصارات المفاتبح لاحظ ان زر الضغط والاصلاح رقمه 7 على جهازي عندها في الكود الثاني يجب وضع رقم 7

السلام عليكم اخي الكريم قد تكون بحاجة الى runtime access 2016 اذا كنت تستخدم اوفيس 2016 https://www.microsoft.com/en-us/download/details.aspx?id=50040 هذا رابط تحميله

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

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

انا جاهز للعمل راسلني على الواتساب 00905456969400

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

السلام عليكم اخواني الكرام عندي لكود التالي اريد ان تعديله بحيث استطيع فتح النموذج باستخدام شرطين a1 a2 طبعا كلا الشرطين رقم Dim a1, a2 a1 = Me.EntryType a2 = Me.EntryCode DoCmd.OpenForm "frmtr", , , "[trtype]=" & a1

ارسل مرفق لو سمحت

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