Foksh

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

متابع بصمت 😊

أشكرك أستاذنا الغالي @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() ونصيخة من أخيك ( عن تجربة ) استبدل المسافة التي بين المسميات بإشارة _

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

تفضل .. fatherAnd Son (1).accdb

اخي الكريم من النموذج Main ، قم باختيار الأب ؛ ثم قم بادخال اسماء الأبناء في حقل SanName واضغط انتر , لا أكثر ولا أقل .

متابعةً مع أستاذنا @Moosak ، تم إضافة بعض التعديلات حسب طلبك . تفضل الكود أولاً . Option Compare Database Option Explicit Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private bMessage20Displayed As Boolean ' متغير لتتبع ما إذا تم عرض الرسالة عند 20% Private bMessage50Displayed As Boolean ' متغير لتتبع ما إذا تم عرض الرسالة عند 50% Private Sub StartBtn_Click() Call ResetProgressPar Call RunProgressPar End Sub Function ResetProgressPar() ' Reset Me.Par2.Left = Me.Par1.Left Me.Par2.Height = Me.Par1.Height Me.Par2.Width = 0 Me.P = "" bMessage20Displayed = False ' إعادة تعيين قيمة المتغير bMessage50Displayed = False ' إعادة تعيين قيمة المتغير End Function Function RunProgressPar() ' Start Dim x As Long Dim percentage As Double For x = 1 To Par1.Width Step 2 Me.Par2.Width = x percentage = CInt((x / Par1.Width) * 100) Me.P = percentage & " %" If percentage = 20 And Not bMessage20Displayed Then MsgBox "20% progress. Press OK to continue.", vbInformation, "Progress Update" bMessage20Displayed = True Sleep 500 End If If percentage = 50 And Not bMessage50Displayed Then MsgBox "50% progress. Press OK to continue.", vbInformation, "Progress Update" bMessage50Displayed = True Sleep 500 End If DoEvents Next End Function تفضل المرفق ، طبعاً قم بتغيير حدث الرسالة بالحدث الذي ترغب به شريط تقدم بدون تايمر.accdb

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

لم يتم تغيير اللوكيشن

أخي العزيز @سامر محمود جرب هذا التعديلات التي تمت على العلاقات Unif.accdb