Discussion :

[Tytelle]

Bonjour,

Je ne suis pas forte en vba, et là je galère depuis plusieurs jours...

J'ai une requête SQL qui me retourne le mois de mon fichier en fonction de chiffres que je trouve dans ma table. J'aimerais récupérer ce string, et pouvoir l'utiliser après. (notamment copier ma table d'origine, et la renommer avec le mois trouvé).

Voilà mon code VB :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim Str As String
Dim rq As Recordset
Dim rslt As Currency
 
Str = "SELECT distinct max(IIf([Cost ($)7],'Dec',IIf([Cost ($)6],'Nov',''))) "
Str = Str + "FROM Table1 "
Set rq = CurrentDb.OpenRecordset(Str)
rslt = rq.MoveFirst
 
MsgBox (rslt)

J'ai une erreur "Compile error : Expected Function or variable"

Si quelqu'un à une idée...

Merci de votre aide.

[marot_r]

Ton problème vient de là.

Code :

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

rslt = rq.MoveFirst

Tu essayes d'affecter à une variable un déplacement dans ta source de données.

Je pense que tu voulais récupérer la valeur d'un de champs donc je sugère :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim Str As String
Dim rq As Recordset
Dim rslt As Currency
 
Str = "SELECT distinct max(IIf([Cost ($)7],'Dec',IIf([Cost ($)6],'Nov',''))) as Resultat "
Str = Str + "FROM Table1 "
Set rq = CurrentDb.OpenRecordset(Str)
rslt = rq![Resultat] 'Note, ici on peut aussi éctire rq.fields("Reusltat")
 
MsgBox (rslt)

Et je ne suis pas certain que ta syntaxe SQL est correct en SQL Access. Je ferai un test dans l'éditeur de requête une fois que j'aurai obtenu le résultat attendu puis j'afficherai le code SQL correspdant.

Une autre méthode consite à utiliser directement l'objet Requête comme source de donneés.

Ton code devient alors :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim rq As DAO.Recordset
Dim rslt As Currency
dim db as dao.database:set db=currentdb
 
Set rq = CurrentDb.OpenRecordset("NomTaRequeteSource")
rslt = rq![Resultat] 'Note, ici on peut aussi éctire rq.fields("Resultat")
 
MsgBox (rslt)
 
rq.close:set rq=nothing 'Ferme le recordset et libère la mémoire utilisée.
set db=nothhing 'Libère la mémoire utilisée.

A+

[Tytelle]

Merci de ta réponse.
Malheureusement ça ne marche pas.

J'ai essayé tes deux méthodes et j'ai une erreur :
"Item not found in this collection"
et il me surligne la ligne rslt = rq![Resultat]

[marot_r]

Quel SQL utilises-tu ?

A+

[Tytelle]

Ben, du SQL de Access?... Je vois pas autre chose que je puisse utiliser avec ça, non?

[Tytelle]

Sinon il ne faut pas juste cocher une biblio en plus dans les préférences? (je viens de le faire pour autre chose, et ça fonctionne tout de suite mieux)

[vodiem]

salut marot_r et bienvenue Tytelle

Quel SQL utilises-tu ?

Ben, du SQL de Access?... Je vois pas autre chose que je puisse utiliser avec ça, non?

laisse moi deviner la couleur de tes cheveux...

Code SQL :

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

SELECT distinct max(IIf([Cost ($)7],'Dec',IIf([Cost ($)6],'Nov',''))) FROM Table1

"IIf([Cost ($)7]..." suppose [Cost ($)7] comme boolean (type: Oui/Non) ce qui est contradictoire avec ce que tu dis: "en fonction de chiffres que je trouve dans ma table"
de plus : "J'aimerais récupérer ce string" (ce qui correspond bien au type du champ [Resultat]) mais étant donné:

Code :

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

rslt = rq![Resultat]

et

Code :

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

Dim rslt As Currency

de nouveau il y a une incomptabilité de type.

je te conseille de reformuler autrement ou ... de revoir ta teinture??...

[Tytelle]

Le problème ne vient pas de l'incompatibilité de type.
Je formule mon problème (puisque les cheveux, j'ai pas envie de changer).

Dans cette requete je récupère un mois en fonction du chiffre qui se trouve dans les intitulés de mes colonnes.
En effet, je vérifie que la colonne nommée [Cost ($)7] existe, si elle existe je sais que nous sommes un certain mois et que d'autres tel que [Cost ($)8] ou plus n'existe pas.
J'aimerais ensuite copier ma table (dans laquelle j'ai cherché le Cost ($)7) dans un nouvelle table que je nommerais en fonction du mois que j'aurais trouvé.
Il faut donc que je puisse récupérer le résultat de ma requête.

C'est assez explicite pour un mec?

[vodiem]

c'est ca que tu veux?:

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
Dim rq As Recordset
Dim Resultat As String
Dim n As String
 
Set rq = CurrentDb.OpenRecordset("Table1")
On Error Resume Next
n = rq.Fields("Cost ($)6").Name: If Err = 0 Then Resultat = "Nov" Else Err.Clear
n = rq.Fields("Cost ($)7").Name: If Err = 0 Then Resultat = "Dec" Else Err.Clear
n = rq.Fields("Cost ($)8").Name: If Err = 0 Then Resultat = "Jan" Else Err.Clear
'... priorité descendante
On Error GoTo 0
 
DoCmd.SetWarnings False
DoCmd.RunSQL "SELECT * INTO " & Resultat & " FROM Table1"
 
Set rq = Nothing

C'est assez explicite pour un mec?

ne va pas croire que j'ai subi une pénectomie.

[marot_r]

Ok j'ai été peu clair lors de ma dernière question.

Tytelle, peux-tu poster la requête SQL que tu utilises et qui génère actuellement l'erreur que tu m'as mentionnée ?

A+

[Tytelle]

Merci Vodiem!
Ca fonctionne très bien!

Merci aussi marot_r

[Tytelle]

J'avais une autre question.
Est-ce qu'on peut sélectionner une table dynamiquement (genre avec une dialog box, ou un truc équivalent) pour ensuite effectuer des requêtes et exportations?

[marot_r]

Oui mais c'est un sujet en soi, je t'invite à ouvrir une nouvelle discussion à ce propos.

A+