Discussion :

[vbaddict44]

Bonjour je doit faire un petit programme en vba en utlisant des tables de ma base de donnée Access. Je voudrait savoir comment afficher le resultat d'un RecordSet mais il y a un erreur qui me dit Aucun enregistrement en cour !!!

voila mon 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
Dim base As DAO.Database
Dim espèce As String
Dim resultat As DAO.Recordset
Dim res As String
Set base = CurrentDb()
Set resultat = base.OpenRecordset("SELECT [tab especes complète].[nomVernaculaire] FROM [tab especes complète] WHERE ((([tab especes complète].code)=espèce));")
 
resultat.MoveFirst
While Not resultat.EOF
With resultat
res = !nomVernaculaire
MsgBox res
End With
resultat.MoveNext
 
Wend
 
resultat.Close

[Tofalu]

Le movefirst est inutile.

Mais attention, espèce est une variable, elle doit donc être exclue de la chaine SQL. De plus c'est une variable vide

[vbaddict44]

espèce a bien une valeur mais je n'est pas mis tous mon code espèce prend la valeur d'un InputBox.

le problème c'est donc la variable située dans la requête ? comment faire pour que cette valeur change en fonction de la variable espèce dans ce cas la ?

[Invité]

Bonjour

Il faut sortir ta variable de ta ligne

Essayes :

Code :

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

Set resultat = base.OpenRecordset("SELECT [tab especes complète].[nomVernaculaire] FROM [tab especes complète] WHERE ((([tab especes complète].code)='" & espèce & "'));")

Un conseil, évite les accents dans le code VB.

Edit : j'avais pas vu que Tofalu t'avait donné des indications, pardon chef

Philippe

[Tofalu]

Le champ code est numérique :

Code :

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

Set resultat = base.OpenRecordset("SELECT [tab especes complète].[nomVernaculaire] FROM [tab especes complète] WHERE [tab especes complète].code=" & espece)

Le champ code est du texte :

Code :

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

Set resultat = base.OpenRecordset("SELECT [tab especes complète].[nomVernaculaire] FROM [tab especes complète] WHERE [tab especes complète].code=" & chr(34) & espece & chr(34) )

Edit : grillé

[vbaddict44]

le problème c'est que l'enregistrement n'est pas reconnue
voici mon code remodifié :

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
 
 Set resultat = base.OpenRecordset("SELECT [nomVernaculaire] FROM [tab especes complète]  WHERE code ='& chr(34) & espece & chr(34)';")
 
 
  With resultat
        If .RecordCount > 0 Then
            .MoveFirst
            While Not .EOF
                'res = !nomVernaculaire  pas sûr que autorisé
                res = .Fields("nomVernaculaire")  ' est plus standard
                MsgBox res
                .MoveNext
            Wend
        Else
            MsgBox "Pas d'enregistrement trouvé"
        End If
    End With

[Tofalu]

Oui, mais tu n'as pas recopié la même chose que les messages que l'on t'a donné. Pour preuve : la coloration syntaxique qui diffère ...

Donc forcément, ça ne peut pas fonctionner

[vbaddict44]

désolé je n'avais pas vu j'ai ajouté des modification a ce que tu m'a donné et ca fonctionne merci beaucoup

voila la requete correcte pour ceux qui en aurait besoin :

Code :

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

1
2
3
SELECT [tab especes complète].[nomVernaculaire] 
FROM [tab especes complète] 
WHERE [tab especes complète].code='" & espece & "';