متقاعد

هل هذا المطلوب
 
xy(3).accdb

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

لذا هذا كان تعليقي على استخدام النجمة مع هذه الدالة في الموضوع السابق
لذا
تأكد من ادخال الرقم كاملا وليس جزء منه بسبب ان النجمة في بداية المعيار ونهايتة تمثل الارقام الغير معروفة
ممكن وضع شرط اذا لم يكن الحقل فارغ قبل تنفيذ الدالة
=IIf(Not IsNull([tx2]);DLookUp("[s_name]";"tbl_2";"[tel1]&[tel2] like '*" & [tx2] & "*'");"") اخيرا مع اعجابي بفكرة استاذنا الا انني افضل استخدام الطريقة هذه مع الفلترة اما مع DLookUp فمن الافضل ان يكون المعيار فريد ولا مجال لاي خطأ حتى لا تعود الدالة بقيمة عشوائية
تحياتي

جرب بدون الحاجة لاستعلام
 
سلوم.accdb

ولك مثله واكثر اخي
احسن الله اليك فعملك اكثر نفعا مما تظن
تحياتي وتقديري

طريقة اخرى عن طريق متغير عام
اولا نعلن عن متغير في اي وحدة نمطية حتى لو كانت فارغة
Public x As Byte في النموذج  form1 في حدث عند الفتح نضع الامر
x=1 في نفس النموذج في حدث عند الاغلاق نضع الامر
x=0 في نموذج frm3 نضع الامر
If x = 0 Then MsgBox "لايمكن فتح النموذج", vbCritical, "تنبية" Cancel = -1 Exit Sub End If مرفق مثال
 
mm(1)(2).mdb

الطريقة الاخرى بدون استخدام دالة dsum
وبدلا منها نستخدم استعلام فرعي
Expr1: (select(sum([inputN])-sum([outputN])) from [Q_Rsidreport] where [date]<=kh.[date] ;) هنا استخدمنا اسم مستعار لمصدر الاستعلام
النتيجة في استعلام q_3
Prog2000.mdb

مادام الامر لم يجد اقتراحات او افكار ماعدا مشاركة الاستاذ rockjone33
فسوف اشرح فكرتي المتواضعة
اولا انا ضد مثل هذا التقيد بوضع حدث عند الخروج او وضع خاصية حقل مطلوب او استخدام قناع ادخال وهو رأي شخصي غير ملزم لاحد
ثانيا في رأس محرر الاكواد للنموذج وضعنا متغيير
Dim x As Byte في حدث عند الخروج للحقل pname فقط وضعنا في بدايته الشرط
If x = 0 Then If IsNull(Me.PNAME) Or Me.PNAME = "" Then MsgBox "حقل الاسم مطلوب", , "!!!" Cancel = -1 Undo Exit Sub Else End If End If في خصائص النموذج تبويب حدث غيرنا مفتاح المعاينة الى نعم
اخير في حدث عند مفتاح للاسفل وضعنا الامر التالي
x = 1 If KeyCode = 27 Then DoCmd.GoToRecord , , acPrevious x = 0 Else End If مرفق مثال بسيط
Database61.accdb

وعليكم السلام
استخدم الامر التالي
Dim stLinkCriteria As String stLinkCriteria = "[رقم السند]=" & Me![رقم السند] DoCmd.OpenForm "سند صرف", WhereCondition:=stLinkCriteria الملف مرفق
 
1253485438_.accdb

جرب استبدل الامر
Fdrnum = DLast("Drnum", "Drig") + 1 بالامر
Fdrnum = Nz(DMax("Drnum", "Drig"), 0) + 1  

ضع الامر ⬇️
Parent![DetBill]![DBT_Product] = Me.ItemNam  

لتلوين الحدود لمربع النص
Me.tx2.BorderColor = RGB(53, 30, 236) وممكن هكذا ⬇️ والاول افضل
Me.tx2.BorderColor = 255 تحياتي

وممكن تستبدل الكود بالكود التالي
Dim x As Byte x = DCount("*", "[TblFFF111]", "[InvNo] ='" & [Forms]![FFF111]![FFF222]![txtInvNo] & "' And [InvDate] =#" & [Forms]![FFF111]![FFF222]![txtInvDate] & "# ") If x > 0 Then MsgBox "هذه الفاتورة مسجلة مسبقا", 0, "" txtInvNo = "" End If  
For Test2.accdb

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

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

وعليكم السلام
عند استخدام مربع تحرير وسرد في الجدول الخدمات فانت عملت حقل المحافظة من نوع رقم وكذلك الحال لحقل الخدمة
الان ترغب في عمل مخطط بياني مبني على الجدول ولكن يظهر رقم المحافظة ورقم الخدمة وللتغلب على ذلك هناك بعض الطرق منها
استخدام استعلام يتم عمله حسب الصورة المرفقة
او قم بانشاء استعلام جديد فارغ ثم في طريقة عرض SQL ضع الكود الاتي ⬇️
SELECT المنتفعين.التاريخ, المحافظات.المحافظات, الخدمات.الخدمات, المنتفعين.المعرف FROM المحافظات INNER JOIN (الخدمات INNER JOIN المنتفعين ON الخدمات.المعرف = المنتفعين.الخدمات) ON المحافظات.المعرف = المنتفعين.المحافظة;  

استخدام مربعات القوائم المنسدلة في الجداول يسبب مثل هذه المشاكل مثلا انت تكتب المعيار دولار بينما بسبب استخدام القوام في الجدول اكسس يتعامل مع المعرف وهو هنا رقم 1
لذا ينتج الخطأ وكذلك اسم الشركة المعييار لا يطابق البحث ويتطلب اضافة معرفة الشركة للنموذج
لتكون كتابة الدالة ⬇️
=Nz(DSum("[wared]";"all";"[omla]=1 " & " And [com]=" & [cco] & "");0) الملف مرفق مع عدم الاقتناع
 
hawalat(2).accdb

الملف في الرابط
هنا للتحميل

حسب فهمي للامر
 
test.accdb

شوف انا شايب وفهمي على قدي
جرب لعلني فهمت
بعض اختيارات القائمة الثالث ليس لها بنود ؟
حساب.accdb

جرب المرفق
 
aaa.mdb

جرب المرفق
قيمة الاستعلام تساوي
TRANSFORM Sum(add.kam) AS Sumمنkam SELECT add.mad FROM asasi INNER JOIN [add] ON asasi.itm = add.man GROUP BY add.mad PIVOT asasi.mandob; الملف مرفق
 
8.accdb

جرب المرفق
 
1731391564_(2).accdb

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

سبق ان تم ايضاح ذلك ⬇️
 
بل يوجد لكن الفكرة باختصار تتطلب وجود حقل في جدول يتم تحديثة بالقيمة الافتراضية كلما قمنا بتغييرها ويبقى الحقلين aa و bb غير منضمة
bb يحدث القيمة
و aa يحصل على القيمة الافتراضية باستخدام DLookup او احدى شقيقاتها
ولكن ننتظر رأي الاساتذة ربما لديهم افكار افضل