Discussion :

[fafet4u]

Bonjour ,

Je dois suivre un tutoriel mais je n'arrive pas à tout faire , pouvez-vous m'expliquer ?

En effet , Je dois suivre ce pdf jusqu’à l'étape 6.6 ( page 11 ) . Mais a un moment je bloque .

Le professeur m'a dit que c'est parce qu'il n'a pas affiché l'objet non associé " qryClientParPays " après avoir copier le programme page 11 . J'ai essayé plusieurs fois mais sans résultat , c'est pour cela que je viens vers vous .


Pouvez-vous me donner une piste ?

Merci d'avance .

[jimbolion]

Fafet4u bonjour,

effectivement cela ne peut pas fonctionner car la tentative de création de la requête ne peut aboutir, regarde bien ton 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
20
21
22
23
Private Sub Commande2_Click()
Dim Db As DAO.Database
Dim QryModele As DAO.QueryDef
Dim strSQLModele As String
Set Db = CurrentDb
Set QryModele = Db.QueryDefs("Requête Modèle")
strSQLModele = QryModele.SQL
'Effectue le remplacement du critere par la valeur
strSQLModele = Replace(strSQLModele, "[Quel Pays ?]", Chr(34) & Nz(cboPays) & Chr(34))
'Si la requête existe déjà alors
If TesteExistenceRequete("qryClientParPays") Then
'alors modifier le code de la requête
Db.QueryDefs("qryClientParPays").SQL = strSQLModele
'Sinon
Else
'Créer la nouvelle requête
Db.CreateQueryDef "qryClientParPays", strSQLModele
End If
'Ouvre la requête
DoCmd.OpenQuery "qryClientParPays"
'Ferme le formulaire
DoCmd.Close acForm, Me.Name
End Sub

A la ligne 11 il est appelé une fonction TesteExistenceRequete qui reçoit un argument (le nom de ta requête) et non déclarée dans ton projet. L’utilisation de cette fonction est pourtant bien décrite dans le tutoriel de christophe page 9 paragraphe 6.3

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Function TesteExistenceRequete(strNomRequete As String) As Boolean
On Error GoTo err
Dim Db As DAO.Database
Dim QryTest As DAO.QueryDef
'initialise un objet représentant la base de données
Set Db = CurrentDb
'tente d'accéder à la requête
Set QryTest = Db.QueryDefs(strNomRequete)
TesteExistenceRequete = True
err:
End Function

En créant un module et en y insérant cette fonction, cela devrait mieux marcher.

en pj le correctif (mais joue le jeu en essayant de corriger toi même ton problème à partir des indications fournies)

Jimbolion

[fafet4u]

Effectivement vous avez raison . Je n'avais pas vu cette étape .

Je vais essayé de faire la modification moi-même .

Merci beaucoup ..

Bonne fin de journée et bonne année

[jimbolion]

fafet4u

Je vais essayé de faire la modification moi-même .

Je vais essayer de faire la modification moi-même...

pardonnes-moi mon côté quelque peu tatillon

jimbolion

[fafet4u]

Je vous remercie de me corriger .

Écrire sans faute est toujours mieux .

[jimbolion]

fafet4u

et apporte plus ! meilleurs vœux à toi

cordialement

jimmy