1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
Option Compare Database
Option Explicit
Private Sub Détail_Print(Cancel As Integer, FormatCount As Integer)
Dim rs As DAO.Recordset
Dim SQL As String
Dim TEst As String
Dim db As Database
Set db = CurrentDb
Set TEst = "Bla Bla"
Set SQL = "SELECT Count(*) AS [Compte De Actions_team_forum] FROM [Team Promo] INNER JOIN Actions_team_forum ON [Team Promo].ID_TeamUV = Actions_team_forum.ID_team WHERE [Team Promo].ID_TeamUV = " & TEst & " GROUP BY [Team Promo].ID_TeamUV;"
Set rs = db.OpenRecordset(SQL)
Me.Compte_De_Actions_team_forum = rs("[Compte De Actions_team_forum]")
rs.Close
End Sub |