VB6 & Access Database Question

[np3il]

using VB6 and Access db ...

I created a query in Access DB and I need to select a portion of this data within VB6. I am using a SQL command to do this, BUT I am unable to get the data that I want.

This is the command I am using:

'Create SQL Command
sSelect = "SELECT TICKETS.TICKET_NO, TICKETS.PU_TIME, CUSTOMER.FIRSTNAME, CUSTOMER.LASTNAME, CUSTDATA.LAST_TRANS, TICKETS.PU_EMPL, SERVICES.SERV_ABBR, TICKETS.PU_DATE, TICKETS.STRIP_TAG, DETAIL.PRICE, DETAIL.QUANITY, PRICES.ITEM_NAME, COLORS.COLOR_DESC, COLORS.PATT_DESC, Stores.CurrPrint, Stores.ComName "
sFrom = "FROM Stores, (PRICES INNER JOIN ((CUSTDATA INNER JOIN (DETAIL INNER JOIN (TICKETS INNER JOIN CUSTOMER ON TICKETS.CUST_NO = CUSTOMER.CUST_NO) ON (DETAIL.TICKET_NO = TICKETS.TICKET_NO) AND (DETAIL.TICKET_NO = TICKETS.TICKET_NO)) ON CUSTDATA.CUST_NO = CUSTOMER.CUST_NO) INNER JOIN SERVICES ON TICKETS.SERV_CODE = SERVICES.SERV_CODE) ON PRICES.ITEM_CODE = SERVICES.SERV_CODE) INNER JOIN COLORS ON DETAIL.COLOR_NO = COLORS.COLOR_NO "
sGroupBy = "GROUP BY TICKETS.TICKET_NO, TICKETS.PU_TIME, CUSTOMER.FIRSTNAME, CUSTOMER.LASTNAME, CUSTDATA.LAST_TRANS, TICKETS.PU_EMPL, SERVICES.SERV_ABBR, TICKETS.PU_DATE, TICKETS.STRIP_TAG, DETAIL.PRICE, DETAIL.QUANITY, PRICES.ITEM_NAME, COLORS.COLOR_DESC, COLORS.PATT_DESC, Stores.CurrPrint, Stores.ComName "
sHaving = "Having (((TICKETS.PU_DATE) = #" + txtDate.Text + "#)) "
sOther = "ORDER BY TICKETS.TICKET_NO, TICKETS.PU_TIME;"

strSQL = sSelect + sFrom + sGroupBy + sHaving + sOther

DEConn.Commands("SQLCommand&quot.CommandText = strSQL
DEConn.rsSQLCommand.Open
DEConn.rsSQLCommand.Requery

rptDailySales.Show 'Display Report

This generates all the Access DB not the entered date Data on txtDate.Text.

What am I doing wrong???

Help B-)

 

[CCLINT]

Try

sWhere = "WHERE(((TICKETS.PU_DATE) = #" & txtDate.Text & "#)) "


strSQL = sSelect & sFrom & sWhere & sGroupBy & sOther

 

[np3il]

How do I make the rptDailySales.Show get the new query generated by DEConn.rsSQLCommand.Requery ???

I have tried

rptDailySales.Show = DEConn.rsSQLCommand.Requery

but this generated an error.

Any suggestions ???

Thanks

Help B-)