Erreur Requete SQL dans VBA

Version imprimable

21/04/2017, 10h52
Hania06

Erreur Requete SQL dans VBA

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:

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 ?
21/04/2017, 11h30
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 !
21/04/2017, 11h44
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?
21/04/2017, 13h02
Jean-Philippe André

Salut,

pour le type texte, utilises des apostrophes :

Code:

str_SQL = "SELECT Count (*) FROM bd WHERE (((bd.[Retour Emetteur]) Like '*OK*'));"
21/04/2017, 13h30
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*'));"
21/04/2017, 13h49
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
21/04/2017, 14h27
ClaudeLELOUP

... mais pourtant :

http://claudeleloup.developpez.com/&99/M1166.jpg

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:

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

21/04/2017, 14h58
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...

http://claudeleloup.developpez.com/&99/M1172.jpg

SQL de la requête

Code:

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

Et la sub :
Code:

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

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

Code:

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

21/04/2017, 16h42
Hania06

Parfait ça marche très bien

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

Très bonne journée :)