نجوم المشاركات

أستاذ @Ahmed_J ، خليني افهم حبة حبة لأن احياناً استيعابي يكون بطيء حبتين بعد الأكل .. هالحين انت محتاج من تختار من القائمة B يروح يعمل بحث في كل الحقول - حتى لو عددهم 50 - اللي سجلها رقمه يطابق GradeNo في القائمة A . انا عملت الـ GradeNo رقم 8 يساوي كاتب في الحقلين باعتبار وجود أكثر من حقل في الجدول . وعند اختيار رقم 8 من النموذج من A وتختار اي اختيار في B غير كاتب رح تكون النتيجة انه عدم تطابق في البيانات .. ومن تختار كاتب ما رح يظهر رسالة . الحين هذا اللي انا دخت وأنا أشرحه صحيح ولا لا سمح الله غلط . هذا الكود اللي خرجت فيه بالنهاية ، والمرفق أسفله :- Private Sub B_AfterUpdate() Dim db As DAO.Database Dim rs As DAO.Recordset Dim sql As String Dim found As Boolean Dim field As DAO.field found = False Set db = CurrentDb sql = "SELECT * FROM TP2 WHERE GradeNo = " & Me.A Set rs = db.OpenRecordset(sql) If Not rs.EOF Then found = True rs.MoveFirst For Each field In rs.Fields If field.Name <> "GradeNo" And field.Value <> Me.B Then found = False Exit For End If Next field End If rs.Close If found Then MsgBox "بيانات متطابقة", , "" Else 'If Not found Then MsgBox "بيانات غير متطابقة", , "" End If End Sub Test-1.accdb

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

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

عيني عليك بارده من الحسد 🥰 ومنكم نتعلم وما زلنا معلمنا الفاضل @ابوخليل جزاك الله كل خير 🤝 انا كنت فاهم باتجاه آخر 😅

انا كنت اعمل على الكود لما رأيت كود الاستاذ فادي وقرأته اعتقدت انه يلبي المطلوب وتوقفت عن اكمال الكود الآن وبعد تأكيد ما فهمته من قبل الاستاذ احمد اليكم الحل دالة تأخذ قيمة B وتقارنها بأي حقل داخل السجل : Public xfld As Byte Public Function Allfld(x As String) As String On Error GoTo ErrHandler Dim rs As Object, i As Integer Set rs = CurrentDb.OpenRecordset("SELECT TP2.* FROM TP2 WHERE TP2.GradeNO= " & [Forms]![form1]![A] & "") i = 0 For Each Field In rs.Fields i = i + 1 If x = rs.Fields(i) Then xfld = 1 Exit Function End If Next Set rs = Nothing ErrHandler: If Err.Number = 3256 Then Exit Function End If End Function ويتم مناداتها من النموذج : Private Sub B_AfterUpdate() xfld = 0 Call Allfld(Me.B) If xfld = 0 Then MsgBox "البيانات غير متطابقة" Undo Exit Sub End If End Sub Test-11.rar

قلتلك استراحة محارب ، خلني بس أوصل البيت وأصحصح استأنف 😎

استاذ @Foksh الله يبارك فيك ويحفظك من كل مكروه والله تعبتك معي كتير لايوجد C فقط A و B الكود تبع استاذ @ابوخليل شغال تمام لكن لايمكن تكرار الدالة DLOOKUP لعشرين مرة اطلع عليه لو احببت ذلك تحياتي Test-1.accdb ابو خليل.accdb

هذه انتهينا منها المفروض ,, هذه النقطة التي لم استوعبها ، فما الحاجة للبحث داخل كل الحقول في السجل المحدد ؟؟؟؟؟؟؟؟؟؟؟ ام تريد ان تكون القيمة في B اذا كانت موجودة في أحد الحقول في السجل المحدد فيكون التطابق موجود وإذا لم تكن القيمة في أي من الحقول ضمن نفس السجل فتكون الحالة عدم تطابق ؟؟؟؟

شكراً استاذ @Foksh

جرب لتحقيق ذلك، يمكنك استخدام حدث `Worksheet_Change` في VBA للتحقق من القيمة المدخلة ورفضها إذا لم تكن القيمة المطلوبة. هناك عدة طرق لتحقيق ذلك، وإليك كيف يمكن القيام بذلك: 1. افتح ملف الـ VBA في Excel بالضغط على `Alt + F11`. 2. اختر ورقة العمل التي تريد تطبيق القاعدة عليها من الشريط الجانبي في VBA. 3. انقر مرتين على ورقة العمل لتفتح محرر الـ VBA لها. 4. اختر `Worksheet` من القائمة المنسدلة في الأعلى ثم اختر `Change` من القائمة المنسدلة الثانية. 5. قم بإضافة الكود التالي: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Me.Range("E1")) Is Nothing Then If Target.Value <> "=SUM(A1:D1)" Then Application.EnableEvents = False Me.Range("E1").Value = "=SUM(A1:D1)" Application.EnableEvents = True MsgBox "Only the SUM function is allowed in cell E1.", vbExclamation, "Invalid Input" End If End If End Sub هذا الكود يتحقق من أن القيمة المدخلة في الخلية E1 هي الدالة SUM فقط، وإذا كانت غير ذلك، فسيقوم بإعادة ضبط القيمة إلى الدالة SUM وعرض رسالة تنبيه.

اسمح لي بمداخلة لولبية أستاذ @Ahmed_J ، طبعاً بعد إذن معلمي @ابوخليل يمكننا استخدام حلقة تكرارية تقوم بالتحقق من قيمة Me.B في كل سجل دون حاجتنا الى تحديد اسماء الحقول أو رؤوس الأعمدة ، كمثال يمكن أستخدام حلقة For Each كما في الكود التالي ,, Dim i As Integer Dim fieldName As Variant Dim fieldValue As Variant For Each field In CurrentDb.TableDefs("TP2").Fields fieldName = field.Name fieldValue = Nz(DLookup(fieldName, "TP2", "GradeNO=" & Me.A), "") If Me.B <> fieldValue Then MsgBox "البيانات غير متطابقة" , , "" Undo Exit Sub End If Next field قم بالتجربة حسب تصميمك وأبلغني بالنتيجة

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

الاضافة تكون من الجدول، يجب عليك ربط الجدول بالاضافة من خلال أمر الاضافة على الصفحة أو من خلال إعادة بناء النموذج قمت بعمل نموذج جديد عدلت عليه، لا أعرف إذا كان هذا المطلوب أنظر تعديلي البسيط على الموضوع النجارة-1.rar

كل شئ ممكن لكن عليك اعادة رسم قاعدة البيانات اولا ماذا تريد هل هو كفاتورة مبيعات ان كان كذلك فهناك الكثير الكثير من الامثلة المفيدة وطبق على فكرتك

مشروع العيادة : اكتروني بلا ورق الأدوات على الأرض : نقاط فرعية او حواسيب متوفرة عند كل من : ( الاستقبال / الفحص السريع/ غرف عيادة (طبيب) / مختبر / اشعة / صيدلية الرسم التصوري : رأس الهرم أو رأس المشروع = المريض لذا يجب ان يكون معرف المريض في جميع الجداول الرئيسية مسار البرنامج او الخطوات : تتم آليا 1- الاستقبال : تسجيل المريض وتحويله الى الفحص السريع 2- يظهر عن الطبيب الذي تم اختياره 3- بعد الفحص يتم اكمال الخطوات التي يراها الطبيب 4- يظهر عند المختبر او الاشعة ويتم ادخل النتائج 5- يطلع عليها الطبيب ويصرف الدواء 6 - تظهر عند الصيدلي _________ بناء على هذا التصور .. يتم تقدير الجداول بالطبع يوجد الكثير من الجداول الفرعية التي تخدم المسار ----------------- نصيحة ... برنامج العيادات كبير ومتشعب جدا ,, ومادمت تريد التعلم فابحث عن مشروع سهل ويسير

جرب المرفق ..................... New Microsoft Access Database (9).accdb

تفضل حسب فهمي Dim i, ii As String i = Nz(DLookup("txt_h", "TP2", "GradeNO=" & Me.A), "") ii = Nz(DLookup("txt_e", "TP2", "GradeNO=" & Me.A), "") If Me.B <> i And Me.B <> ii Then MsgBox "البيانات غير متطابقة" Undo Exit Sub End If Test-11.rar

استاذ @ابو محمد 4 هنا توجيه وارشاد ومساعدة بقدر الامكان وليس عمل برامج ......... وانا ساعدتك في كل طلباتك التي طلبتها وما قصرت معك .

تمام اخي لقد فهمت طلبك بشكل خاطئ اظن ان حل الاستاد @احمد عبدالحليم سيوفي بالغرض بالتوفيق

لا ابخل على منتدانا وأخواني والأساتذة أبداً .. آن الأوان يا صديقي 😁😂 الملف مفتوح المصدر ، فقط الدعاء لوالديّ Smart Alarm.zip باب الحوار مفتوح للمناقشة ، والضيافة عند الأستاذ @Moosak

أستاذ @figo82eg سامحني بعطيك ملف جاهز كنت سويته لصديق . ادرسه جيداً . وهو عبارة عن شاشة كاشير وشاشة دليفري و10 طاولاات وأنت زود حسب حاجتك . وباسوورد mahdi هو 1960 . واليك المرفق وشرح طريقة العمل . https://media-upload.net/file/bItQ5OXVfgan برنامج المطعم-v1.rar أعتذر أستاذي @ابوخليل ماانتبهت لمشاركت سامحني جزاك الله خير .