sql = "SELECT table1.ref, table1.clt, table1.adv, table1.plaidoirie, table2.date, table3.npi, table3.nca" & vbCrLf & _ "FROM ((table1 INNER JOIN table2 ON table1.ref table2.ref) INNER JOIN table3 ON table1.ref table3.ref) INNER JOIN table4 ON table1.ref = table4.ref" & vbCrLf & _ "WHERE (((table2.date)=#" & valeur & "#))" DataReport1.Show
Private Sub impr_Click() Dim sql sql = "SELECT table1.ref, table1.clt, table1.adv, table1.plaidoirie, table2.date, table3.npi, table3.nca" & vbCrLf & _ "FROM ((table1 INNER JOIN table2 ON table1.ref table2.ref) INNER JOIN table3 ON table1.ref table3.ref) INNER JOIN table4 ON table1.ref = table4.ref" & vbCrLf & _ "WHERE (((table2.date)=" & "22/03/2011" & "));" '......... comment puis-je executer cet requete 'pour l'imprimer dans le data report DataReport1.Show End Sub