نجوم المشاركات

جرب =IF(E6<=F6;F6*IFS(E6<=2000;1%;E6<=5000;2%;E6<=7000;3%;TRUE;5%);"")

هذا من طيب أصلك أخي @حامل المسك . تم اضافة اللازم والتعديل المطلوب حسب ما توضح لي في حدث النقر المزدوج لـ 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 . وتتحفنا أيضاً بما في جعبتك

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

أزال الله همك وغمك ورضي عنك.. ممتاز جدا .. سلمك الله ورعاكم وفرج همك وغمك ورضي عنك.. شكر الله لكم أيها الكرام.. والحمد لله رب العالمين،،

هل الصورة امتدادها (.bmp) ؟؟

ولا يهمك ، اتمنى أن يكون هذا هو المطلوب . 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 قم باستبدال الكود السابق بهذا الكود ليشمل عرض أسماء المجلدات أيضاً .

السلام عليكم 🙂 أعتذر أنا دخلت عرض في الموضوع 😅🖐🏻 ما رأيك في هذه الطريقة لاستعراض الملفات الموجودة في مجلد البرنامج ؟ وهذا الموضوع مرجع لك : OpenFolders.rar

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

وعليكم السلام ورحمة الله وبركاته تفضل أخي الكريم: حسب فهمي لسؤالكم الكريم =IF(E8>H8;H8;IF(AND(E8<H8;E8>G8);G8;E8)) للبدلات.xlsx

جزاك الله خير مشكور على مجهودك الرائع

وعليكم السلام ورحمة الله تعالى وبركاته Sub test() LastSheet = Sheets.Count Sheets("نمودج").Copy after:=Sheets(LastSheet) End Sub نسخ و اعادة التسمية Sub test2() Dim F As Variant LastSheet = Sheets.Count On Error Resume Next Sheets("نمودج").Copy after:=Sheets(LastSheet) F = InputBox(prompt:="أكتب إسم الورقة الجديد", _ Title:="إعادة تسمية ورقة " & " " & ActiveSheet.Name) ActiveSheet.Name = F End Sub 'قم بتعديله بما يناسبك Sub test3() LastSheet = Sheets.Count On Error Resume Next Sheets("نمودج").Copy after:=Sheets(LastSheet) ActiveSheet.Name = Sheets("TEST").Range("c4").Value End Sub نمودج.xlsb

مكان الرسالة الصحيح هو في حدث زر الخروج وليس حدث اغلاق النموذج عدل الى الى هذا Private Sub أمر0_Click() If MsgBox("هل تريد الخروج", vbInformation + vbYesNo, "تنبيه") = vbNo Then DoCmd.CancelEvent Exit Sub Else DoCmd.Close End If End Sub

وعليكم السلام تفضل أخي الكريم: Book1.xlsx

برنامج صغير لاعمال السنة للصفوف الرابع والخامس والسادس البرنامج لمساعدة العاملين بكنترول المرحلة الابتدائية لاستخراج ال 70 درجة بسهولة وتم عمل البرنامج تسهيلا علي السادة الزملاء في الكنترول كلمة مرور فتح المعادلات : 123 ولا داعي لاستخدامها الا في الضرورة حتى لا يتم العبث بالمعادلات الموجودة بالبرنامج او حذفها اعمال السنة ترم اول2023_2024.xlsb