Foksh

وكملاحظة أخرى ، إذا كان النموذج الفرعي فقط لعرض البيانات فقط . فتستطيع عمل خاصية التمكين = لا ، والقفل = نعم (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

ستم متابعة الفكرة أخي الكريم وإضافتا في التحديثات القادمة ، ولا يهمك أشكرك على ملاحظتك

تفضل محاولة متواضعة fatherAnd Son.accdb

بالفعل .. وجهة نظر قوية معلمنا و أستاذنا الفاضل @ابوخليل

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

تفضل صديقنا العزيز ,, fatherAnd Son.accdb