Moosak

ممتاز .. شكرا للتنبيه 👍🏼🙂 ما شاء الله عليك .. شخص منظم 😉 وأيضا ملاحظ سرعة ردك بروابط مشاركاتك وشروحاتك السابقة .. تبارك الله .. وهذي كيف منظمنها ؟ ( تطمعنا ) 😅

أعجبتني جدا .. ما شاء الله تبارك الله .. جزاك ربي خيرا وأجرا وحلاوة حبيبنا @jjafferr ☺️🌹 وكذلك فتحت ذهني إلى أفكار حلوة لتطويرها وتطبيقها بأكثر من شكل على التقارير الفارغة .. ومنها على السريع : أضفت في التقرير الفارغ أبو سجل واحد هذي العبارة "لا يوجد بيانات".. فكانت النتيجة 🙂 : هذا على السريع بس .. ولي في الاستعلامات الفارغة تجارب إن شاء الله 🙂 شيء آخر شدني في المرفق اللي حطيته وحابين نستفيد منك : لاحظت في تسمياتك للملفات اللي ترفعها للمنتدى هناك رقم تسلسلي تصاعدي مع الردود والمشاركات .. فأيش السر فيه ؟ وما هي القصة وراء ذلك ؟ 😉 هل عندك قاعدة بيانات بمشاركاتك أو بالمواضيع اللي تتابعها في المنتدى ؟

أخي @rockjone33 شكرا لمرورك .. ولكن شرحك غير مفهوم البته 🙃 جرب طبق على المرفق لنرى النتيجة ..

السلام عليكم جميعا ورحمة الله وبركاته .. 🙋‍♂️ سؤالي يتعلق بكيفية أجعل التقرير والتقارير الفرعية له ( تظهر ) مكتملة بتصاميمها خصوصا في حال عدم وجود بيانات .. فكما هو معلوم أن الوضع الافتراضي لبرنامج الأكسس يخفي التقرير ويظهر صفحة بيضاء عندما لا يحتوي التقرير على بيانات .. المطلوب هو : كيف أجعل التقارير الفرعية تظهر بكل تفاصيلها عندما لا توجد بها بيانات ؟ مثال توضيحي : عندما يكون هناك بيانات يظهر هكذا : وعندما لا يكون هناك بيانات يظهر هكذا : المطلوب أن يظهر بهذه الصورة : ShowReportInNoDate.rar

بالضبط أنا مشتغل على ملفك .. وأوقفت الكود على فكرة .. بس تضل الإجابة نفسها عمي جعفر .. 😁 السبب هو الربط الداخلي بين الجدولين في استعلام مصدر بيانات النموذج 🙂 هذا الربط يجعل البيانات تتعبى مباشرة ما دام الجدولين مربوطين بال MettingNumber

طبعا أنا كنت أجرب قبل ما أشوف مشاركة أستاذنا العزيز جعفر 🙂 وهذي محاولتي : طبعا يتم استعراض ملفات ال PDF في المتصفح ( وهذا يتطلب وجود برنامج مشغل PDF ) ويمكن الاستغناء عن العرض الكود يجلب كل الملفات المرتبطة بالرقم المطلوب تلقائيا عند الإنتقال من سجل لآخر في النموذج الفرعي ويجمعها في ليست بوكس .. النقر المزدوج على اسم الملف يفتحه لك خارجيا .. وهذا الكود : Public Sub BringAllFilesAndFolders() Dim path As String, currentPath As String Dim List As ListBox Set List = Forms!tabl1!FileList path = CurrentProject.path & "\Datapdfx\" currentPath = Dir(path, vbDirectory) List.RowSource = "" Do Until currentPath = vbNullString If InStr(currentPath, CStr(Me.noid)) > 0 Then List.AddItem currentPath End If currentPath = Dir() Loop Set List = Nothing End Sub ربط البيانات مع ملف pdf.rar

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

تفضل التعديل أخي m.r 🙂 Sub CopyFile() Dim sPathDeskTop As String sPathDeskTop = Environ("USERPROFILE") & "\Desktop" & "\b\" ' هنا اسم المجلد الذي سيتم انشاؤه في سطح المكتب Dim CopyFrom As String, CopyTo As String CopyFrom = Me.SourceFilePath ' هنا تضع اسم الحقل الذي به رابط الملف المراد نسخه CopyTo = sPathDeskTop & Me.NewFileName & ".pdf" ' هنا تضع اسم الحقل الذي به اسم الملف الجديد وامتداده If Len(Dir(sPathDeskTop, vbDirectory)) = 0 Then MkDir (sPathDeskTop) If Len(Dir(CopyTo, vbDirectory)) = 0 Then FileCopy CopyFrom, CopyTo Else MsgBox "هذا الملف موجود مسبقا", vbOKOnly Exit Sub End If End Sub

العفو أخي العزيز 🙂 معلمومة : لكي تتم عملية النسخ الكود يحتاج إلى اسم الملف كاملا مع الامتداد هكذا مثلا (fileName.pdf) سؤال : في حقل اسم الملف هل سيتم كتابة الاسم كاملا مع الامتداد (pdf.) أم الاسم لوحده فقط (fileName) ؟ سؤال آخر :وهل جميع الملفات pdf أم ستكون مختلفة ؟

وعليكم السلام ورحمة الله وبركاته .. تفضل أخي العزيز 🙂 Sub CopyFile() 'Requires reference: :لابد من التأكد من وجود المكتبة الاتية 'Add this reference >>---> Microsoft Scripting Runtime Dim fs Set fs = CreateObject("Scripting.FileSystemObject") Dim sPathDeskTop As String Dim oWSH As Object Set oWSH = CreateObject("WScript.Shell") sPathDeskTop = oWSH.SpecialFolders("Desktop") & "\b\" ' هنا اسم المجلد الذي سيتم انشاؤه في سطح المكتب Dim CopyFrom As String, CopyTo As String CopyFrom = Me.a ' هذا اسم الحقل الذي به رابط الملف المراد نسخه CopyTo = sPathDeskTop & Dir(CopyFrom) If Len(Dir(sPathDeskTop, vbDirectory)) = 0 Then MkDir (sPathDeskTop) If Len(Dir(CopyTo, vbDirectory)) = 0 Then fs.CopyFile CopyFrom, CopyTo, True Else MsgBox "هذا الملف موجود مسبقا على سطح المكتب", vbOKOnly Exit Sub End If Set fs = Nothing Set oWSH = Nothing End Sub فقط انتبه للملاحظات المكتوبة في الكود ..

موضوع دسم ما شاء الله تبارك الرحمن 🙂

وعليكم السلام أخي حامل المسك 🙂 جرب .. أكتب في المعيار : Like IIf(Len([Forms]![a123]![a1] & '')=0;"*";[Forms]![a123]![a1]) وراجع ( طرق التعامل مع الامر Like في الاستعلام ) مع مهندسنا العود @jjafferr 🙂

وعليكم السلام ورحمة الله وبركاته أخي أبو عبدالله 🙂 الرابط التالي ليس شرح لكيفية كتابة الدالة ، وإنما هي أداة تقوم بكتابتها نيابة عنك بمختلف أشكالها ووضعياتها .. ويمكنك من خلال الاطلاع على النتيجة تعلم الصياغة السليمة للدالة .. 🙂 💡⭐✨ --- الكاتب الآلي الذكي لدوال المجال Dloockup وأخواتها 😊 --- ✨⭐💡 تحياتي 🙂

عذرا أخي مدحت .. أكتشفت أن التعديلات لم تتطبق على المرفق .. إرجع الآن للمشاركة السابقة قمت بتعديل المرفق والصورة من جديد .. 🙂

غيرت لك دالة جلب المسارات جرب الآن 🙂 الموظفين.rar

هنيئا لنا بك .. وهنيئا لك بها 🙂 أخي @AbuuAhmed أتمنى لك التوفيق والسداد والرشاد والأجر العظيم . 🌷🌹😊

تم إضافة الكود أخي مدحت ، واشتغل معي تمام 🙂 على فكرة لم أجده سابقا بل كان هناك كود آخر .. وللعلم هذا السطر يعمل مشكلة عند التشغيل فأوقفته : New Microsoft Access Database.rar

ممكن ترفق البرنامج (المثال) أخي مدحت ؟

ما هو الكود المستخدم لفتح الصور ؟

تفضل أخي مدحت 🙂

تكتب هكذا أخي أبو أحمد : 🙂 Format([MyTimeTxtbox], "hh:nn") حرف الـ m محجوز للشهر حتى هذه يمكن كتابتها هكذا : Hour([MyTimeTxtbox]) & ":" & Minute([MyTimeTxtbox])

هذه صياغة دالتي الساعة والدقيقة : Hour([MyTimeTxtbox]) Minute([MyTimeTxtbox]) حيث أن [MyTimeTxtbox] هو اسم مربع النص لديك 🙂

ما شاء الله تبارك الله .. 🙂 زادك الله من واسع علمه مهندسنا @مبرمج متقاعد

شكرا لك مهندسنا العزيز @مبرمج متقاعد 🙂 بالنسبة لتنفيذ هذا الأمر .. هل يوضع على ملف Bat ؟ أم يمكن تنفيذه بالـ VBA ؟

ممكن عن طريق التنسيق الشرطي .. 🙂