problème d'exécution en VBA
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 !
