Member Avatar for abcdou20

hi guys i need your help!

i have two date picker and a vsflexgrid in my form then i select
datepicker1 month of january
datepicker2 month of february
i want to display all the records in both month ...
example:
january 9 records
febraury 10 records

my sample code:

For i = 0 To IntDiff
    sDate = DateAdd("m", i, sdate1)
    DateArray(i) = Format$(sDate, "MMM YYYY")
 
  Me.vslistwork.Rows = Me.vslistwork.Rows + 1
  Me.vslistwork.TextMatrix(Me.vslistwork.Rows - 1, 0) = DateArray(i)
                 
        Do Until rsp.EOF
     
                    mdate = Format(rsp!TDATE, "MMM YYYY")
                       ' MsgBox "" & mdate
                    If DateArray(i) = mdate Then
                        
                       d = rsp!peso
                       e = rsp!dollar
                        
                        If e > 0 Then
                            g = g + 1
                  Me.vslistwork.TextMatrix(Me.vslistwork.Rows - 1, 1) = g
                        End If
                        If d > 0 Then
                            f = f + 1
                  Me.vslistwork.TextMatrix(Me.vslistwork.Rows - 1, 3) = f
                        End If

                    Me.vslistwork.TextMatrix(Me.vslistwork.Rows - 1, 1) = g
                   Me.vslistwork.TextMatrix(Me.vslistwork.Rows - 1, 3) = f
                            
                    End If
        
                'Me.vslistwork.Rows = Me.vslistwork.Rows + 1
        rsp.MoveNext
        Loop

my problem is only the month of january will appear as 9 records then february is no records he cant count the records of february

help!...

  • 1 Contributor
  • 1 Reply
  • 87 Views
  • 5 Days Discussion Span
  • Latest Post Latest Post by abcdou20
Member Avatar for abcdou20

i solve it

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.