Discussion :

[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 :

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
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 :

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

paysv = not rcs.eof

[zskiredj]

En fait je teste la fonction avec un :

Code :

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

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 :

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

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 :

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

Set rcs = qdf.OpenRecordset

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