Foksh

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

مشاركة مع الأستاذ @ناقل ، جرب هذه الفكرة أستاذ @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

اخي الكريم ، مشكلتك في اسم جهة التعزيز لأنها في الجدول person الحقل Nam هو مربوط بعلاقة مع الجدول Karz مع الحقل Nam أيضاً . هذا تعديلي البسيط ، تفضل قروض التجربة الحالية1.accdb

أخي @العبيدي رعد ، نود تذكيرك بإغلاق الموضوع ، اذا انتهت مشكلتك في هذا الموضوع ، فقط اختر الإجابة كأفضل إجابة

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

تم الإنتهاء من إضافة درجة الحرارة إلى برنامج المنبه الذكي ، سيتم الإبلاغ عن التحديث ودمجه في المشاركة الأولى حال الإنتهاء من إضافة باقي العواصم العربية 🤗

من مصدر بيانات النموذج قم باختيار جميع الحقول ، ثم في حقل P ODate اكتب الشرط <Date() ونصيخة من أخيك ( عن تجربة ) استبدل المسافة التي بين المسميات بإشارة _

بالطريقة التي تم فيها عرض السجلات لا اعتقد انه من الممكن تنفيذ فكرتك 😬