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 !