عبد الله قدور

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

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

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

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

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

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

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

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

السلام عليكم اخي الكريم رمهان واخي الكريم ابو خليل جزاكم الله عنا كل خير استطعت انشاء العلاقة بهذا الشكل ولكن هل هي صحيحة أم انني سأواجه مشاكل في المستقبل بسببها accurate 29.rar

السلام عليكم اخي الكريم رمهان يجب ربط العمود AccCode من جدول tblaccount ب العمود delCashTransfer , delCashComm , delaccComm على ان يكون الربط فرض تكامل مرجعي مع تتالي التحديث الهدف من هذه العملية هي تتالي التحديث accurate 29.rar