تصفية بيانات تقرير حسب عدة معايير متغيرة وادخال عنزان الى التقرير

السلام عليكم جميعا ... اعضاء ومشرفي المنتدى ..ورحمة الله وبركاته

في البدء ارجو من ادارة المنتدى تعديل عنوان المشاركة الى "تصفية بيانات تقرير حسب عدة معايير متغيرة "

مع جزيل الشكر

لماذا لايرد احد على مشاركاتي؟؟

هل هي غير مفهومة ؟؟ او صعبة ؟؟ ام اني طرحتها بشكل خاطئ؟؟

ارجو ردكم لي؟؟

ولكم مني جزيل الشكر

اختكم

السلام عليكم ورحمة الله وبركاته

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

لا اعلم لماذا لايجيب احد على مشاركاتي؟؟

عبروني ولو بكلمة؟؟

شكرا للجميع!!!!!!!!!!!!!

لم ارى مشاركتك الا الان اخى

عموما انا عبرتك

ياريت انت تعبرنا و ما تنسناش بالدعاء عند الفطر

اليك ما تريد

DynRep_UP.rar

السلام عليكم ورحمة الله وبركاته

واخيرااااااااا

شكرا لك اخي الكريم..سلمت يداك..وفقك الله في الدنيا والاخرة

هل يمكن تغير تسلسل عرض الاعمدة من اليمين الى اليسار وليس من اليسار الى اليمين ؟

وشكرا

اختكم

نعم اكيد ممكن

هذا هو التعديل

Private Sub cmdPrint_Click()
    Dim i As Integer
    Dim rep As Report
    Dim txt As TextBox
    Dim lbl As Label
    Dim lin As Line
    Dim intSelectedCount As Integer
    Dim lngWidth As LoadPictureConstants
    Dim intSelectedNo As Integer

    If lstFields.ItemsSelected.Count = 0 Then
        MsgBox "íÌÈ ÇÎÊíÇÑ ÍÞá æÇÍÏ Úáì ÇáÃÞá", vbExclamation, "ÎØÃ"
        Exit Sub
    End If

    Set rep = CreateReport
    DoCmd.RunCommand acCmdReportHdrFtr
    With rep
        .RecordSource = cmbTables.Column(0, cmbTables.ListIndex)
        .Orientation = 1 ' Right-to-Left  0 left 2 right
        .FilterOn = True
        .Filter = "[City] LIKE '*" & Forms!frmTest!cmb_City & "*' and [Country] LIKE '*" & Forms!frmTest!Cmb_coun & "*' and [BirthDate] LIKE '*" & Forms!frmTest!cmb_BD & "*'"
        .Section("ReportHeader").Height = 900
        .Section("ReportFooter").Height = 0
        .Section("PageHeaderSection").Height = 300
        .Section("PageFooterSection").Height = 300
        .Section("Detail").Height = 305
        .Width = 10250
        .Printer.RightMargin = 500
        .Printer.LeftMargin = 500
        Set lbl = CreateReportControl(.Name, acLabel, acHeader, , , 0, 0, .Width, 900)
        With lbl
            .Caption = Nz(Me.RepName, "ÚäæÇä ÇáÊÞÑíÑ åäÇ")
            .FontBold = True
            .FontName = "Arial"
            .FontSize = 24
            .ForeColor = RGB(0, 0, 255)
            .TextAlign = 2
        End With
        Set txt = CreateReportControl(.Name, acTextBox, acPageFooter, , , .Width / 2 - 200, , 400, 300)
        With txt
            .ControlSource = "=Page"
            .BorderStyle = 1
            .BackColor = RGB(200, 200, 200)
            .FontBold = True
            .FontSize = 10
            .TextAlign = 2
        End With
        Set lin = CreateReportControl(.Name, acLine, acDetail, , , 0, 305, .Width)
    End With


    intSelectedCount = lstFields.ItemsSelected.Count

    lngWidth = rep.Width / intSelectedCount

    intSelectedNo = 0

    For i = lstFields.ListCount - 1 To 0 Step -1
        If lstFields.Selected(i) Then
            Set lbl = CreateReportControl(rep.Name, acLabel, acPageHeader, , , intSelectedNo * (lngWidth + 50), 5, lngWidth, 300)
            With lbl
                .Caption = IIf(lstFields.Column(1, i) & "" <> "", lstFields.Column(1, i), lstFields.Column(0, i))
                .BackStyle = 1 ' Normal (Not Transparent)
                .BackColor = RGB(200, 200, 200)
                .BorderStyle = 1 ' Thin
                .FontBold = True
                .TextAlign = 2 ' Centre
            End With

            Set txt = CreateReportControl(rep.Name, acTextBox, acDetail, , lstFields.Column(0, i), intSelectedNo * (lngWidth + 50), 5, lngWidth, 300)
            With txt
                .CanGrow = True
            End With

            intSelectedNo = intSelectedNo + 1
        End If
    Next i

DoCmd.OpenReport rep.Name, acViewPreview
    'DoCmd.OpenReport rep.Name, acViewPreview, , "BirthDate = #" & Forms!frmTest.cmb_BD & "# And City = '" & Forms!frmTest!cmb_City & "' And Country = '" & Forms!frmTest!Cmb_coun & "'"

End Sub