كل الانشطه

جرب الملفين 1628.2025.zip

اليك البرنامج كاملا استاذ جعفر تم تغيير الاسماء و الالقاب نظرا للخصوصيات الشخصية وهو الان بدون مشاكل على ونداوز 7و 8 اوفيس2010 أتمنى ان اجد حلا لكي يفتح على ونداوز 2010اوفيس 2010 بدون مشاكل حذف الاكواد ش ع 2025.rar

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

اخى محمد هشام الكود يعمل بكفاءه عاليه جزاك الله خيرا اخى محمد عامل السرعه فى كود تحويل الملفات هل الغاء الرسائل يعمل على زيادة سرعة الكود

أهلاُ بحضرتك ياهندسة دى صور المشاكل اللى بتوجهنى عند فتح الملف ياريت لو تحاول تفتح اى اسم الاسماء مثل النخلة البحرية بتظهر الرسائل الموجود فى الصور

@ابوخليل سلمت وبارك الله فيك ورزقك من حيث لاتحتسب 🤗 اشكرك كثيرا

جربي الآن اضفت معيار معرف العميل في مصدر بيانات التقرير Bill_info subreport databasebalance4.rar

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

@ابوخليل انظر عند اختيار كشف حساب عميل معين يظهر معه حساب عميل اخر

يمكن اجاريك في تخصيص شهادة للصفوف الدنيا .. لحصر ظهور موادهم فقط ولكن : هذا غير مفهوم المواد كلها صفر .. ليش تعرض درجة المواد هل تعلم من اجل اخراج هذا التقرير يجب عمل اكثر من استعلام .. استعلام تجميعي يخص الاصفار ثم استعلام جدولي يعرض الأصفار لم افهم الى اين تريد ان تصل يكفي حصر الطلاب بقائمة في تقرير .. وعنوان التقرير (( الحاصلين على اصفار في النتيجة ))

@ابوخليل يعطيك العافية سلمت

المعذرة نحن نلهو ونلعب هنا .. فضلا قليلا من ادب طالب العلم تفضلي .. هذه النتيجة في التقرير يمكنك العمل والتعديل على بقية التقارير كما في التقرير Bill_info subreport databasebalance3.rar

@ابوخليل الجميع

لم افتح التقارير عملت لك الرصيد الآلي على النموذج المفترض انك تخبرني هل ما تم في النموذج هو المطلوب ؟ التقارير شيء آخر يوجد لديك اكثر من تقرير .. اي تقرير تريد التعديل عليه ..؟

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

@ابوخليل انظر ماذا ظهر في التقرير 😞 لاشي 😞 اب للرفع الجاد .........

الحمد لله هذا هو المطلوب تماما ... الف شكر لسيادتكم دائما أنتم صاحب فضل وكرم

اختصاراً لوقتك و وقت الاساتذة ، لم لا تقوم بالافاق الملف .

البرنامج قديم جدا وليس من تصميمي وليس عليه حماية برقم سري لاكن يبدو ان المصمم وضع شي يمنع الحفظ عند التعديل

تفضل أخي الفاضل المرفق ملحوظة : أنا محتاج تقرير الصف الأول والثاني والثالث فصل دراسي ثاني فقط اسم تقرير الصف الأو والثاني rep_shhada_olla اسم تقرير الصف الثالث rep_shhada_3 اسم تقرير التحريري ( درجة 1 ) زي اللي حضرتك عملته بس بمعيار ( درجة1 = 0 ) يعني اللي حصل علي 0 اللي احنا بنترجمهم ( غ) rep_Drjat1 Data18.rar

تفضل أخي بناء على نفس الفكرة السابقة أرفق لك ملف يحتوي على كودين: الكود الأول: إنشاء مجلدات وملفات بصيغة xlsb للتجربة تم تعديل الكود بحيث يمكنك: 1) اختيار البارتيشن الذي تريد إنشاء الملفات فيه 2) تحديد عدد المجلدات التي سيتم إنشاؤها 3) تحديد عدد الملفات داخل كل مجلد حسب حاجتك الكود الثاني: تحويل جميع ملفات xlsb في البارتيشن المحدد الكود يقوم بـالبحث داخل البارتيشن الذي تحدده وتحويل جميع الملفات ذات الامتداد xlsb إلى صيغة أخرى xlsx داخل البارتشن المحدد حتى وإن كانت مخزنة داخل مجلدات فرعية متداخلة Option Explicit Sub Convertfiles() Dim dl As Object, n As String, ky As String Dim files() As String, i As Long, a As Long Dim startTime As Double, confirm As VbMsgBoxResult n = "F:\" ' لا تنسى تعديل إسم البارتيشن بما يناسبك confirm = MsgBox("سيتم تحويل جميع الملفات بصيغة xlsb إلى xlsx" & vbCrLf & _ "هل تريد المتابعة؟", vbYesNo + vbQuestion, n & " " & "محرك الأقراص") If confirm <> vbYes Then Exit Sub Set dl = CreateObject("Scripting.FileSystemObject") startTime = Timer SupApp True ky = tMps(dl, n) If Trim(ky) = "" Then MsgBox "xlsb" & " " & "لم يتم العثور على أي ملفات بصيغة ", vbInformation GoTo Cleanup End If files = Split(ky, vbCrLf) a = 0 For i = LBound(files) To UBound(files) If Trim(files(i)) <> "" Then If CntFiles(Trim(files(i)), dl) Then a = a + 1 End If End If Next i MsgBox "تم تحويل" & a & " ملف بنجاح" & vbCrLf & _ "استغرق التنفيذ " & Format(Timer - startTime, "0.00") & " ثانية", vbInformation Cleanup: SupApp False End Sub Function CntFiles(filePath As String, dl As Object) As Boolean Dim wb As Workbook Dim newPath As String On Error GoTo ClearApp Set wb = Workbooks.Open(filePath, ReadOnly:=False) newPath = Replace(filePath, ".xlsb", ".xlsx") wb.SaveAs fileName:=newPath, FileFormat:=xlOpenXMLWorkbook wb.Close SaveChanges:=False If dl.FileExists(newPath) Then dl.DeleteFile filePath, True CntFiles = True End If Exit Function ClearApp: CntFiles = False If Not wb Is Nothing Then wb.Close SaveChanges:=False End Function Function tMps(dl As Object, n As String) As String Dim root As Object, list As Collection, item As Variant, result As String On Error Resume Next Set root = dl.GetFolder(n) If root Is Nothing Then Exit Function On Error GoTo 0 Set list = New Collection Call ScanFiles(dl, root, list) For Each item In list result = result & item & vbCrLf Next item tMps = result End Function Sub ScanFiles(dl As Object, folder As Object, ByRef list As Collection) Dim file As Object, subFolder As Object, fName As String fName = LCase(folder.Path) If InStr(fName, "$recycle.bin") > 0 Then Exit Sub If InStr(fName, "system volume information") > 0 Then Exit Sub For Each file In folder.files If LCase(dl.GetExtensionName(file.Name)) = "xlsb" Then list.Add file.Path End If Next For Each subFolder In folder.SubFolders ScanFiles dl, subFolder, list Next End Sub TEST4.xlsm

حاضر أخي الفاضل

اعمل التقارير كما تحب .. ثم ارفع المثال حتى نربط المصدر

كيف ؟ قلبت هندي 🙃 على كل حال وبدون اي تعديلات تفضلي حسب طلبك فقط حذفت الحقل المحسوب في الجدول ونقلته الى الاستعلام علما انه يوجد اخطاء في تسمية حقول باسماء محجوزة في اكسس مثل كلمة Date databasebalance2.rar

أسأل الله العظيم رب العرش العظيم أن يشفيه شفاء لا يغادر سقما آمين وجميع مرضى المسلمين