Foksh

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

أستاذ @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

طيب ، خلينا نجرب تضييق النطاق في الحصول على اسماء الحقول Dim rs As DAO.Recordset Dim field As DAO.Field Set rs = CurrentDb.OpenRecordset("SELECT * FROM TP2 WHERE 1=0") For Each field In rs.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 rs.Close Set rs = Nothing

اسمح لي بمداخلة لولبية أستاذ @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 قم بالتجربة حسب تصميمك وأبلغني بالنتيجة

أخي الكريم ، كلاهما سيكون له نفس النتيجة حسب الكودين If Me.text1.Value = "" Then Me.text2 = 1 Else Me.text2 = 2 End If If IsNull(Me.text1) Then Me.text2 = 1 Else Me.text2 = 2 End If لا أعتقد أنك ستلحظ الفرق يا صديقي

من داخل النماذج

كنصيحة ، ابتعد عن الحقول المحسوبة داخل الجداول بالنسبة لطلباتك ، فتستطيع تنفيذ الجميع بانشاء حقل محسوب وتحقق شروطك ؛ باستثناء هذا الطلب الحقل الثاني يجب ان يكون اقل من الاول او يساويه

اعتقد وجهة نظرك غير سديدة وغير صحيحة ، فالمطلوب ان يكون رقم الكتاب فريد وغير متكرر لا في صادر ولا في وارد ؛ وإلا فما الفائدة من ان يكون رقم الكتاب هو الرابط بين الكتب والأوليات ؟؟ مثل أن تبحث عن طالب في مدرسة لطلابها ارقام تتشابه والصف يتشابه والعمر يتشابه لكن معلم الصف يختلف !!!!!!!!!

تفضل أخي الكريم .,, عدم تكرار .accdb

أيضاً تابع هذا الموضوع قد يفيدك لأستاذنا @ابوخليل

في النقطة الأولى في الفرق بين IsNull و "" ستكون النتيجة نفسها تقريباً ولن تلحظ الفرق بينهم . فعلى سبيل المثال:- IsNull Dim txt1 As Variant txt1 = Nothing If IsNull(txt1) Then MsgBox "القيمة فارغة" Else MsgBox "القيمة غير فارغة" End If "" Dim txt1 As String txt1 = "" If txt1 = "" Then MsgBox "القيمة فارغة" Else MsgBox "القيمة غير فارغة" End If طبعاً الفرق بين المتغيرين هو أن Variant نوع من المتغيرات التي يمكنها تخزين أي نوع من البيانات ، كالبيانات نصية ، أو الأرقام ، أو التواريخ ، أو أي نوع آخر من البيانات. أما String فهو نوع من المتغيرات التي يتم استخدامها لتخزين النصوص فقط كالتي تحتوي على سلاسل النصوص مثل "Hello World"، "1234"، "abc123". هذا من وجهة نظري ، وإن كان لأحد الإخوة توضيح أفضل ؛ فأقف جانبك للاستفادة والتعلم بشكل أوضح 🤗

لعدم توافر جهاز كمبيوتر حالياً قم بتطبيق الآتي بعد إنشاء نموذج فارغ وإنشاء مربعي نص فارغين ( بدون مصدر بيانات ) . في مربع النص الأول ( افترض اسمه Txt1 ) وفي حدث بعد التحديث انشىء الكود التالي كتجربة :- msgbox me.txt1 & "القيمة في مربع النص هي :- " الآن اكتب اي كلمة تجريبية داخل Txt1 واضغط انتر أو تاب للخروج للمربع الثاني ، وسترى النتيجة. أما في حدث عند التغيير ، اتبع الخطوات السابقة ولكن الفرق هو اسم مربع النص الثاني ولنفرض Txt2 ، وهنا ستلاحظ انه عند كل حرف تكتبه او تحذفه ستظهر لك الرسالة كنتيجة التغيير في كل مرة يتم ذلك 🥰 اصنع الفكرة بيدك لتتوضح لك الفكرة 😊

لا أعتقد ذلك 🤗

حتى لا يتشعب الموضوع في أذهان من يقرأ الموضوع ، تعبر Null عن عدم وجود قيمة صالحة أو حقيقية . فإذا كانت قيمة حقل معين تحتوي على Null ، فهذا يعني أنه لا توجد قيمة محددة لهذا الحقل . فالقيمة Null ليست نصًا فارغًا ، اعتبرها حالة خاصة حيث لا وجود لقيمة صالحة فيها. أما القيمة الفارغة ( "" ) فهي تعبر عن نص فارغ من قيم رقمية أو فارغ من القيم النصية ( الحروف ) . حيث يستخدم الرمز "" لتمثيل النص الفارغ . باختصار القيمة الفارغة هي قيمة نصية فارغة ( والفراغ يعتبر حرفاً في الحروف أو النصوص ) وليست Null. وعليه فإن إجابةً لسؤالك أعلاه في الجملة الشرطية في الكود الأول ، يتم فحص إذا كانت القيمة فارغة ("") ، بينما في الكود الثاني يتم فحص إذا كانت القيمة تمثل Null . الشق الثاني سأقوم بتجهيز مرفق وارفاقه في مشاركة أخرى إن شاء الله طبعاً إجتهاداً مما تعلمته أو فهمته ، وقد أكون مخطئاً في التعبير

لا مانع من التعلم بأي لغة أخي الكريم ، ارسل المرفق ان استطعت الذي تتحدث عنه ، ولنر كيفيه الفكرة التي اعتمدها صاحب المشروع في المنتدى الأجنبي . ورأيي قد ذكرته سابقاً ( الموضوع جيد والفكرة جميلة لحماية البيانات وهي الأهم بالنسبة للمستخدم ) ؛ ولكن تذكر فكرة أن آكسيس نفسها لم تقم بتقديم الحلول لحماية البيانات كونها من حق المستخدم في الحصول عليها متى شاء .

أعتقد الكثيرين خطرت لهم هذه الفكرة ، وهي جيدة جداً لو لم يكن المشروع يعتمد على اي نوع من الإستعلامات . فمثلاً وسبق لي التجربة على مشروع الأخ الدكتور @الحلبي - بأن يتم تخزين المعلومات في الجداول بطريقة مشفره ، ويتم عرضها بشكل عكسي في النماذج عند طلبها مباشرة من الجدول دون وسيط ( إستعلام ). لكن عند تنفيذ الإستعلامات والمعايير والشروط ... الخ ، فإنك ستجد مشكلة في فك التشفير داخل الاستعلام ..... بالإضافة إلا أن الفكرة قد تكون ناجحة في بداية الأمر . ولكن عند تراكم السجلات والبيانات وكثرتها في الجداول ستجد أن الموضوع يأخذ وقتأ أطول كل مرة وأن البرنامج أصبح ثقيلاً جداً. هذا من وجهة نظري طبعاً

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

أخي الكريم @ازهر عبد العزيز ، بداية الناتج عند تقسيم 79 على 16 صحيح وهو 4.9375 ، فكيف تريده أن يكون 4.15 تم اضافة نموذج كمثال توضيحي مع تقريب الناتج لأقرب منزلتين عشريتين ، تفضل Required.accdb

جرب هذا التعديل أخي الكريم :) قروض 4.accdb

ما شاء الله ، أبدعت في الطريقة بشكل احترافي أستاذ @kkhalifa1960 لي ملاحظة صغييييرة ، لا أتعدى على إبداعك بكل تأكيد . وهي عند تغيير العنوان في نفس الجلسة والضغط على زر Navigate ، ستلاحظ أنه سيقوم بإضافة وتكرار مسارات الصور في القائمة LstImages . فقمت بإضافة سطر لتفريغ مصدر سجلاتها ,, Private Sub WebBrowser0_DownloadComplete() LstImages.RowSource = "" Dim Obj ,,,,,, استكمال الكود وأيضاً قد أحتاجه في أحد أفكاري الخرنفعية

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

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

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

يبدو ان الأخ الكريم لم يأخذ بالمعنى الذي بين السطور في هذه المشاركة 😁

بلا شك ، جهود أخونا وأستاذنا @ابو جودي لا تقدر بثمن 😊 .