ابوخليل

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

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

عليكم السلام حسب المعايير التي وضعتها انت : اذا لم يتحقق المعيار فالاستعلام لن يحمل قيم .. ولن يظهر الصفر لأن الصفر قيمة ، حتى لو كانت قيمة الحقل في الجدول صفرا الحل هو : الاستعلام عن قيمة الحقل من خارج الاستعلام فإن كان خاليا ارجع صفرا مثال : Nz(DLookup("countOfna", "Query1"), 0) لو شرحت فكرتك وما ذا تريد تحقيقة لربما وجدنا لك طريقة مناسبة لتنفيذها

تبجيد الاسماء مع فرز الذكور اولا ثم الإناث لست بحاجة الى اكواد في الاستعلام : خانة الفرز (sort) في الحقلين اختر تصاعدي عند ادراج الحقول في الاستعلام اجعل حقل الجنس يسبق حقل الاسم ، من اجل تكون الاولوية هي فرز الجنس اولا

عمل جميل رائع احترافي مختصر متقن ومرتب

يوجد ايهام في ارقام الجلوس (من/ الى) فيتبادر الى الذهن مثلا لو تخصص يبدأ رقم الجلوس من 10 الى 20 ان العدد 10 ولكن هذا غير صحيح فيمكن الموجود 2 فقط او 3 او اربعة بمعنى ان ( من_الى ) غير متسلسل فعلا .. ولا يعطي العدد الحقيقي لذا عملت حقل امام التخصص يظهر العدد الفعلي 2.rar

اذا بدون وحدات نمطية او دوال عدا Replace يتم اختصار المهمتين في هذا السطر NewName: IIf(Left([sName];4)="عبد ";"عبد" & Mid([sName];5);IIf([sname]<>"";Replace(Replace(Replace(Replace(Replace(Replace([sname];'أ';'ا');'إ';'ا');'ة';'ه');'ه';'ه');'ى';'ي');'ي';'ى');[sname]))

ولد صالح 😊

اعني الدالة الثانية الخاصة بـــ "عبد" اما الأولى فأعتقد انها جاهزة للعمل

نماذج المستخدمين لاي برنامج : 1- نموذج الدخول (غير منضم) 2- نموذج اضافة مستخدم جديد (غير منضم) 3- نموذج التعديل والحذف(منضم) ويمكن جمع الثاني والثالث في نموذج واحد .. ولكن الفصل افضل

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

بالنسبة للهمزات هذا يفي بالغرض ... نضعه في الاستعلام name2: Replace(Replace(Replace(Replace(Replace(Replace([tabeNames].[name1];'أ';'ا');'إ';'ا');'ة';'ه');'ه';'ه');'ى';'ي');'ي';'ى') على اعتبار name1 هو حقل الاسم في الجدول

لا اعلم ما فائدة الاخفاء ! تصوري يكون حقل الرقم السري ظاهر دوما .. ومطلوب من اجل الاضافة .. ايا كانت الاضافة والرقم السري هذا =كلمة مرور المستخدم وبكذا نتخلص من الرقم السري الجامد اللي وضعناه في الكود ايضا مادام المستخدم كاشير ومحاسب فالاولى تشفير كلمة المرور في الجدول ، لأنه في وضعك الحالي يمكن كشف كلمة المرور من الجدول وازالة النجوم ارى ان النجوم من اجل ماحد يعرفها وانت تكتبها .............. على كل حال تم تحقيق طلبك ، والحقل سيظهر في الأسفل لاحظ اني غيرت في مصدر بيانات النموذج ( جعلته غير منضم ) .. والبيانات الجديدة يتم الحاقها عدد المستخدمين2.rar

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

لديك اخطاء في تسمية الحقول منها : 1- استخدام كلمة Date وهذه الكلمة محجوزة ضمن دوال اكسس ومن الخطأ تسمية الحقل بها 2- ترك مسافات فارغة بين الكلمات في التسمية لا يستحسن استخدام نوع الحقل محسوب في الجدول لحقول يتم عليها عمليات مستقبلا .. وانما نستخدمها في اضيق الحدود ...................... تم تحقيق طلبك بعمل دالة تأخذ قيمة الحقل المحسوب من آخر سجل في الجدول ثم جعلنا هذه الدالة قيمة افتراضية لحقل Stock_Ltrs ايضا تم تغيير عرض النموذج الى مفرد من اجل الضبط 551.rar

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

طبعا لا بد من وجود علاقة بين الجدولين وتصميمك للحقول صحيح Database3.rar

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

Set Sp = CreateObject("sapi.spvoice") 👍

انت بحاجة عند وجود التكرار الى التراجع والخروج من الحدث فقط جرب هذا التعديل Private Sub SAEF_Click() Dim db As DAO.Database Dim rst As DAO.Recordset Dim existingName As String Dim nameExists As Boolean Set db = CurrentDb nameExists = False ' التحقق مما إذا كان الاسم موجودًا بالفعل في الجدول Set rst = db.OpenRecordset("SELECT [NAME ARABIC] FROM TABELSIMCARD WHERE [NAME ARABIC] = '" & Me.D2 & "'", dbOpenSnapshot) If Not rst.EOF Then ' إذا تم العثور على السجل، فذلك يعني أن الاسم موجود nameExists = True End If rst.Close Set rst = Nothing Set db = Nothing ' إذا كان الاسم موجودًا بالفعل، عرض رسالة تحذيرية وعدم الحفظ If nameExists Then MsgBox "الاسم '" & Me.D2 & "' الموظف موجود مسبقاً في نظام الكشوفات الخاصة ببطاقات الهاتف.", vbExclamation Undo DoCmd.CancelEvent Exit Sub Else DoCmd.RunCommand acCmdSaveRecord End If End Sub

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

ليس استعلاما واحدا بل استعلامات فانت تتعامل مع جدولين مرتبطين .. وتريد تكرار البيانات في الجدولين مع مراعاة اختلاف رقم القيد المرتبط المسألة بحاجة الى وسيط ( ذاكرة مؤقتة ) تحفظ السجل القديم لاستخدامه كمعيار ووسيط آخر يمثل السجلات الجديدة تمت المعالجة على النحو الذي ذكرته اعلاه Dailyrepetition2.rar

الامر يسير جدا لو تتبعت الأكواد للاحظت اني غيرت فقط false الى true والعكس صحيح المثال3.rar

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

تفضل جرب يبحث في الاسم المصحح او جزء منه ويبحث في الرقم القومي مع ضابط عدم السماح بكتابة الحروف سيكون اسرع بإذن الله حاولت قدر الإمكان عدم تغيير شيء حتى يسهل عليك نقله ، التغيير تم على الاستعلام في تعديل ( تسمية ) الحقل المصحح .. اعطيته اسم : ename2 المثال2.rar