Foksh

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

أبشر يا استاذ @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

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

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

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

متابع بصمت 😊

أشكرك أستاذنا الغالي @kkhalifa1960 على كلامك الجميل ، هذا من تعليمكم استاذي الفاضل 🥰 نعم معلمي الفاضل @ابوخليل ، المبدأ نفسه ولكن دون تغيير اعدادات الطابعة 😀

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

كفكرة جانبية ، اذا كانت الطابعة لا تدعم الطباعة على الوجهين ، فممكن نعمل حيلة نخلي آكسيس يعملها بطريقتنا الخرنفعية 😂 اول طلب نقول لآكسيس اطبع الصفحات الفردية في التقرير ، وبس تخلص طلعلي رسالة تقولي اقلب الورق ورجعه للطابعة واضغط موافق ليتم طباعة الصفحات الزوجية 😁 Private Sub CommandButton_Click() Dim i As Integer Dim rpt As Report Dim totalPages As Integer Dim response As VbMsgBoxResult Set rpt = Reports![اسم_التقرير] DoCmd.OpenReport "اسم_التقرير", acViewNormal totalPages = rpt.Pages For i = 1 To totalPages Step 2 DoCmd.PrintOut acPages, i, i, , , acPrintAll Next i response = MsgBox("يرجى قلب الأوراق ووضعها مرة أخرى في الطابعة. انقر 'موافق' للمتابعة.", vbOKCancel + vbInformation, "قلب الأوراق") If response = vbOK Then For i = 2 To totalPages Step 2 DoCmd.PrintOut acPages, i, i, , , acPrintAll Next i End If DoCmd.Close acReport, "اسم_التقرير" End Sub جرب الفكرة دي ، وننتظر نتيجة التجربة 🤗

وكملاحظة أخرى ، إذا كان النموذج الفرعي فقط لعرض البيانات فقط . فتستطيع عمل خاصية التمكين = لا ، والقفل = نعم (Enabled = No , Locked = Yes)

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

اذا كان فورم البحث مبني على استعلام فأن الإستعلام بلا شك قد تم تحديد مربع النص الذي يتم فيه البحث للنموذج الأول . وعند تطبيق الفكرة على النموذج الثاني فإنه سيفتقد الى مربع النص الذي في النموذج الأول . هذا رأيي بالتصور لما شرحت في سؤالك . على العموم ارسل مرفق اذا لم يكون كلامي صحيحاً

وانا استعجبت تماماً مثلك أستاذي الفاضل . لذا توجهت الى ايجاد طريقة دون الإضطرار الى تحميل الصورة لتلافي مشكلتي التي واجهتني والتي لربما لنسخة الأوفيس أو الإصدار علاقة بالأمر . على العموم تم الحل بما يلي :- في هذا الحدث Form_Current ، يتم تنفيذ الكود عندما يتم تغيير السجل الحالي في النموذج. Private Sub Form_Current() On Error GoTo catch Dim imageURL As String imageURL = Me.texturl.Value If Len(imageURL) > 0 Then Me.Image45.pictureData = GetPictureData(imageURL) Else Me.Image45.pictureData = "" End If catch: Resume Next End Sub يتم استخدام Me.texturl لاسترجاع قيمة الرابط من حقل النص الذي يحتوي على عنوان الصورة . إذا كان الرابط غير فارغ (Len(imageURL) > 0) ، يتم استخدام الرابط لجلب الصورة باستخدام الدالة GetPictureData ، ويتم تعيين البيانات المسترجعة إلى حقل الصورة Me.Image45.PictureData في النموذج . أما إذا كان الرابط فارغًا ، يتم تعيين قيمة فارغة لحقل الصورة . كود الدالة GetPictureData Function GetPictureData(ByVal imageURL As String) As Variant Dim webClient As Object Set webClient = CreateObject("MSXML2.ServerXMLHTTP.6.0") On Error Resume Next webClient.Open "GET", imageURL, False webClient.setRequestHeader "Content-Type", "image/jpeg" webClient.send "" If webClient.Status = 200 Then GetPictureData = webClient.responseBody Else GetPictureData = "" End If On Error GoTo 0 Set webClient = Nothing End Function Pic From URL.accdb

تفضل هذا الفيديو لأستاذنا @Moosak