Discussion :

[Miss Ti]

Bonjour à tous,
J'essaie de lancer une requête via du code VBA pour compter les enregistrements sélectionnés par une requête.
Pour celà, je lance la commande suivante:

Code :

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

Me.lblStatResultats.Caption = DCount("*", SQLfrom, SQLwhere) 

J'ai le message d'erreur suivant:

Erreur d'exécution '3163':
Le champ est trop petit pour accepter la quantité de données que vous voulez ajouter. Essayez d'insérer ou de coller moins de données.

Ma clause SQLfrom est un peu longue du fait que j'ai 7 tables à gérer. Est-ce que ça pourrai-être ça?

[pafi76]

Code :

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

DCount("*", SQLfrom, SQLwhere)

C'est censé te renvoyer un nombre ca non ? Dans ce cas le champ est forcément pas trop petit ...bizarre...

[Meduse]

Déjà tu peux essayer de dissocier ton code comme ça :

Code :

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

1
2
3
Dim n as long
n = DCount("*", SQLfrom, SQLwhere)
Me.lblStatResultats.Caption = n

pour voir laquelle des deux lignes provoque l'erreur: ça sera déjà un indice.

Si tu sais qu'un des champs de ta requête ne contient aucun Null, tu devrais essayer de mettre son nom à la place de "*".

[Miss Ti]

pafi76 => oui, c'est sensé me donner un nombre

Meduse => c'est bien la partie DCount("*", SQLfrom, SQLwhere) qui bloque, même en remplaçant "*" par un champ ne pouvant pas contenir de vide (ID)

[Miss Ti]

Ne me laissez pas tomber les coupins...

[ActionAccess]

Bonjour,

Que vaut SQLfrom et SQLwhere?

[Miss Ti]

SQLfrom:

Code :

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

1
2
3
4
5
6
SQLfrom = SQLfrom & "FROM ((DOSSIER_PARCELLE DPA INNER JOIN "
        SQLfrom = SQLfrom & "((DOSSIER D INNER JOIN PARAM_TYPE_DEMANDE PTD ON D.id_type_demande = PTD.id_type_demande) "
        SQLfrom = SQLfrom & "INNER JOIN PERSONNES P ON D.id_personne = P.id_personne) "
        SQLfrom = SQLfrom & " ON DPA.id_dossier = D.id_dossier)"
        SQLfrom = SQLfrom & " INNER JOIN PARCELLES PA ON DPA.id_parcelle = PA.id_parcelle) "
        SQLfrom = SQLfrom & " INNER JOIN LIEUDIT L ON PA.id_lieudit = L.id_lieudit "

SQLwhere composé selon ma requête multicritère:

Code :

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

1
2
3
4
5
6
7
8
9
10
    SQLwhere = "WHERE D.id_dossier <> 0 "
    ' si la personne est précisée
    If Me.chkDemandeur Then
        If Me.chkPNom And Me.cmbNom <> "" Then
            SQLwhere = SQLwhere & " AND (((P.nom_personne) = '" & Me.cmbNom.Value & "')) "
        End If
    End If
    'Si numéro de dossier précisé:
........
    End If

Je sais que la clause SQLfrom peut paraître longue mais j'ai 8 tables à gérer...

[marot_r]

J'ai piqué cela dans l'aide de Access, ce sont les param de DCount :

Expr Chaîne requise. Expression qui identifie le champ dont vous voulez compter les enregistrements. Il peut s'agir d'une expression chaîne identifiant un champ dans une table ou une requête, ou d'une expression qui effectue un calcul sur les données de ce champ. Dans expr, vous pouvez inclure le nom d'un champ de table, un contrôle de formulaire, une constante ou une fonction. Si expr inclut une fonction, elle peut être intrinsèque ou définie par l'utilisateur, mais ne peut pas être une autre fonction de regroupement Domaine ou SQL.

Domaine Chaîne requise. Expression de chaîne identifiant les enregistrements qui constituent le domaine. Il peut s'agir d'un nom de table ou d'un nom de requête.

Critère .Variant facultatif. Expression chaîne facultative servant à limiter la plage des données sur laquelle porte la fonction DCount. Par exemple, critère est souvent équivalent à la clause WHERE d'une expression SQL sans le mot WHERE. En cas d'omission de critère, la fonction DCount évalue expr par rapport à l'intégralité du domaine. Chaque champ compris dans critère doit l'être aussi dans domaine, sans quoi la fonction DCount renvoie la valeur Null.


Il se peut trés bien que tu sature le paramêtre Domaine (Les noms de table ou de query sont limité à 60 car environ. Et je soupsone que Domaine est limité à 255 car.

Essaye de mettre ton SQLFrom dans une requète et d'appeler cette requète.

A+

[=JBO=]

Bonjour,

Il se peut trés bien que tu sature le paramêtre Domaine (Les noms de table ou de query sont limité à 60 car environ. Et je soupsone que Domaine est limité à 255 car.

Comme tu l'as rapporté, le paramètre Domaine ne doit contenir qu'UN SEUL NOM DE TABLE OU DE REQUÊTE STOCKÉE, et surtout pas des jointures sur plusieurs tables !

Essaye de mettre ton SQLFrom dans une requète et d'appeler cette requète.

Pas d'autre choix: il faut abandonner DCount (qui ne convient pas du tout) et créer une véritable requête SQL:

Code :

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

1
2
3
SELECT COUNT(*) 
FROM ......
WHERE ...

[Miss Ti]

Finalement, c'est pas plus mal:

Code :

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

"SELECT count(*) " & SQLfrom & SQLWHERE

Pourquoi faire simple quand on peut faire encore plus simple??