Moosak

ننتظرك بلهفة 👍🏼🙂 وحبذا لو تتطرق لموضوع كيفية نقل قاعدة البيانات وتنصيبها على السيرفر في جهاز العميل أو المستخدم والاتصال بها .. وكذلك قضية كيفية التعامل مع المرفقات والملفات التي يتم تخزينها في نفس مجلد قاعدة البيانات .. كيف يتم تحديد المسار وكيف يتم نسخ الملفات الى مسار القاعدة ؟ وهل هناك طريقة لتخزين الملفات داخل قاعدة ال SQL ؟

الآن انتبهت أنه نفس المرفق 😅

وجدت هذا الملف في أحد المنتديات الأجنبية .. 🙂 وهي حيلة لعمل ذلك .. TabRight.accdb

وعليكم السلام أخي أزهر 🙂 هكذا مثلا : IIF([bookavailable]-[bookback]<>0 ;[bookavailable]-[bookback];[bookavailable])

لله درك مهندسنا العود @jjafferr .. 🙂 الله يزيدك من واسع علمه وفضله وينفع بك البلاد والعباد يارب 😊🤲🏼 ------------------------------------------------------- تمت التجربة ولله الحمد .... ولا غلطة 😉👌🏼

أخي عبدالله ضع دالة DCount هذه في مصدر بيانات مربع النص 🙂 =DCount("*";"[Unique Value]")

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

حياك الله أخي حامل المسك 🙂 ضع هذا السطر في أول الكود .. If IsNull(Me.nox) Or Me.nox = "" Then Exit Sub

@jjafferr الحين طمعتنا في رؤية الناتج لهذا الطموح والحلم ( عجل الله فرجه ) 😅 الله يوفقك لإنجازه وييسر لك كل الإمكانيات المتاحة لذلك 😊

كلمة شكر وعرفان لك مهنسنا العزيز @SEMO.Pa3x 🙂 هذي الأداة مريحة جدا ماشاء الله .. تخف علينا نصف العناء أثناء التنصيب وخصوصا للأجهزة البعيدة فقط أنا قمت بتعديل بسيط في الكود لتعمل على النظامين 32 و 64 بت .. 🙂 وأتمنى لو يكون فيه طريقة أيضا لإضافة تعيين التنسيق الإقليمي مرة وحدة ( كتعديل على الأداة ) وبالمرة أتمنى لو يكون فيه طريقة لعمل كل هذا عن طريق الأكسس بدون أدوات خارجية مساعدة 🙂 الكود المعدل : #If VBA7 Then 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 #Else Private Declare 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 #End If Const SW_SHOWNORMAL = 1 Private Sub cmd_change_Click() If IsNull(comb_countries) Then Exit Sub Dim SetLocaleInfo_File As String Dim Parameters As String SetLocaleInfo_File = CurrentProject.Path + "\SetLocaleInfo.exe" Parameters = comb_countries ShellExecute 0, "runas", SetLocaleInfo_File, Parameters, vbNullString, SW_SHOWNORMAL End Sub والمرفق بعد التعديل : SetLocaleInfo.rar

كل الشكر لك أخي @عمر ضاحى 🙂 وأستغل هذه المناسبة الجميلة لعرض طريقة جديدة تعلمتها لكتابة الأكواد مع قيم True & False .. جرب كتابة الأكواد بهذه الطريقة : Private Sub Command31_Click() Me.ApprovedOK = Not ApprovedOK Me.imgApproved.Visible = ApprovedOK End Sub Private Sub Form_AfterUpdate() Me.imgApproved.Visible = ApprovedOK End Sub Private Sub Form_Current() Me.imgApproved.Visible = ApprovedOK End Sub والنتيجة نفسها طبعا .. مع زيادة إمكانية التراجع عن الموافقة 🙂

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

أعجبتني جدا .. ما شاء الله تبارك الله .. جزاك ربي خيرا وأجرا وحلاوة حبيبنا @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 وأخواتها 😊 --- ✨⭐💡 تحياتي 🙂

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