Foksh

أنا من جهتي ، أفضل هذه الفكرة لكن طبعاً بالنهاية يعتمد هذا على حاجة المشروع الذي تعمل عليه ..

تأكد من اعدادات اللغة في جهازك اذا عندك ويندوز 10 :-

بارك الله فيك أخونا @عبد اللطيف سلوم ، وجعله الله في ميزان حسناتك

وعليكم السلام ورحمة الله وبركاته ، مبروك حل المشكلة ،

أخي الكريم @m.r ؛ هذه تجربة بسيطة وهي قيد التطوير ,, Move.accdb

ومنكم نستفيد استاذ موسى 🙂

نعم صديقي ، هو استناداً للفكرة وقابلة للتطوير طبعاً ، والفكرة كانت أن يتم جلب بيانات الجدول في القاعدة الثانية ومن ثم تتطرق لموضوع المقارنة بينهم وتستكمل فكرتك ..

اسمحي لي بمناقشة سريعة من باب التوضيح أكتر في النموذج (reservation_frm) يكون مصدره الجدول (reservation_tbl) صح ؟؟ صح , والحقل (pname) قائمة منسدله مصدرها حقل يحتوي بيانات سابقاً في نفس الجدول صح ؟؟ صح , إذاً كيف سأشترط عليه أن يتأكد من عدد مقاطع الإسم إن كان تم إدخاله سابقاً ( لربما قمت بإدخال البيانات في نموذج آخر سابقاً وهناك يجب أن يكون الشرط قبل التخزين - على حسب ما فهمت من تخيلي لمسار البيانات ) صح ؟؟ متابع معكم بعد العودة للبيت بإذن الله

أخي @محمد احمد لطفى الله يعطيك العافية ، هذه مشاركة بفكرة خطرت في بالي أود مشاركتك بها من باب التجربة ، تفضل Foksh.zip * طبعاً هذا فيما يتعلق بجلب التاريخ من قاعدة بيانات أخرى على رأي الشاعر اللي قال المثل ( أن تصل متأخراً ، خير من أن لا تصل أبداً )

حاول ارفاق ملف للمشكلة

أخي الكريم ، مصدر السجل هو استعلام وليس الجدول ، فهل تريد من استعلام جدولي وظيفته جلب البيانات أن يقوم بتخزين البيانات في الجدول ؟؟ في قاعدة بيانات Microsoft Access، يُطلق مصطلح "الاستعلام" على عملية استرجاع البيانات من جدول أو جداول متعددة باستخدام مجموعة من الشروط والمعايير. يمكنك إنشاء استعلامات في Access باستخدام مصمم الاستعلام الذي يوفره Access. هناك عدة أنواع من الاستعلامات يمكنك إنشاؤها، ومن بينها: استعلام تحديد (Select Query): يُستخدم لاسترجاع البيانات من جدول أو جداول متعددة بناءً على شروط محددة. يمكنك اختيار الحقول التي ترغب في استرجاعها وتحديد الشروط التي يجب أن تتوافر لكل سجل. استعلام إضافة (Append Query): يُستخدم لإضافة سجلات إلى جدول من استعلام آخر. استعلام تحديث (Update Query): يُستخدم لتحديث القيم في حقول محددة في جدول بناءً على شروط محددة. استعلام حذف (Delete Query): يُستخدم لحذف سجلات من جدول بناءً على شروط محددة. استعلام إنشاء جدول (Make-Table Query): يُستخدم لإنشاء جدول جديد وملءه بالبيانات من جدول آخر أو استعلام آخر. لإنشاء استعلام في Access، يمكنك فتح قاعدة البيانات، ثم اختيار "استعلام" من علامة التبويب "إنشاء". يمكنك استخدام مصمم الاستعلام لتحديد الجدول والحقول، وتحديد المعايير والشروط التي يجب أن تتوافر لاسترجاع البيانات المطلوبة .

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

تأكد اولاً من المكتبات اخي الكريم ، لربما اختلاف الإصدار هو السبب !! * وجهة نظري ورأيي المتواضع.

بدايةً هذه فكرة للتحقق ما اذا كان الاسم من 3 مقاطع أو لأ في الزرار ( Be Sure ) في نموذج الاعدادات الخاص بك ، وانتي طبقيها حسب رغبتك . lab2.accdb

بدايةً كلنا هنا بنتعلم من بعض وأنا أولكم وما زلت أتعلم المعلومة اللي ما اكتملت لدي. على العموم ، بشكل واضح منك اعطينا معطيات طلبك بتوضيح بناءً على هذه النقاط ؟؟ 1. توضيح العلاقة بين النموذجين في الصورة حتى يستند الحل عليها. 2. توضيح نقطة الاسم من 3 مقاطع ( مصدر الأسماء من اي جدول ؟ *. بالاعتماد على النقطة 2 سيتم عمل البحث بالدالة Dlookup.

أنا مش زعلان والله ، أنا بتكلم علشان موضوعك يكون نتيجة الحل سليمة وسلسة وسهلة بنفس الوقت لما تكون المعطيات واضحة .

اختي الكريمه لاحظي إنه دائماً في طلباتك يكون هناك نقص إما في الموضوع ، أو الشرح ، أو المرفق ؟؟ يعني سؤالي لك بناءً على الصورة هل يوجد حقول في النموذج المرفق من حضرتك لتعبئتها ( مثلاً ) ؟؟ لإنه في طلبك لاحقاً عايزه الكود يعمل بحث في سجلات جدول باستخدام الدالة Dlookup. أرجو منك كالعادة بشكل واضح تفسير طلبك وإرفاق مرفق يحتوي على كامل الكائنات ( مربعات نص أو ازرار .... إلخ ) لتوفير الوقت على الإخوة لتقديم المساعدة. أيضاً توضيح العلاقة بين النموذجين في الصورة لتكتمل الصورة. تقبلي تعليقي بصدر رحب

بعيداً عن الكمبيوتر ، هذه مشاركة خارجية :- Private Sub cmdSubmit_Click() ' التحقق من نوع الإدخال المختار If Me.optName.Value = True Then ' إذا كان اختيار الاسم محددًا If IsNull(Me.txtFullName.Value) Or Me.txtFullName.Value = "" Then MsgBox "الرجاء إدخال الاسم الثلاثي." Exit Sub End If ElseIf Me.optPhone.Value = True Then ' إذا كان اختيار الهاتف محددًا If IsNull(Me.txtPhoneNumber.Value) Or Me.txtPhoneNumber.Value = "" Then MsgBox "الرجاء إدخال رقم الهاتف." Exit Sub End If End If End Sub طبعاً لإجراءاتك تغيير المسميات حسب حاجتك. هل الموضوع دا له علاقة بالصلاحيات ؟؟

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

في مشاركة من أحد الأخوة ( وكل الشكر له مع العذر إن لم أتذكر اسمه ) في منتدانا على حد علمي ، كانت هناك فكرة عمل تحديث للبرنامج بطريقة جميلة علها تخدم فكرتك ؛ ارفقت الملف لأني على وشك الخروج من العمل ولم يسعفني الوقت في ادارة الأكواد حسب رغبتك للأسف . Update.zip

DoCmd.Save Or DoCmd.RunCommand acCmdSaveRecord

مبروك حل المشكلة

تفضل أخي الكريم @Samer Alani ، فيديو يوضح لك لطريقة بشكل أفضل من مرفق حتى تتوضح لك الفكرة 20231119_184539.zip

أخي الكريم @mohamed-elc ما تقدم به الأستاذ @ابو البشر هو فعلاً الحل الأمثل لمشكلتك في إظهار التقارير عند إخفائك لواجهة الآكسيس ؛ وسأضيف عليه حيلة قد تنفعك إذا كانت الواجهة الرئيسية عندك عند فتحها تكون Maximize !! وهذا فيديو من برنامجي للتوضيح ( 20231119_175044.zip ) فهل هي كذلك ؟؟

أخي الكريم @mohamed_ets لقد غيرت المديول كاملاً في المرفق الخاص بك ، جرب هذا المرفق اذا كان يحل مشكلتك بما إنك جربت كل الحلول المطروحة سابقاً تفقيط الارقام فى الاكسس.accdb