شايب

بل سبب المشكلة التعديلات التي تمت على النموذج اما الكود فهو يعمل بشكل ممتاز وتمت كتابتة بناء على المعطيات في الموضوع السابق ولعرض بيانات في نموذج مفرد غير منضم

الشكر لله يا بنتي الاجمل مروركم استاذنا

اتفق معك ان التجربة من اهم وسائل التعلم والحقيقة ان ردي المقتبس ليس موجه لك تحياتي 🌹

ممكن وبعيد عن التعقيدات ممكن نستدعي البيانات باستخدام دالة Dlookup على شكل مصفوفة في حدق عند النقر على الاسم في النموذج الفرعي نضع الامر Dim a, x As Variant a = DLookup("[id]&'|'&[ptitle]&'|'&[pname]&'|'&[code]", "reservation_tbl", "[pname]='" & [pname] & "'") x = Split(a, "|") Me.Parent!ID = x(0) Me.Parent!ptitle = x(1) Me.Parent!pname = x(2) Me.Parent!code = x(3) استدعينا قيمة اربع حقول بمعيار الاسم وممكن اضافة اي عدد من الحقول ولكن لابد من الفصل بينهم باستخدام &'|'& لنتمكن بعد ذلك من تقسيم المصفوفة الملف مرفق اخونا الشايب lab.accdb

جربي الان lab.accdb

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

سبحان الله نعم صحيح ساحاول مستقبلا تحسين خطي والتزام الكتابة على السطر واستخدام الالوان ليتمكن الاخرون من قراءة ما اكتب الشايب

اذا اردنا بقاء نموذج visit_frm غير منضم وبدون اجراء تغيير على النماذج والحقول فمن اسهل الطرق تحميل قيمة الحقول ضمن امر فتح النموذج في مثال الاخت في زر الامر النتائج نضع الامر التالي DoCmd.OpenForm "visit_frm", , , , , , ID & "|" & ptitle & "|" & pname & "|" & code وكما تشاهد حملنا قيمة اربع حقول ويمكن زيادة عدد اكبر من ذلك وفصلنا بين كل حقل والاخر بـ &"|"& والغرض استخدامها كفاصل بين قيمة كل حقل والاخر ثم في نموذج visit_frm في حدث عند الفتح نضع الامر If Not IsNull(Me.OpenArgs) Then Dim k As Variant k = Split(Me.OpenArgs, "|") ID = k(0) ptitle = k(1) pname = k(2) code = k(3) End If اخونا الشايب

مع ان السؤال موجه للاساتذة الكبار جرب في الاستعلام اكتب not null سيقوم الاكسيس بتصحيح المعيار الى Is Not Null وليس not is null وكلاهما يعملان اما في محرر الاكواد فكما اشار ابوخليفة والله اعلم

اذكر قبل سنوات طويلة كانت جميع التطبيقات تعمل على 16 bit بداية ويندوز 1 الى 3.x الى ان اصدرت مايكروا ويندوز 95 يعمل في بيئة 32 ويدعم 16 ولكن لكون ملايين المؤسسات تستخدم نظام 3.11 والخاص بمجموعات العمل اشبه مايكون بويندوز سيرفر فان مايكروا واجهة ضغوطات من العملاء الذين استثمروا في 3.11 والجهة الاخرى الشركات المنتجة للبرامج والتي ترغب الانتقال للبيئة الجديدة ولكن البعض متردد بسبب عدم اقبال ملايين الشركات على ويندوز 95 مما دفع مايكروا باصدار ملف ترقية يتيج امكانية تشغيل برامج 32 على انظمة 16 واعتقد كان اسم الملف win 32s وهو اقرب مايكون ببيئة محاكاة وحتى تنصيب الملف كان يحتاج الى عدة خطوات والحديث هنا من الذاكرة والتي كثيرا ماتخون هذا الامر كان منذ مايقارب 28 عاما الشايب

في اصدار 21 يكون التنسيق الافتراضي لقاعدة بيانات فارغة واعتقد الامر نفسه من اصدار 2016 2000 2002-2003 2007-2016 والسبب ان 2007 الى 2013 متشابهه اما 2016 الاصدار 16.0.7812 فاحدث يدعم رقم كبير فاذا استخدمنا هذا النوع فان الملف لايمكن فتحه بالاصدارات الاقدم والاصدار 2021 يحتوي على حقل من نوع توسيع تاريخ وقت وايضا غير متوافق مع الاصدارات ما قبل 21 ولكن اذا لم نستخدم هذين التنسيقين فان الناتج يمكن فتحه من 2007 الى 2021 والله اعلم

منطقبا لا يعمل بسبب اختلاف المعمارية الانظمة المستندة على معمارية 64x بنية النظام تدعم 64x و 86X بينما الانظمة 86X تدعم فقط 86X و لا تدعم معمارية 64x

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

احسنت هو كذلك

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

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

نعم صحيح في نظام ويندوز 64 ممكن تركيب اي من الاصدارين ولكن للاستفادة من مميزات الويندوز يفضل تركيب الاصدار 64 من اوفيس لايمكن تركيب اصدار 32 و 64 على نفس الجهاز الا اذا استخدمنا النظام الافتراضي او كان لدينا اكثر من نظام تشغيل على نفس الجهاز وكل نسخة على نظام بينما يمكن تركيب نسختين مختلفتين ولكن كلاهما 32 او 64 ☝️هذا ليس كلام الاخ شايب وانما موقع مايكروسوف اخونا شايب

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

في مداخلة قبل سنوات اخبرني الاستاذ محمد عن تجربته مع نظام dos وبحسبه بسيطة يكون عمره في حدود ما اشار ⬇️ اللهم اجعلنا واياكم ممن طال عمره وحسن عمله اخونا الشايب

ممتاز ولكن يحتاج الى اضافة معالجة الخطأ عند اضافة قيمة نصية

جزاك الله اخي واستاذي الفاضل

لم تتوقف ولكن تحتاج الى اضهار من شريط المهام

هذا الخطا اذا كنت تستخدم اصدار 64 فلا يكفي اضافة ptrsafe وانما نحتاج تغيير نوع المتغير من long الى LongPtr مرفق مثال من موقع اجنبي قمت بتعديله بشكل سريع demo of inputbox with mask.mdb

جزاك الله خير اخي واستاذي د.محمد امين ولك مثل ذلك واكثر

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