Pb Requete SQL JOIN

Private Sub Form_Load()

Dim SqlStr As String

Dim rs As DAO.Recordset



txtDateRef = Date

    

    'load data

    SqlStr = "SELECT type.TYPE, Count(*) AS [counter]" & _

"FROM ((HISTORY.STATUS_ID  JOIN STATUS.ID)JOIN TYPE.ID)" & _

"WHERE (((history.STATUS_ID)=[status].[id]) AND ((status.STATUS)='Refused') AND ((history.COUPONTYPE_ID)=[type].[id]) AND ((Format([history].[modifydatetime],'MM/DD/YYYY'))='10/08/2008') AND ((history.MODIFYDATETIME)=(select max(history2.modifydatetime) from history as history2 where history2.couponid = history.couponid)))" & _

"GROUP BY type.TYPE" & _

"HAVING (((type.TYPE)='1 client'));"



    

      

    Set rs = CurrentDb.OpenRecordset(SqlStr)

    rs.MoveFirst

    Me.txtopen1Nbr = rs!COUNTER

    rs.Close

SqlStr = "SELECT type.TYPE, Count(*) AS [counter]" & _

"FROM (HISTORY.* INNER JOIN STATUS.* ON history.status_id = status.id) INNER JOIN TYPE.* on history.coupontype = type.id" & _

"WHERE status.STATUS ='Refused' AND ((Format([history].[modifydatetime],'MM/DD/YYYY'))= txtDateRef) AND ((history.MODIFYDATETIME)=(select max(history2.modifydatetime) from history as history2 where history2.couponid = history.couponid)))" & _

"GROUP BY type.TYPE" & _

"HAVING (((type.TYPE)='1 client'));"