Discussion :

[vroggero]

Voila je suis entrain de créer un FORM assez simple mais j'ai une erreure récurente Problème Objet requis or je ne vois pas où se loge le problème.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

merci d'avance

[Domi2]

Bonjour,

Essaie déjà :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim SQL As String
Dim TEst As String

Set db = CurrentDb
TEst = "Bla Bla"

Domi2

[vroggero]

Nouveau message:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Option Compare Database
Dim rs As DAO.Recordset
Dim SQL As String
Dim TEst As String
Dim db As DAO.Database
 
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
Set db = CurrentDb
TEst = Me.Ident
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;"
rs = db.OpenRecordset(SQL)
Me.Compte_De_Actions_team_forum = rs("[Compte De Actions_team_forum]")
rs.Close
End Sub

[Junior_jef]

Nouveau message:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Option Compare Database
Dim rs As DAO.Recordset
Dim SQL As String
Dim TEst As String
Dim db As DAO.Database
 
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
Set db = CurrentDb
TEst = Me.Ident
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;"
rs = db.OpenRecordset(SQL)
Me.Compte_De_Actions_team_forum = rs("[Compte De Actions_team_forum]")
rs.Close
End Sub

Je ne suis pas sur que l'événement "format" soit le plus approprié pour cela, si?

[Invité]

Voila je suis entrain de créer un FORM assez simple mais j'ai une erreure récurente Problème Objet requis or je ne vois pas où se loge le problème.

Tu es dans un formulaire ou un état ?

Car

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub Détail_Print(Cancel As Integer, FormatCount As Integer)

n'éxiste pas dans un formulaire, mais dans un état.

Starec

[Arkham46]

Bjr,

Avec un objet il faut utiliser SET non?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set rs = db.OpenRecordset(SQL)

[Arkham46]

Bjr,

Avec un objet il faut utiliser SET non?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set rs = db.OpenRecordset(SQL)

J'avais pas vu qu'il était dans le premier code, il faudrait sans doute le remettre.

La syntaxe suivante est-elle correcte?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Compte_De_Actions_team_forum = rs("[Compte De Actions_team_forum]")

Ne serait-ce pas plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Compte_De_Actions_team_forum = rs![Compte De Actions_team_forum]