Discussion :

[Hania06]

Bonjour à tous,

Je cherhe a compter les nombre d'enregistrement selon un critère. Mais j'ai un problème dans la ligne de mon code ci dessous:

Code :

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

 str_SQL = "SELECT Count (*)  FROM bd WHERE  (((bd.[Retour Emetteur]) Like " * OK * "));"

J'ai un message d'erreur type 13: Incompatibilité de type

Pourtant je pense avoir bien référencé vba

quelqu'un aurait une idée d'où peut venir le problème ?

[ClaudeLELOUP]

Bonjour,

Quel est le type de données que contient la colonne [Retour Emetteur] de ta table ?

Ce n'est sans doute pas du texte !

[Hania06]

elles sont bien de type Texte

Mais le colonne contient des phrases avec le signe: "/" . Du genre: KO/en attente

Je doit changer le format de ma colonne? Ou bien l'écriture de ma requete SQL dans VBA?

[Jean-Philippe André]

Salut,

pour le type texte, utilises des apostrophes :

Code :

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

str_SQL = "SELECT Count (*)  FROM bd WHERE  (((bd.[Retour Emetteur]) Like '*OK*'));"

[ClaudeLELOUP]

Écris plutôt comme ceci (des espaces sont de trop et les quotes sont mal équilibrés !) :

str_SQL = "SELECT bd.[Retour Emetteur] FROM bd WHERE (((bd.[Retour Emetteur]) Like '*OK*'));"

[Hania06]

J'ai essayer vos deux réponses

Mais j'ai un méssage d'erreur 3061: trop peu de paramètre. 1 attendu.

:/ peut etre qu'il faut une paranthèse en plus

[ClaudeLELOUP]

... mais pourtant :

[Hania06]

Oui chez moi aussi ça marche sur SQL. Mais sur VBA ca veut pas
Je vais refaire le code peut etre que je fais une erreur sans m'en rendre compte

Au passage voici Mon code complet:

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
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Sub Nombre2()
 
Dim oRst2 As DAO.Recordset
 
Dim fld As DAO.Field
Dim oRst3 As DAO.Recordset
 
Set oDb = CurrentDb
 
Set oRst2 = oDb.OpenRecordset("bd", dbOpenTable)
 
 
  str_SQL = "SELECT Count(*)FROM bd WHERE(((bd.[Retour_Emetteur])Like'*OK/Position Soldée*'));"
 
 
 
    int_Count = CurrentDb.OpenRecordset(str_SQL).Fields("Retour_Emetteur").Value
 
 
    Set oRst3 = oDb.OpenRecordset("Table1", dbOpenTable)
 
    oRst3.Edit
 
    oRst3.Fields("Nombre2").Value = int_Count  
 
    oRst3.Update
 
    oRst3.MoveNext
 
End Sub

Merci pour votre aide

[ClaudeLELOUP]

Quel code compliqué !

Si je comprends : tu veux inscrire dans Table1.Nombre2, le nombre d'occurrences de « OK/Position soldée » qui se trouvent dans la table bd.

Une requête MàJ ferait l'affaire...

SQL de la requête

Code sql :

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

UPDATE Table1 SET Table1.Nombre2 = DCount("*","bd","[Retour Emetteur] like '*OK/Position Soldée*'");

Et la sub :

Code :

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

1
2
3
4
5
6
7
8
9
Option Compare Database
Option Explicit
 
 
Public Sub Nombre2()
  DoCmd.SetWarnings False
  DoCmd.OpenQuery "rMaJTable1"
  DoCmd.SetWarnings True
End Sub

[ClaudeLELOUP]

Et si tu veux éviter d'enregistrer la requête, tu peux la créer à la volée :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Compare Database
Option Explicit
 
 
 
Public Sub Nombre2()
  DoCmd.SetWarnings False
  DoCmd.RunSQL "UPDATE Table1 SET Table1.Nombre2 = " _
                 & "DCount(""*"",""bd"",""[Retour Emetteur] like '*OK/Position Soldée*'"");"
  DoCmd.SetWarnings True
End Sub

[Hania06]

Parfait ça marche très bien

Merci de votre patience. Et de m'avoir fait découvrir cette requête

Très bonne journée