sandanet

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

اخي الكريم المشكلة ليست لا في العلاقات ولا في الجداول وانما في طريقة اضافة بيانات جديدة على استعلام فكما تعرف ان الاستعلام الذي فيه مجموعة جداول وعلاقات مرتبطة ببعضها ماهي الا عملية فلترة للبيانات بناء على قيمة مختارة من حقل لذلك لايمكنك اضافة سجلات جديدة على عملية الفلترة هنا انصحك بازالة الاستعلام الذي وضعته كمصدر بيانات للنموذج ومن ثم استخدم الكود التالي في زر حفظ البيانات Dim strSQL As String strSQL = ("INSERT INTO PutYourTableName ([Names] , [Birthday]) VALUES('" & Me!TextBoxContant1 & "', '" & Me!TextBoxContant2 & "')") WHERE ((TableName.id)=[forms]![YourFormName]![TextBoxId])" CurrentDb.Execute strSQL, dbFailOnError Me.Requery

لاتتعب نفسك في البحث عن ذلك فحتى "بيل غيتس" نفسه لايمتلك هكذا برنامج هههههههههه تحياتي

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

اخي محمد يكفيك البحث قليلاً في هذا المنتدى الرائع وسوف تجد الكثير والكثير مما تطلبه وان لم تجد شيئاً فانصحك بالسؤال عنها بشكل منفصل لان كل طلب اشرت إليه هو عبارة عن قصة طويلة وعريضة بالنسبة لموضوع كيفية عمل اسم مستخدم وكلمة سر فيجب عليك اولاً انشاء جدول فيه اسماء المستخدمين مع خانة كلمة سر خاصة بكل مستخدم ومن ثم انشاء نموذج فيه مربعي نص غير مرتبطين بأي جدول .. مربع النص الاول وليكن اسم المستخدم والثاني اسمه الرقم السري ثم ضع زر امر فيه كود يتحقق من المكتوب في مربعي النص مع الموجود في جدول اسماء المستخدمين فان وجد تطابق فانه يفتح النموذج الرئيسي للبرنامج وان لم يكن هنالك تطابق فسوف يظهر رسالة خطأ .. انظر المرفق المسمى ب "Password". . اما بالنسبة الى موضوع منح الصلاحيات فهنالك الكثير من المشاركات المتعلقة بها يمكنك البحث عنها في المنتدى وقد ارفقت لك مثال كذلك واخيراً موضوع كيفية اظهار طلب اسم المستخدم عند فتح البرنامج فهنا يجب عليك اتباع الخطوات الموضحة في الصورة المرفقة .. عند الرقم 3 في الصورة تضع اسم نموذج الاسم وكلمة المرور وتزيل جميع علامات الصح الموجودة في الصورة ومن ثم تحول الملف الى صيغة mde اذا كان الاكسس لديك 2003 او بصيغة Accde اذا كان الاكسس مابعد اصدار 2003 تحياتي مثال الصلاحيات.zip Password.zip

اخي Rebaz شكراً لك على هذه الطريقة ولكن للأسف هنالك برامج كثيرة تقوم بتمكين مفتاح الشيفت مهما حاولت وللاطلاع عليها انظر المرفق تحياتي فتح أو إلغاء الشفت.zip

تفضل ... تقسيم ومشاركة قاعدة البيانات عبر الانترنت

احييكم اخوتي في الله اخي جعفر واخي شافان على هذا الطرح المميز والحلول الرائعة التي اقف مذهولاً اتجاهها فحلولكم هذه تدل على خبرات عميقة لايصل إليها الا ذو حظ عظيم وانا اطالب وبشدة من استاذي جعفر شرح الطلاسم السحرية التي كتبها في الكود لاني اعشق الاكواد ولكن ماكتبه الاستاذ جعفر لم ارتقي لفهمه بعد هههه كما احييك اخي شافان على روح الاصرار والتدقيق العميق في الحلول المطروحة فإنك لم يكتفي بطرح حلك وانا تابعت حل اخي جعفر كذلك فبارك الله فيكم وزادكم من علمه ورفعكم به درجات أعلى ان شاء الله وانتظروني قريبا في موضوع شيق آخر بإذن الله تحياتي

السلام عليكم ورحمة الله وبركاته أما بعد،، في المرفق جدولين tbl1 و tbl2 وفي النموذج زر أمر المطلوب فيه هو عند النفر على الزر يقوم بايجاد الاسماء المتكررة في الجدولين بشرط تساوي حقل الـ degree وحذفها من tbl2 ارجو ان تكون الفكرة واضحة تحياتي test‬.rar

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

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

اخواني الاعزاء لقد توصلت الى حل كما في المرفق باستخدام كود الاستاذ جعفر مع بعض التعديلات.. حاول تغيير اسم قاعدة البيانات الصحيحة باخرى خاطئة وانظر للنتيجة او حاول ان تربط البرنامج بقاعدة خاطئة وانظر النتيجة الفكرة اني جعلت البرنامج لايرتبط بأي قاعدة بيانات لاتحتوي على جدول اسمه tblMonths بامكانك تغيير اسم الجدول الى اي جدول تريد تحياتي test.zip

رائع جداً اخي رمهان على هذا الابداع هذا اشبه بالحل السحري الذي لم اتوقعه بتاتاً كود سهل وبسيط الشكل لكن معقد الفهم "ننتظر منك شرحه طبعاً " لكنه يفي بالغرض فهو يكشف ما اذا كانت القاعدة المرتبطة هي القاعدة السليمة ام لا "لا اعرف كيف" وانا بدوري اضعه من جديد لانني ازلت النقطة الثانية الخاصة بضرورة وجود كلمة مرور للقاعدة الخلفية لاننا بالغالب نستغني عن وضع كلمة مرور عديمة الجدوى في القاعدة الخلفية لذلك الكود يصبح هكذا If CurrentDb.OpenRecordset("SELECT MSysObjects.Name, MSysObjects.Type FROM MSysObjects AS MSysObjects_1 RIGHT JOIN [" & DLookup("DBPathANDName", "BackDBs", "found=true") & "].MSysObjects ON MSysObjects_1.ForeignName = MSysObjects.Name WHERE (((MSysObjects.Name) Not Like '*msys*') AND ((MSysObjects_1.ForeignName) Is Null) AND ((MSysObjects.Type)=1))").RecordCount <> 0 Then MsgBox ("الربط غير سليم") ننتظر منك شرحه لو تكرمت اما بالنسبة لكود اخي جعفر فهو يمتاز بكونه يقرأ قيمة معينة من جدول في القاعدة الخلفية انت تحددها على حسب برنامجك وهذه ميزة مهمة جداً من وجهة نظري تحياتي

استاذي الكريم جعفر اشكرك جزيل الشكر على تفاعلك المستمر في تقديم الحلول الرائعة ولكن لايزال هنالك مشكلة بسيطة بإذن الله وهي عند اكتشاف عدم التطابق وفتح نموذج اختيار قاعدة البيانات فإن قمت بتجاهله واغلاقه بدون تحديد مكان القاعدة الصحيحة فعند فتح البرنامج لاينبهك بعدم صلاحية قاعدة البيانات .. المفروض ان البرنامج يجبر المستخدم على اختيار القاعدة الصحيحة والا فلن يعمل البرنامج اصلاقاً اما بالنسبة لدالة المقارنة فاقترح تبسيطها وذلك عن طريق فحص قيمة معينة في قاعدة البيانات BE بدون مقارنة الجداول مع FE لاننا يكفينا ان نفحص قيمة مثلاً 12 في جدول tblMonths فان وجدت فهذا يعني ان القاعدة المرتبطة هي القاعدة الصحيحة والا فانه يعتبرها القاعدة الخطأ واعتذر منك على كثرة تساؤلاتي

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

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

مازالت هنالك مشكلة وهي المفروض انه بعد الربط مع القاعدة الصحيحة اول مرة لايعاود طلب الربط معها مرة اخرى الا في حال تغيرت الجداول ... لقد حاولت التعديل قليلاً لكني اعتقد بأن خطأ ما قد حدث ولا اعرف اين ، فالمتغير TableExist في الوحدة النمطية Utils لايستجيب ارجو من الاساتذة الاطلاع على المرفق بالنسبة لاقتراحك استاذ رمهان فهو اقتراح جميل وباعتقادي انه يكفي ان نتحقق من وجود قيمة معينة في حقل ثابت القيم مثلاً "تأكد من وجود رقم 12 في حقل Months في جدول tblMonths " فالارقام هنا هي ارقام الاشهر وهي ثابتة وهذه برأيي كافية لهذا الغرض وانا هدفي من بداية الموضوع هو الوصول الى تلك النقطة تحياتي New folder.zip

تفضل .. الخلل كان في المكان الموضح في الصورة سند.zip

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

نعم اخي رمهان اقصد " ان اسم الملف بقي نفسه ولكن المحتوى من الجداول اصبح مختلف" وقد وضعت مرفق فيه برنامج اسمه test مرتبط بقاعدة اسمها database1 وهناك قاعدة اخرى يمكنك تغيير اسمها باسم القاعدة database1 لكنها لاتحتوي على نفس الجداول تحياتي

السلام عليكم ورحمة الله تعالى وبركاته اساتذتي الكرام تحية طيبة ،، في المثال المرفق برنامج مرتبط بقاعدة بيانات اسمها database1 لكن لو فرضنا ان العميل قام بتغيير تلك القاعدة بقاعدة اخرى لبرنامج آخر بالخطأ ظناً منه انها تابعة لبرنامجه هذا عندئذ سوف تظهر له رسائل اخطاء كثيرة عند فتحه للنماذج لانه بطبيعة الحال سوف لن يتم استيراد تلك الجداول المطلوبة ، السؤال هو كيف يتم حل هذه المشكلة؟ تحياتي New folder.zip

نعم استاذي Shivan اتفق معك في ذلك لكني عملتها كخيار ثانوي في حال اراد ان يحسب عمر الشخص في اي عام يختاره هو تحياتي

أخي هاني افتح النموذج واختار السنة التي تريد وانظر للجدول تحياتي فصل الاسم وتاريخ الميلاد.rar

اشكرك جزيل الشكر استاذنا القدير Shivan أخي هاني قم بنسخ ما بداخل الوحدة النمطية الثانية وضعها في نهاية الوحدة النمطية الاولى مع ازالة جملة Option Compare Database من الوحدة النمطية الثانية اما بالنسبة للسنوات اللاحقة اي 2018 او 2019 فيكفي انك تغيير السنة في الاستعلام الى اي سنة تريدها واعتقد انه من الافضل صنع نموذج به خانة لاختيار السنة وزر امر لتنفيذ الاستعلام حيث الاستعلام قيمة السنة من هذا النموذج تحياتي