Foksh

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

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

من مصدر بيانات النموذج قم باختيار جميع الحقول ، ثم في حقل 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

أستاذ @kanory ، أشكرك جداً على مساهمتك الجميلة ، الفكرة حلوة ولكن هي تعتمد على تنزيل الصورة من المصدر وبعد ذلك يتم عرضها على أنها من مسار داخلي وليس من مسار خارجي URL .

جزاكم الله كل خير لمروروكم العطر أخونا @محمد حسن المحمد

اخي الكريم @سامر محمود ، أنا ما فهمتش كلامك ده منين .. 🧐 ده كلامي ، وجاوبتك بنفس المشاركة ( جدول الحركات ) كمثال 😊

يسعدني ويشرفني مرورك الكريم أستاذ @عبدالله المجرب 🥰

ومشاركة في توضيح الفرق بين نوعي المتغيرات المتغير من نوع Integer لتخزن الأرقام الصحيحة ( بدون أعشار ) ، بينما المتغير من نوع Double يستخدم لتخزين الأرقام العشرية ( بما في ذلك الأعشار ) .

مشكوووور يا غالي @kanory سأقوم بالتجربة غداً في العمل ، في المنزل ليس لدي انترنت 🤗

السلام عليكم ورحمة الله وبركاته.. كيف يمكن عرض صورة من خلال عنوان انترنت داخل النموذج 😅 ؟

تم تصدير ملف PDF بشكل طبيعي مع ظهور التاريخين rptRoshittaPharmacy.pdf

جميل جداً .. وبعد أذن أخي الكريم @alaa aboul-ela =DCount("[ID]","Table1")

تفضل مشاركتي البسيطة ، حيث Open_Key اسم الزر الذي ستستخدمه لتنفيذ الكود . Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Sub OpenKeyboard() Dim osVersion As String Dim command As String osVersion = GetOSVersion() If osVersion = "10" Then command = "osk.exe" Else command = "osk.exe" End If ShellExecute 0, "runas", command, vbNullString, vbNullString, 1 End Sub Function GetOSVersion() As String Dim osVersion As String osVersion = SysCmd(acSysCmdAccessVer) GetOSVersion = Left(osVersion, InStr(osVersion, ".") - 1) End Function Private Sub Open_Key_Click() OpenKeyboard End Sub وهذا مرفق للتجربة Keyboard.accdb مع العلم أنه تمت تجربة كود الأستاذ @Moosak ويعمل بكفاءة