[VBA Access] Problème de requête

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA Access] Problème de requête

miomax

Bonjour,

Je tente de corriger une erreur dans une appli qui gère une BDD de production sous Access, réalisée par 2 stagiaires l'année passée.
L'objectif est d'afficher le nombre de défauts d'une pièce. Le code est absolument monstrueux et je préfère utiliser une requête plutôt que de chercher dans l'algo à quel endroit l'incrémentation sur le nombre de défauts est mal effectuée. Je pense pouvoir me permettre d'utiliser cette méthode car les défauts par pièces sont enregistrés spécifiquement. Il se peut que j'aie complètement faux!

J'ai lu des trucs sur ODA/DAO mais je n'ai rien compris. La version d'access est la 2003.

J'ai donc essayé d'intégrer une requête dans le code de l'application, lorsque l'utilisateur choisit le numéro de son moule dans une liste déroulante:

En gros, l'algo que je eux suivre est "Quand l'utilisateur a entré le n° du moule, je "rafraichis" la page et affiche le résultat de la requete qui retourne le nombre de défauts (1 par ligne dans la table)".
Je sais manipuler des reqûetes dans plusieurs langages, mais je dois avouer qu'en VBA je suis complètement perdu!

Citation :

Private Sub moule_AfterUpdate()

'Test pour calcul nb défauts par requete

Dim strSQL As String
strSQL = "SELECT COUNT(*) T_DEMERITE.moule, T_DEMERITE.solde FROM T_DEMERITE WHERE (((T_DEMERITE.solde) = 0) AND T_DEMERITE.moule = Form_F_AUDIT.moule);"
'NB_Demerite_test = DCount("*", "strSQL" )

Bien évidemment ca ne marche pas, et je suppute que j'ai vraiment fait n'importe quoi. Je cherche sur ce site et developpez depuis 2 heures et je ne trouve rien qui puisse m'aiguiller, aussi j'attends un peu d'aide avec une grande impatience!

Merci d'avance

Publicité

Deamon

Tu pensais quand même pas qu'en créant simplement un String il allait t'effectuer la requête j'espère !

Code :

Dim rst As New ADODB.Recordset
Dim sqlCommand As String
sqlCommand = "SELECT blabla..."
rst.Open sqlCommand, CurrentProject.Connection, adOpenStatic

ou bien

Code :

Dim rs As ADODB.Recordset
Dim cmd As ADODB.Command
Set rs = New ADODB.Recordset
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = CurrentProject.Connection
cmd.CommandText = "SELECT ..."
Set rs = cmd.Execute

Et après tu récupères le résultat avec un getString sur ton RecordSet.

miomax

Salut!

Merci de ta réponse. J'ai essayé d'inclure les deux codes, mais il me donne une erreur, qui d'après mes recherches indique une référence manquante.

J'ai donc rajouté la référence ActiveX 2.5 (il me semble que pour access 2003 c'est la bonne)

En revanche il me donne maintenant une erreur sur chacune des dernières lignes en me disant que "Aucune valeur n'est donnée pour un ou plusieurs des paramètres requis". J'ai cherché les paramètres en question sans succès.

Que de boulot pour une simple requête!

produvba

Bonjour,

2 conseils
* ne pas utiliser des stagiaires pour cela mais des gens sérieux, qui vont faire cela pour une somme modique (il y en a, j'en connais).
* pour un truc aussi simple tu peux utiliser la fonction "DCOUNT()", regarde l'aide cela fait cela tout seul

miomax

Hello,

Dcount a très bien marché, merci beaucoup!

Sinon pour les stagiaires, ils ont quand même réussi à faire quelque chose de correct dans le sens où même s'il existe quelques petits bugs l'appli est fonctionnelle. Et puis il faut bien former les jeunes!

Encore merci!

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBA Access] Problème de requête

Sujets relatifs
[Resolu] [VBA] Macro Excel - Zone de texte	[VB6] Problème arrondi calcul validité IBAN
VBA_Excel_ouverture automatique - Résolu	Problème avec fonction header() + syntaxe.
Sessions problème de débutant	Ouvrir un répertoir et lister les fichier VBA
[VBA] macro qui copie colle données les une à coté des autres	Caractère séparateur sous excel VBA
Probleme pour lire un fichier xml	[VBA] Access, probleme de requete
Plus de sujets relatifs à : [VBA Access] Problème de requête

Page générée en 0.027 secondes