problème d'exécution en VBA [Résolu]

[zskiredj]

bonsoir à tous,

voila je développe un module VBA sous Access. Le problème c est que le code ne s'exécute pas ! je ne comprends pas pourquoi. J'ai mis des points d'arrêts, rien à faire. Pourquoi le code ne s exécute t il pas ?
voici mon code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Function PaysV(nomPays As String) As Boolean
'renvoie vrai si le pays est dans la liste des pays de la table country
 
Dim rcs As Recordset
Dim qdf As QueryDef
 
Set qdf = CurrentDb.QueryDefs("ReqEstUnPaysValide")
qdf.Parameters("MyCountry") = nomPays
 
Debug.Print "en cours"
 
Set rcs = qdf.OpenRecordset
 
If rcs.EOF Then estUnPaysValide = False Else estUnPaysValide = True
 
Set rcs = Nothing
Set qdf = Nothing
 
End Function

Merci infiniement pour votre aide !

[nico84]

bonsoir,

la fonction s'appelle paysv mais c'est estunpaysvalide qui est valorisé

Et plus simplement :

Code :

paysv = not rcs.eof

[zskiredj]

En fait je teste la fonction avec un :

Code :

debug.print PaysV("France")

et j'obtiens ni faux, ni vrai !

[Access Newbie]

Bonjour,

Tu m'étonnes que ca ne marche pas ...

Relis ce que t'as mis Nico84.

Tu crée une fonction dont le nom est PaysV et tu affecte ton Vrai/faux sur estUnPaysValide ...

Appelle ta fonction estUnPaysValide au lieu de PaysV ou bien sur la derniere ligne de ton code tu mets

Code :

PaysV = estUnPaysValide

(en ayant pris soin de déclarer ta variable estUnPaysValide as boolean)

[zskiredj]

bonjour,

en fait c était une coquille, j'ai mis une version fausse de mon code. Je mets bien le nom de la fonction pour retourner le booléan !

merci

[zskiredj]

en jouant avec les commentaires pour voir pourquoi le code ne s'exécute pas, je me rends compte que le problème provient de la ligne :

Code :

Set rcs = qdf.OpenRecordset

quand j'ajoute cette ligne, le code n'est plus lu ! Une idée ? merci!

[nico84]

J'utilise un code similaire qui marche bien, la seule différence est que je précise

Code :

1
2
Dim rcs As dao.Recordset
Dim qdf As dao.QueryDef

La requête ReqEstUnPaysValide fonctionne en appel direct avec un et un seul paramètre mycountry ?
pas d'erreur de compil ni d'exécution ?

[zskiredj]

Bonsoir,
désolé pour le retard (j'étais en petit WE pour souffler un peu... ).

ça marche nickel ! Par contre j'ai pas compris ce que ça rajoute de mettre le dao.XXXX

Si quelqu'un a une explication, je suis preneur !

Mais en tous cas merci infinimment pour cette aide précieuse.

[nico84]

En fonction des références cochées dans ton appli, le recordset peut être de type DAO ou ADO et alors les syntaxes ne sont pas les mêmes à l'utilisation.

Le fait de préciser "DAO.xxx" lève l'ambiguité...

[zskiredj]

ok j'ai compris !
Merci Nico pour ton aide.