Foksh

كمثال ، جرب هذا الكود:- Private Sub value2_AfterUpdate() ' التأكد من أن القيمة في الحقل الأول (value1) ليست صفر If Nz(Me.value1, 0) <> 0 Then ' حساب النسبة المئوية وتحديث الحقل الثالث (percentage) Me.percentage = (Me.value2 / Me.value1) * 100 & " %" Else ' يمكنك تنفيذ إجراء آخر إذا كان الحقل الأول يحتوي على صفر أو لا يتم التعامل معه بشكل آخر End If End Sub

جرب وإذا تكرمت اعطيني النتيجة حتى يتم تصنيف الملف في مكتبتي

بالنسبة لكلمة المرور في القاعدة المحمية .. الكود ده بعد التعديل في زر ( اختيار قاعدة البيانات المصدر ) Private Sub CmdChosePath_Click() On Error GoTo ErrHandler Dim fDialog As Office.FileDialog Dim filepath As String Dim db As DAO.Database Dim tdf As DAO.TableDef Dim password As String Set fDialog = Application.FileDialog(msoFileDialogFilePicker) With fDialog .AllowMultiSelect = False .TITLE = "Please select one Item" .Filters.Clear .Filters.Add "All Files", "*.*" .Filters.Add "Access Database Files", "*.accdb;*.mdb" If .Show = True Then filepath = .SelectedItems(1) password = InputBox("Enter the database password:", "Password") Me.MdbPath = filepath Set db = OpenDatabase(filepath, False, False, ";PWD=" & password) DoCmd.OpenForm "List_Tables" [Forms]![List_Tables]![MdbPath] = Me.MdbPath [Forms]![List_Tables]![Lst_Tables].RowSource = "" For Each tdf In db.TableDefs If Left(tdf.name, 4) <> "MSys" Then [Forms]![List_Tables]![Lst_Tables].AddItem tdf.name End If Next tdf db.Close End If End With Exit Sub ErrHandler: MsgBox "You clicked Cancel in the file dialog box." Me.MdbPath = "" End Sub

ما فهمتنيش ,, قصدي في النسخة اللي ارفقتها وعدلتلك عليها في مشاركتي ؟

ده بيحصل معاك في أي نسخة ؟

الجداول اللي عايز تستوردها في قاعدة بيانات مقفلة بكلمة سر ؟

هذه الفكرة سأقوم بالتعديل حسب المطلوب ، ولكن استحملني بالوقت بسبب العمل

هذه مشاركتي البسيطة أخي @سامر محمود VACATIONS223.zip

في إحدى التجارب لي على ما تم طرحه في الموضوع ، قمت بتجربة لتجربة سابقة لي في التعامل مع ملفات الـ Dll الوهمية ( الملفات المُعاد تسمية لاحقتها 😅 ) . فمثلاً بعد تطبيق المسميات للعناصر باللغتين ( العربية ، الإنجليزية ) داخل ملفات Arabic.txt و English.txt قمت بتغيير لاحقة الملفين من txt إلى dll وحتى من داخل الأكواد في المديول في هذين السطرين :- ليصبحا بهذا التغيير :- GetLanguageFilePath("Arabic.dll") enFile = GetLanguageFilePath("English.dll") وقد كانت التجربة ناجحة 😀 بأن تم قراءة ترجمة المكونات المستهدفة لهذه الوظيفة . قد تكون الفكرة لغير المهتمين غير مجدية ؛ إلا أنها فكرة لحماية الملفات مؤقتا من أيدي العابثين 😅. إلا أنني وددت مشاركتكم أصوات ( بنات أفكاري ) . ودمتم بخير 🤗

المشكلة عندك كما أخبرتك هي في إصدار نسخة الآكسيس الـ 2019 ، جرب الإصدار 2016 وإن شاء الله تنحل مشكلة ظهور الصور في التقرير . أو قبل ذلك جرب إنشاء ملف آكسيس جديد ، ثم قم بإستيراد المكونات ( نماذج ، جداول ، تقارير... إلخ ) إليها ، مع التأكد من إضافة المكتبات الغير موجودة إلى النسخة الجديدة. وأخبرنا بالنتيجة 😊 .

هل جربت الإجماليات من داخل الاستعلام ؟

ولا يهمك ، اتمنى أن يكون هذا هو المطلوب . Private Sub cmdShowFile_Click() Dim folderPath As String folderPath = CurrentProject.Path & "\All\" & Me.namefolderx.Value Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") If fso.FolderExists(folderPath) Then Dim folder As Object Set folder = fso.GetFolder(folderPath) Me.FileList.RowSource = "" ' عرض أسماء الملفات Dim file As Object For Each file In folder.Files Me.FileList.AddItem file.Name Next file ' عرض أسماء المجلدات Dim subFolder As Object For Each subFolder In folder.SubFolders Me.FileList.AddItem subFolder.Name & "\" Next subFolder Else ' MsgBox "المجلد غير موجود." End If Set fso = Nothing Set folder = Nothing Set file = Nothing Set subFolder = Nothing End Sub قم باستبدال الكود السابق بهذا الكود ليشمل عرض أسماء المجلدات أيضاً .

هذا من طيب أصلك أخي @حامل المسك . تم اضافة اللازم والتعديل المطلوب حسب ما توضح لي في حدث النقر المزدوج لـ FileList ، تفضل باستبداله بالتعديل التالي :- On Error Resume Next Dim folderPath As String folderPath = CurrentProject.Path & "\All\" & Me.namefolderx.Value & "\" If Me.FileList.ListIndex >= 0 Then Dim selectedFileName As String selectedFileName = Me.FileList.Column(0, Me.FileList.ListIndex) Dim fullPath As String fullPath = folderPath & selectedFileName FollowHyperlink fullPath End If انت تدخل الموضوع عرض وتخمس كمان أستاذنا @Moosak . وتتحفنا أيضاً بما في جعبتك

أخي @حامل المسك ، أعتذر على التأخير ، تفضل المرفق بدون تحديد مسار المجلد الرئيسي بشكل يدوي ، على أن تكون المجلدات الفرعية داخل مجلد All مثال أكسس.zip

جزانا الله واياكم كل خير.. 🤗 هل تم حل المشكلة أخي العزيز @سامر محمود ؟

تفقد المكتبات أخي الكريم

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

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

أخي @HaniMoursi لضيق الوقت في العمل ، تأكد بداية من المجاميع ان كانت صحيحة وأخبرني ، للمتابعة بأقرب فرصة . قيمه (1).accdb

تفضل أخي @سامر محمود . أولا تم اضافة استعلام تحديث بسيط ، وتمت بعض التعديلات . Investi.accdb

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

اخي @سامر محمود انشىء قاعدة بيانات جديدة وقم باستيراد المكونات الى القاعدة الجديدة ، مع اضافة المكتبات في محرر VBA وإن شاء الله ستعمل معك بشكل طبيعي 😊 متابع معك 😊

يسعدني كلامك 🤗 لا تنسَ إغلاق الموضوع باختيار أفضل إجابة 😀

ظنك في محله يا صديقي ، ولكن ما رأيك لو جعلنا المجلدات الفرعية التي تريد عرض محتوياتها ان تكون داخل مجلد واحد رئيسي بجانب قاعدة بيانات ؟؟ او حدد لي فكرتك وإن شاء الله بتتنفذ.

أخي الكريم غير المسار الرئيسي فقط . حيث أن هذا المسار "C:\Users\Golden\Desktop\مثال أكسس\" هو مسار المجلد في جهازي ، فقط استبدله بمسار المجلد في جهازك .,