Foksh

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

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

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

أخي الكريم @ازهر عبد العزيز ، بداية الناتج عند تقسيم 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

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

ما هو مصدر هذا الكود انا بقالي عايش كتير وأول مرة أشوفه

اين المثال المرفق

متابع بصمت 😊