شايب

نعم صحيح في نظام ويندوز 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 الشايب

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

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

ياهلا ومرحبا باستاذنا الفاضل محمد 🌹

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

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

الستر زين ياعمنا العود 🌹

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

اختيار موفق مع تمنياتي لهم بالتوفيق

شرف كبير لاخينا شايب ان تكون وجهة نظره مشابهة لوجهة نظر اساتذتنا الكبار والخبراء الافاضل احسن الله اليكم فنحن نتعلم و نكتسب الخبرة من متابعة ردودكم اخونا الشايب

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

الاخ العزيز شايب لا يهتم لامر افضل اجابة بالنسبة لوضع مثال الحقيقة انه في الفترة الاخير هناك عدد كبير من المشاركات تضع وصف مشكلة بدون مرفق او مرفق بدون بيانات والادهى من ذلك عدم متابعة الموضوع وهذا امر محبط اخيرا فكرة الاخ شايب كما اشار سابقا عمل جدولين بعلاقة واحد الى متعدد وبدون الحاجة حقل نعم لا ولا حاجة ايضا لاستعلام تحديث ثم عمل كود بسيط للمرور على ماتم اختياره من مربع القائمة واستخدامه كمعيار استعلام كمصدر للقائمة المنسدلة On Error GoTo a Dim k As String Dim i As Integer For i = 0 To c_2.ListCount - 1 If c_2.Selected(i) = True Then k = k & c_2.Column(0, i) & "," End If Next i Me.c_3.RowSource = "SELECT * FROM tbl_Towns_Blocks " & _ "WHERE tbl_Towns_Blocks.id IN (" & Left(k, Len(k) - 1) & ")" DoCmd.GoToControl "c_3" Me.c_3.Dropdown Exit Sub a: Me.c_3.RowSource = "" وهنا استخدمنا امر معالجة الخطأ لافراغ القائمة المنسدلة وهو استخدام قد لا يروق لبعض الخبراء وبالامكان استخدام For Each بدلا من for next ليكون الامر On Error GoTo a Dim s As Variant Dim t As String t = "" For Each s In Me.c_2.ItemsSelected t = t & "" & Me.c_2.ItemData(s) & ", " Next t = Left(t, Len(t) - 2) Me.c_3.RowSource = "SELECT * FROM tbl_Towns_Blocks " & _ "WHERE tbl_Towns_Blocks.id IN (" & t & ")" DoCmd.GoToControl "c_3" Me.c_3.Dropdown Exit Sub a: Me.c_3.RowSource = "" في جميع الاحوال هي مجرد مشاركة من غير متخصص ويترك الامر للاساتذة والخبراء اخونا الشايب CopyList (1)(1).accdb