sm44ms

كيف اضع هذا الكود لو سمحت

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

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

عدلت الفاصلة المنقوطه ولم تنحج معي شوف الرسم في الصوره =IIf(Len([me].[a7] & "")=0;0;1)+IIf(Len([me].[a8] & "")=0;0;1)+IIf(Len([me].[a9] & "")=0;0;1)+IIf(Len([me].[a10] & "")=0;0;1) بعد التعديل عليه بخصوص الفاصله المنقوطه بس لم يعمل

سوت الكود بس ظهرت في الحقل #Name?

اسماء الحقول هي نوع المعاملة النصية a2 a3 a4 a5 الرقمية a7 a8 a9 a10

سويت الطريقة الي قلت عليها ظهرت الرساله هذه

الحدث كيف استخدمة للنموذج اوالحقل

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

صباح الخير

قاعد البيانات حجمها اكثر من 3 جي بي ولم ترفق بسبب الحجم جزاك الله خير

السلام عليكم ورحمة الله وبركاتة تحية لكل واحد فيكم اريد عدد السجلات في الحقول الصفر اي كالتالي اذا معاملة يظهر في العدد 1 واذا معاملتين تظهر في العدد 2 اذا الكل تظهر العدد 4

الف شكر اخوي اين يوجد زر افضل اجابة

الف شكر اخواني kkhalifa1960 jjafferr وكلكم فيكم الخير kkhalifa1960 ماقصرتو ا طلبي كان الي ارسله اخونا طلب بسيط اخر كان بخصوص الارقام اذا كان الحقل اسم موظف هل استخدم نفس الكود

الف شكر جربت الكود ضبط معي بس اختفى علي ابا اعدل عليه وين القاه لو فيه دالة افضل تجيبه من الجدول على طول يكون افضل مثل دالة =DLookUp او شيبه لها

اسعد الله صباكم بكل خير لدي جدول فية حقل الاسم والرقم العام اللغة الوقت وكل الحقول بتنسيق نص وليس رقم ابي دالة تظهر اخر رقم في حقل الرقم العام على النموذج مثال في الحقل هذا ارقام مخزنة في الجدول 2018 2019 2020 2021 ابي عند فتح النموذج اشوف الرقم 2021 موجود في الحقل حتى اعرف كيف اسلسل الارقام والف شكر لكم

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

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

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

If InputBox("ÇÏÎá ßáãÉ ÇáãÑæÑ ááãÓÄæá", "ÝÊÍ äãæÐÌ ÇáÕáÇÍíÇÊ ãÓÄæá ÇáäÙÇã") = "774512457414414" Then MsgBox " ÇáÇãÊíÇÒÇÊ ßÇÝíÉ áÏÎæá ÇáÔÇÔÉ ÊãÊ ÇáãæÇÝÞÉ ", vbOKOnly, "ÇáÇãÊíÇÒÇÊ ÛíÑ ßÇÝíÉ" DoCmd.OpenForm "ADD USER" Else MsgBox " áã íÊã ÅÏÎÇá ßáãÉ ÇáãÑæÑ ÑÇÌÚ ãÓÄæá ÇáÈÑäÇãÌ", vbOKOnly, "ÊÇßíÏ ÕáÇÍíÇÊ ÇáÏÎæá" MsgBox " ÇáÇãÊíÇÒÇÊ ÛíÑ ßÇÝíÉ ÑÇÌÚ ãÓÄæá ÇáÈÑäÇãÌ 0124142 ", vbOKOnly, "ÇáÇãÊíÇÒÇÊ ÛíÑ ßÇÝíÉ" DoCmd.CancelEvent End If End Sub الرجاء التعديل على الكود التالي: وقت ادخال الباسود تظهر الاراقام والحروف حق الباسود اباها على شكل نجوم

تمام اجرب وارد لك باجر طال عمرك

جربتها بهذه الطريقه في معيار الاستعلام <=Date()+30 وتعطي فقط البطاقات التي سوف تنتهي بعد شهر بالضبط - اقول كذا يسد ولكن اذا ابا تقرير للبطاقات بعد 6 شهور شو اعمل

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

والله حاولت ارفاق الملف بس كبير واجد جزاك الله خير

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