رقم تسلسلي بعد التصفية

[فؤاد الدلوي]

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

fil.accdb

[محمد احمد لطفى]

تفضل بالتوفيق

fil (1).accdb

[فؤاد الدلوي]

استاذ @محمد احمد لطفى شكرا وكيف يمكن تصدير نتيجة التصفية الى اكسيل 

تم تعديل مارس 19 بواسطه فؤاد الدلوي
اظافة

[محمد احمد لطفى]

تفضل

 

    Dim filePath As String
    filePath = CurrentProject.Path & "\Report.xlsx"
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "Q", filePath, True
    With CreateObject("Excel.Application"): .Workbooks.Open filePath: .Sheets(1).UsedRange.Borders.Weight = 2: .Visible = True: End With

 

[فؤاد الدلوي]

استاذ @محمد احمد لطفى ممكن مثال عملي في تصفية النموذج الفرعي من داخل النموذج ومن ثم تصديره الى اكسيل شكراً 

fil (1).accdb