Here Is some of my data:
Tran date Total Tran Tran ID Merch Name Bank NameTerm ID 0710 22 247 EBS Center A Bank 12345678 0711 63 262 EBS Center A Bank 12345678 0714 5 538 EBS Center A Bank 12345678 0715 2 211 EBS Center A Bank 12345678
*I Inhert This Data.
I need to get the total tran between let say '0710' and '0715'

In Access i created two combo box both point to Tran Date Distinct column case I have multible record cary same date. And a botton to set filter records in filter report "RepBankTotalTran" As Follows:
Private Sub Command4_Click()
'Table: have Bank name VarChar (50), Bank transactions, Transactions date VarChar (50), Total Transactions (for all banks)
'Required: filter by Bank name and/or transaction between 2 dates (Date column type is VarChar (50)).
'Able to filter by Bank name.
'Using Access.
'Have 2 combo Box Start date (Text1), End date (Tesxt2).
Dim StrSql As String, StrgSql As String, IntCounter As Integer, ResSub As Integer
StrSql = Text1
StrgSql = Text2
If Me("Text1") <> "" Then
If Me("Text2") <> "" Then
ResSub = StrgSql - StrSql
End If
End If
'Set Filter for ResSub positive value
If ResSub > 0 Then
For IntCounter = 1 To ResSub
StrSql = StrSql & "[" & Me("Text1") + IntCounter & "]" & Me("Text1") + IntCounter & Chr$(34) & " And"
Next

'Strip Last " And "
If StrSql <> "" Then
StrSql = Left(StrSql, (Len(StrSql) - 5))
'Set Filter Property
DoCmd.OpenReport "RepBankTotalTran", A_PREVIEW 'Open report.
Reports![RepBankTotalTran].Filter = StrSql
Reports![RepBankTotalTran].FilterOn = True
End If
Else
'Set Filter for ResSub negative value
If ResSub < 0 Then
ResSub = -1 * ResSub
For IntCounter = 1 To ResSub
StrgSql = StrgSql & "[" & Me("Text2") + IntCounter & "]" & Me(Text2) + IntCounter & Chr$(34) & " And "
Next

'Strip Last " And "
If StrgSql <> "" Then
StrgSql = Left(StrgSql, (Len(StrgSql) - 5))
'Set Filter Property
DoCmd.OpenReport "RepBankTotalTran", A_PREVIEW 'Open report.
Reports![RepBankTotalTran].Filter = StrgSql
Reports![RepBankTotalTran].FilterOn = True
End If
Else
'Set Filter for ResSub zero value
StrSql = StrgSql & "[" & Me("Text1") + IntCounter & "]" & Me("Text1") + IntCounter & Chr$(34) & " And "
'Strip Last " And "
If StrgSql <> "" Then
StrgSql = Left(StrSql, (Len(StrSql) - 5))
'Set Filter Property
DoCmd.OpenReport "RepBankTotalTran", A_PREVIEW 'Open report.
Reports![RepBankTotalTran].Filter = StrSql
Reports![RepBankTotalTran].FilterOn = True
End If
End If
End If
End Sub

It come with The expretion you enter'[711]' Is invalid.

What I am trying to is to set a string with and between each value and filter report.. i dont know if i am right.. any if any one has any other solution let me know.. by the way date is VarChar(50) and getting Isdate of 0 on all rows