شايب

اذا اردنا بقاء نموذج 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

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

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

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

في الاصدارات ماقبل 2007 اي 2003 ومادون كانت هناك ميزة الاذونات والامان على مستوى المستخدم وهذه نبذه عنها من موقع مايكروسوف يشبه الأمان على مستوى المستخدم في Access آليات الأمان على الأنظمة المستندة إلى الخادم، فهو يستخدم كلمات المرور والأذونات للسماح بالوصول إلى العناصر الموجودة في قاعدة البيانات أو تقييد وصول الأفراد أو مجموعات من الأفراد إليها. في Access 2003 أو الإصدارات السابقة، عند تطبيق الأمان على مستوى المستخدم في قاعدة بيانات Access، يمكن لمسؤول قاعدة البيانات أو مالك عنصر التحكم في الإجراءات التي يمكن للمستخدمين الفرديين أو مجموعات المستخدمين تنفيذها على الجداول والاستعلامات والنماذج والتقارير وحدات الماكرو في قاعدة البيانات. على سبيل المثال، يمكن لمجموعة واحدة من المستخدمين تغيير الكائنات في قاعدة بيانات، ويمكن لمجموعة أخرى إدخال البيانات فقط في جداول معينة، ويمكن لمجموعة ثالثة عرض البيانات فقط في مجموعة من التقارير. وللوصول على هذه الميزه افتح برنامج اكسس ثم فتح وقبل اختيار الملف اختر فتح خاص ثم اختار الملف بعد فتح القاعدة من قائمة ملف اختار معلومات ستجدمن ضمن الخيارات ادارة المستخدمين والاذونات الاذونات والامان على مستوى المستخدم للاصدارات 2003 ولكن تعمل في الاصدارات بشرط عدم ترقية قاعدة البيانات الصورة المرفقة للاذونات التي استخدمت في البرنامج الحالي هل يمكن كسرها هنا اتوقف ونترك الامر للاساتذة فمن تحدث في غير فنه اتى بالعجائب اخونا الشايب

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

بل يعمل اخي الملف مرفق Database1(19).accdb

استخدم دالة العد في حدث بعد التحديث لحقل الجهة او في زر امر او في الحدث الذي تراه مناسب لبرنامجك ضع الامر التالي Dim x As Integer x = DCount("*", "table1", "[num]=" & [Num] & "and [from]='" & [From] & "'") If x > 1 Then If MsgBox("هذه القيمة مسجلة مسبقا", vbYesNo, "تكرار") = vbYes Then DoCmd.CancelEvent Me.Undo Else End If End If الشايب

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

هذا اقنباس من ردي في الموضوع السابق