Foksh

في النقطة الأولى في الفرق بين 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 .

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

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

تم إلغاء القائمة في الزر الأيمن داخل النماذج ، سقطت سهواً 😁😈 وتعديل الروابط.

أبشر يا استاذ @kkhalifa1960 ولكني الآن متابع من الجوال ، ولا يوجد جهاز كمبيوتر في الوقت الحالي لتطبيق الأفكار 🤗 إن شاء الله غداً سنرى ما نستطيع فعله وجهودكم 🥰

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

حسب ما فهمت 😅 IsNull تستخدم لفحص القيمة اذا كانت فارغة أو لأ وتعود النتيجة بـ True أو False في الثانية تستخدم لمقارنة ما اذا كانت القيمة فارغة أو لأ وتعود أيضاً بنفس النتيجة وبالنسبة للأحدث ، فعند التحديث تعمل بعد أن يقوم المستخدم بتغيير قيمة المربع والانتقال إلى مربع آخر أو الخروج منه . أما عند التغيير فتعمل هذه الخاصية في كل مرة يتم فيها تغيير قيمة المربع ، أو القائمة المنسدلة .... إلخ سواءً كان ذلك عن طريق الكتابة أو اللصق أو القص ( على ما أعتقد ) ، ويُعتبر هذا الحدث مناسبًا لتنفيذ الإجراءات التفاعلية أثناء تحرير المربع. هذا والله أعلم إن كنت فاهم صح ولاااا 😂

أسمح لي بالمشاركة الأولى أستاذ @kkhalifa1960 سيتم ادراج مسارات جميع الصور من الموقع في جدول Table1 عند فتح النموذج بناءً على الكود التالي في الحدث عند التحميل للـ WebBrowser . Private Sub WebBrowser_Updated(Code As Integer) On Error Resume Next If Me.ActiveControl.Name = "WebBrowser" Then Dim htmlDoc As MSHTML.HTMLDocument Set htmlDoc = WebBrowser.Document Dim imgElements As MSHTML.IHTMLElementCollection Set imgElements = htmlDoc.getElementsByTagName("img") Dim imgElement As MSHTML.IHTMLImgElement Dim imagePath As String Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset("Table1") For Each imgElement In imgElements imagePath = imgElement.src If Len(imagePath) > 0 Then rs.AddNew rs("Pic_Path").Value = imagePath rs.Update End If Next imgElement rs.Close Set rs = Nothing Set db = Nothing End If End Sub وطبعاً نستطيع جعل الموضوع يتم عند النقر على زر أو أي حدث تريده DDTestWB1.accdb

استفغر الله أخي الكريم @alhourriah أرجو منك أن تقوم بتعديل الرد وإزالة كلمة العظيم ( لا عظيم إلا الله )

ما تم تنفيذه بناءً على طلبك ، وضح أكثر حتى نستفيد من التجارب التي تتم

مشاركة مع الأستاذ @ناقل ، جرب هذه الفكرة أستاذ @Ahmed_J Private Sub B_AfterUpdate() Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSQL As String Dim selectedDegree As Long Dim selectedTitle As String selectedDegree = CLng(Me.A.Value) selectedTitle = Me.B.Value strSQL = "SELECT * FROM tp2 WHERE GradeNo = " & selectedDegree & " AND [الوظائف الهندسية] = '" & selectedTitle & "';" Set db = CurrentDb Set rs = db.OpenRecordset(strSQL) If rs.EOF Then MsgBox "العنوان الوظيفي لا يتطابق مع الدرجة المحددة.", vbExclamation, "خطأ" End If rs.Close Set rs = Nothing Set db = Nothing End Sub

تستطيع جعل الكود يعمل معك عند النقر على زر حفظ ، أو حيثما تريد

هذه تجربتي البسيطة ، بالإستناد إلى برنامج صغير يقوم بصناعة الـ QR كما ترغب ، يدعم قراءة اللغة العربية بدون مشاكل . وتم ضبط البحث MedicalCenter.zip