Discussion :

[SixteenVBA]

Bonjour à tous!

Je sollicite votre aide car je n'ai pas trouvé de réponse sur le forum....
Alors voilà, j'ai besoin d'affecter le résultat d'une requête sélection à une variable dans mon code VBA afin de procéder à des calculs. J'ai essayé de le faire avec Dlookup mais ça ne marche pas.
Voilà le code:

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
Private Sub Btn_requete_Click()
vol_total.Value = DLookup("[Expr2]", "[Rq_volume_total]")
metrage = 0
hauteur.Value = hauteur_utile.Value
If opt_camion = 1 Then
metrage = vol_total / (2.4 * hauteur.Value)
 
ElseIf opt_remorque = 5 Then
metrage = vol_total / (2.4 * hauteur.Value)
 
ElseIf opt_conteneur_dry = 2 Then
metrage = vol_total / (2.2 * hauteur.Value)
 
ElseIf opt_conteneur_hc = 3 Then
metrage = vol_total / (2.2 * hauteur.Value)
 
ElseIf opt_conteneur_vingt = 4 Then
metrage = vol_total / (2.2 * hauteur.Value)
End If
End Sub

Et le message d'erreur : "Erreur d'exécution 3008 : La table "Feuil1$" est déjà ouverte en mode exclusif par un autre.....et ne peut pas être manipulée par programmation"
J'ai effectivement une table lié à un fichier excel. Cela peut-il être l'explication?
Pouvez-vous m'aider?

Merci...

[Jeannot45]

Je t'avoue que je ne comprends pas trop l'utilisation du DLookup. En effet, cette fonction ne récupère qu'une valeur et non un enregistrement complet. Ta requête te retourne combien d'enregistrements ?
Le mieux serait de passer par l'ouverture de ta requête dans RecordSet. Et de traiter ton problème à partir de celui-ci

[SixteenVBA]

Bonjour,

Ma requête ne renvoit qu'un seul résultat : une somme ici du total de plusieurs lignes d'une autre requête.



J'aimerai dans mon code VBA, récupéré cette valeur Expr2, afin de m'en servir dans des calculs.
Je n'ai jamais utilisé RecordSet... Peux-tu m'aiguiller?

Merci

[Nodens_swiss]

http://access.developpez.com/faq/?page=SQL

[SixteenVBA]

Merci pour le lien, pour le moment j'ai tapé ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub DAOOpenRecordset()
    Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field
    Dim sSQL As String
    ' Ouverture de la base de données
    Set db = DBEngine.OpenDatabase(".\Volumétrie.accdb")
    sSQL = "Select * From Rq_volume_total "
    ' Ouverture du Recordset
    Set rst = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
    MsgBox (rst)
    ' Fermeture du Recordset
    rst.Close
End Sub

Mais ça ne fonctionne pas. POuvez-vous m'aider à l'écrire pour que je puisse récupérer dans une variable le résultat de ma requête? Merci

[Nodens_swiss]

Si je ne me trompe pas, il faut un « ; » à la fin de ton sSQL.
Set permet d’ouvrir la table.

Tu dois déjà balayer toutes les lignes de la table avec

Code :

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

1
2
3
4
While not rst.eof  ‘tant que l’on est pas à la fin
	Msgbox(rst![le nom du champs qui t’interresse]
	Rst.movenext ‘ passage à la ligne suivante
Wend

[SixteenVBA]

Merci Nodens pour ta réponse.
Mais avec recordSet j'ai réussi à récupérer ma valeur :

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
Private Sub Btn_requete_Click()

Dim re As dao.Recordset
Set re = CurrentDb.OpenRecordset("Rq_volume_total")
vol_total = (re.Fields("Expr2"))
metrage = 0
hauteur = Me![hauteur_utile].Value
If opt_camion = 1 Then
metrage = vol_total / (2.4 * hauteur_utile.Value)

ElseIf opt_remorque = 5 Then
metrage = vol_total / (2.4 * hauteur_utile.Value)

ElseIf opt_conteneur_dry = 2 Then
metrage = vol_total / (2.2 * hauteur_utile.Value)

ElseIf opt_conteneur_hc = 3 Then
metrage = vol_total / (2.2 * hauteur_utile.Value)

ElseIf opt_conteneur_vingt = 4 Then
metrage = vol_total / (2.2 * hauteur_utile.Value)
End If
re.Close
End Sub

Mon problème maintenant c'est que quand j'exécute le code, j'ai le message "Expression sans paramètre" avec la ligne de bug comme signalé ici.
Savez-vous pourquoi?

[Nodens_swiss]

opt_camion c'est quoi?
un champs de ta table?

Si tu ne fait pas la boucle while que je t'ai indiqué, tu n'auras accès qu'à la première ligne de la table.

[SixteenVBA]

Opt_camion c'est une des options d'un groupe d'option, il prend la valeur 1 quand c'est lui qui est coché.
Ma requête ne renvoit qu'une seule ligne donc pas besoin de boucle, le recordset que j'ai testé avec un msgbox me ramène bien la valeur souhaité que je veux affecter à une variable nommée ici vol_total

[Nodens_swiss]

Une option d’un groupe d’option je ne sais pas ce que c’est.
C’est sur ton formulaire ? Par ce que là je comprends pas où tu veux aller.
Tu ouvres un recordset

Code :

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

Set re = CurrentDb.OpenRecordset("Rq_volume_total")

Et j’ai pas l’impression que tu l’utilises dans la suite de ton code.

[SixteenVBA]

J'ai sur mon formulaire le un groupe d'option, qui permet à l'utilisateur d'en choisir un entre opt_camion, opt_conteneur_vingt, etc.
Et si je l'utilise dans cette ligne :

Code :

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

vol_total = (re.Fields("Expr2"))

[Nodens_swiss]

Ok mais ça n’a rien à voir avec ton problème à la base qui était « affecter résultat requête à une variable »

Il faut que tu structure tes questions car les gens qui sont sur ce forum sont là pour aider mais n’ont pas de temps à perdre.

Donc est ce que tu as réussi à accéder aux différents champs de ta requête ? Si oui ce post est terminé et tu en ouvres un autre concernant les Optionbuttons.

Et tu commences par rechercher sur le site (ce qui m’a pris 10 secondes) et tu trouves :
http://gilmir.developpez.com/tutoriels-vb6/tutoriel10/
http://silkyroad.developpez.com/VBA/...serForm/#LII-C

[SixteenVBA]

Effectivement ça ne va pas dans ce topic. Mais mon post du départ est bien au bon endroit.
Je mets d'ailleurs le code qui m'a permis de récupérer le résultat UNIQUE de ma requête afin de l'affecter à une variable dans un code VBA:

Code :

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

1
2
3
4
Dim re As dao.Recordset
Set re = CurrentDb.OpenRecordset("Rq_volume_total")
vol_total = (re.Fields("Expr2"))
re.Close