Foksh

أخي @Bshar جزاك الله خيراً على هذه الثقة 🥰 . اتمنى أن أكون قد وصلت الى حل مناسب ، انظر ماذا فعلت للوصول لطلبك :- 1. قمت بالتعديل على الاستعلام والذي هو مصدر سجلات للنموذج الفرعي ليصبح فقط لفلترة الاسم . بهذا الشكل SQL :- SELECT doc.name, tape.ID, tape.[code-work], tape.[t-namber], tape.type, tape.lincec, tape.color FROM doc INNER JOIN tape ON doc.ID = tape.[code-work] WHERE (((doc.name) Like "*" & [Forms]![add-tab]![xxf] & "*")); 2. انشأت مربع نص وأسميته Foksh 😁 ، وجعلت قيمته :- Me.Foksh = Foksh & "," & Me.xxc ' هو كومبوبوكس الألوان XXC حيث 3. انشأت دالة لتطبيق الفلترة :- Private Sub ApplyFilter() Dim filterCriteria As String Dim selectedValues() As String Dim i As Integer selectedValues = Split(Me.Foksh, ",") For i = LBound(selectedValues) To UBound(selectedValues) If selectedValues(i) <> "" Then filterCriteria = filterCriteria & "[tape].[color] = '" & Trim(selectedValues(i)) & "' OR " End If Next i If filterCriteria <> "" Then filterCriteria = Left(filterCriteria, Len(filterCriteria) - 4) End If Me.tape5.Form.Filter = filterCriteria Me.tape5.Form.FilterOn = True End Sub 4. في حدث بعد التحديث للكومبوبوكس XXC سيتم نقل القيم الى مربع النص Foksh والفصل بين القيم عند تغييرها بالفاصلة "," :- Me.Foksh = Foksh & "," & Me.xxc ApplyFilter Me.tape5.Requery وفي النهاية هذا هو الناتج tesst.accdb

جاري العمل ، تقريباً توصلت لطريقة آمنة 😁

أخي الكريم @سيد رجب ، يبدو أنك نسيت ارفاق قاعدة بيانات الجداول لتجربة مشروعك

تفضل ، استبدل هذا الكود للنموذج :- Private Sub Btn_Copy_Click() If Text1.Value <> "" And Text2.Value <> "" Then Dim sourcePath As String Dim destPath As String sourcePath = Text1.Value destPath = Text2.Value If Dir(sourcePath, vbDirectory) <> "" Then If Dir(destPath, vbDirectory) <> "" Then CopyFiles sourcePath, destPath DeleteFilesInFolder sourcePath MsgBox "تم نقل الملفات بنجاح", vbInformation Else MsgBox "المجلد الهدف غير موجود", vbExclamation End If Else MsgBox "المجلد المصدر غير موجود", vbExclamation End If Else MsgBox "يرجى تحديد مسار لكل من المجلد المصدر والمجلد الهدف", vbExclamation End If End Sub Private Sub CopyFiles(ByVal sourcePath As String, ByVal destPath As String) Dim fso As FileSystemObject Set fso = New FileSystemObject Dim sourceFolder As folder Set sourceFolder = fso.GetFolder(sourcePath) Dim destFolder As folder Set destFolder = fso.GetFolder(destPath) Dim file As file For Each file In sourceFolder.Files fso.CopyFile file.Path, destFolder.Path & "\" & file.Name Next file End Sub Private Sub DeleteFilesInFolder(ByVal folderPath As String) Dim fso As FileSystemObject Set fso = New FileSystemObject Dim folder As folder Set folder = fso.GetFolder(folderPath) Dim file As file For Each file In folder.Files fso.DeleteFile file.Path Next file End Sub Private Function IsFolderEmpty(ByVal folderPath As String) As Boolean Dim fso As FileSystemObject Set fso = New FileSystemObject Dim folderContents As Files Set folderContents = fso.GetFolder(folderPath).Files IsFolderEmpty = (folderContents.Count = 0) End Function Private Sub Btn1_Click() Dim dialog As FileDialog Dim selectedFolder As Variant Set dialog = Application.FileDialog(msoFileDialogFolderPicker) If dialog.Show = -1 Then selectedFolder = dialog.SelectedItems(1) Text1.Value = selectedFolder End If End Sub Private Sub Btn2_Click() Dim dialog As FileDialog Dim selectedFolder As Variant Set dialog = Application.FileDialog(msoFileDialogFolderPicker) If dialog.Show = -1 Then selectedFolder = dialog.SelectedItems(1) Text2.Value = selectedFolder End If End Sub Copy Files.accdb

جرب هذا المرفق أخي @imad2024 Copy Files.accdb تم انشاء مربعي النص ( Text1 , Text2 ) لتحديد المسارات ( المصدر والهدف ) وتم انشاء الزرين ( Btn1 , Btn2 ) بجانب كل مربع نص لتحديد مسار المجلدات . وتم انشاء زر لتنفيذ عملية النسخ من - إلى وتم انشاء دالة مستقلة للنسخ CopyFolder . Private Sub Btn_Copy_Click() If Text1.Value <> "" And Text2.Value <> "" Then Dim sourcePath As String Dim destPath As String sourcePath = Text1.Value destPath = Text2.Value If Dir(sourcePath, vbDirectory) <> "" Then If Dir(destPath, vbDirectory) <> "" Then CopyFolder sourcePath, destPath MsgBox "تم نقل الملفات بنجاح", vbInformation Else MsgBox "المجلد الهدف غير موجود", vbExclamation End If Else MsgBox "المجلد المصدر غير موجود", vbExclamation End If Else MsgBox "يرجى تحديد مسار لكل من المجلد المصدر والمجلد الهدف", vbExclamation End If End Sub Private Sub Btn1_Click() Dim dialog As FileDialog Dim selectedFolder As Variant Set dialog = Application.FileDialog(msoFileDialogFolderPicker) If dialog.Show = -1 Then selectedFolder = dialog.SelectedItems(1) Text1.Value = selectedFolder End If End Sub Private Sub Btn2_Click() Dim dialog As FileDialog Dim selectedFolder As Variant Set dialog = Application.FileDialog(msoFileDialogFolderPicker) If dialog.Show = -1 Then selectedFolder = dialog.SelectedItems(1) Text2.Value = selectedFolder End If End Sub Private Sub CopyFolder(ByVal sourcePath As String, ByVal destPath As String) Dim fso As FileSystemObject Set fso = New FileSystemObject Dim sourceFolder As Folder Set sourceFolder = fso.GetFolder(sourcePath) Dim destFolder As Folder Set destFolder = fso.GetFolder(destPath) fso.CopyFolder sourceFolder.Path, destFolder.Path End Sub

أخواني واساتذتي ، ما زال العمل على المشروع قيد التطوير 🤗

لا اعتقد ذلك .

السلام عليكم ورحمة الله وبركاته ، أخواني وأساتذتي ومعلمينا ( دون استثناء ) كنت قد بحثت في المنتدى 🔍 (هنا) عن برامج لعرض مواقيت الصلاة ، وقد وجدت الكثير من المواضيع الجميلة والأفكار النيرة في المنتدى لأساتذة وأخوة بذلوا جهداً لا يوصف في مشاركاتهم بهذا الموضوع ، وإلى حد ما أكثرهم قرباً لضبط الأوقات كانت هذه المشاركة . اليوم الفكرة مختلفة قليلاً في هذا المشروع المتواضع والذي لا يحتوي تعقيدات يصعب قراءتها أو التعامل معها في الأكواد . حيث اعتمدت وتوجهت إلى البساطة من حيث عند النقل والدمج ( إلى / في ) أي مشروع . الآن شرح بسيط لبعض تفاصيل المشروع التي سيتم الإعتماد عليها :- سي سيتم الإعتماد على خطوط الطول والعرض بعد إجراء بعض التعديلات على طريقة احتساب الأوقات . وقد تمت المقارنة مع موقع ( مواقيت الصلاة ) للوصول إلى أقل فارق - إن وُجِد - في المواقيت . سيتم الإعتماد على تقويم أم القرى في أحدى مشاركات أستاذنا @ابوخليل . سيتم اعتماد إظهار الوقت المتبقي لكل موعد صلاة في الشاشة الرئيسية أو المصغرة ( ستضاف لاحقاً ) . سيتم منح الحرية للمستخدم بنوع التذكير لوقت الصلاة ( إشعار برسالة تنبيه داخل البرنامج ، إشعار فوق شريط Taskbar ) . سيتم أيضاً منح الحرية للمستخدم باختيار صوت التنبيه ( أذان كامل ، تكبير ، .... إلخ ) . المزيد من الأمور ستأتي لاحقاً تباعاً في تطويرات وتحديثات جديدة إن شاء الله . صورة لواجهة البرنامج حالياً ، والذي أسميته في الوقت الحالي " صلوات " 🤗 ، ما لم يتم اختيار اسم آخر تم التعديل بتاريخ 01/06/2024 وذلك لاضافة المرفق النهائى Salatak.zip

تفضل أخي @الباحث الباحث Scanner.accdb

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

اخي @2saad لاحظ انك غير مهتم بحل المشكلة رغم متابعة عدد كبير من الأساتذة في الردود وتعدد الحلول. وما زلت تسأل دون إرفاق ملفك الذي تعمل عليه . شكراً بالنيابة عن المتابعة.

في مشاركتي ، ستجد ان الزر مسح يعمل بالوظيفتين الأول اذا كان JPG في الجملة الشرطية ، والثاني بعد Elsr لسحب سكانر PDF 😊 وغداً إن شاء الله سأرفق لك الجزء المتعلق بالصور فقط.

جزاك الله كل خير ، جاري التجربة 🤗 بعد تجربة المرفق ، رأيت به ميزات وأفكار جميلة جداً . أشكرك جداً معلمي الفاضل @jjafferr على هذا الملف .

لأ يا صديقي ، من قائمة File ثم Save As واختر التنسيق 2003 مثلا أو 2007 ان كان موجوداً الحمد لله رب العالمين 🤗

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

اخي سيف احفظ الملف بنسخة 2007 لانها لا تعمل على 2010 عندي.

جربت تعمل استيراد لمكونات النسخة 2007 الى ملف اكسيس جديد ؟ 🤔 مع الإنتباه للمكتبات!!

عندك أكتر من حل :- الأول انك تعمل طباعة وتحدد من خصائص الطابعة الورقة بالعرض. وطبعاً ده بسبب انه حجم النموذج أكبر من ورقة A4. التاني انك تعمل تقرير وتضبط مكوناته وتنسقه وتعمل ربط للحقول اللي في التقرير كل حقل بمساره في النموذج وبعدين تطبعه. التالت تعمل تقريرك برضه وتجعل مصدر سجلاته نفس مصدر سجلات النموذج ولكن تحدد له شرط مثلاً ID اللي في النموذج ( المفتاح الاساسي ). الرابع تعمل جدول مؤقت بعد ما تحفظ بيانات النموذج فيه باستعلام إضافة وبرضو تعمل تقرير مصدره الجدول المؤقت ده وتطبعه ، ولما تغلق التقرير تعمل استعلام حذف علشان يحذف السجل اللي في الجدول المؤقت ده..... الطرق كتيرة وانت اختار اللي يريحك 🤗

بدايةً سحب الصورة لا يحتاج للبرنامج المساعد . ولكن اذا رغبت بسحب سكانر PDF فقد تحتاجه . وهناك طريقة قد تعجبك ، تقوم بمسح الصورة وإدراجها في تقرير ثم تصدير التقرير بصيغة PDF 😊

ارفق ملفك أخي الكريم .

ومشاركة مع أساتذتي ، لتقريب الأرقام لأقرب عدد صحيح إذا كان الجزء الكسري = أو أكبر أو أصغر من 0.5 Function RoundFoksh(Number As Double) As Integer If Number - Int(Number) >= 0.5 Then RoundFoksh = Int(Number) + 1 Else RoundFoksh = Int(Number) End If End Function ولاستدعاء الدالة كالآتي :- RoundFoksh(5.4) ' ستكون القيمة 5 RoundFoksh(5.5) ' ستكون القيمة 6 RoundFoksh(9.44) ' ستكون القيمة 9 RoundFoksh(9.55) ' ستكون القيمة 10

هذا الكود يقوم بطباعة صفحة النموذج كما هي . أما موضوع الظبط فـ دي حاجة تانية حسب خصائص الطابعة .... الخ .

أخي @شايب ، هذا الموضع دون تحريك النموذج ؟؟