Discussion :

[paidge]

Bonjour,

J'aimerai, après la mise à jour d'un champ indépendant de mon formulaire (qui lui aussi est indépendant), modifier le code SQL d'une de mes requêtes.

Je me suis donc intéressé à la solution proposée par Tofalu basée sur le modèle ADO.

Dans un module où je stocke mes fonctions et procédures personnalisées, j'ai donc intégré le code fourni et ai bien sûr activé "la référence ADO ext 2.8 for DDL and Security".

Mais lorsque je fais appel à cette procédure avec le nom de la requête et le code SQL en paramètres, j'ai l'erreur 3265 qui me dit qu'il ne trouve pas ma requête alors que celle-ci existe bien ! J'ai beau chercher mais je ne comprends pas pourquoi. Même après avoir lu le Tutoriel de JM Rabilloud sur ADOX

Merci d'avance pour votre aide.

[paidge]

Du coup, je suis passé par une autre méthode qui, à mon goût est plus simple.

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
Public Function ChangeRequeteDef(ChaineRequete As String, ChaineSQL As String) As Boolean
 
    ' ===== Déclaration des variables =====
    Dim Definition As Variant
 
    ' ===== On vérifie que les deux paramètres ont bien été saisis =====
    If ((ChaineRequete = "") Or (ChaineSQL = "")) Then
        ChangeRequeteDef = False        ' ===== Si il manque un paramètre on renvoie Faux =====
    Else
        Set Definition = CurrentDb.QueryDefs(ChaineRequete)
        Definition.SQL = ChaineSQL      ' ===== Sinon on modifie la definition de la requête =====
        Definition.Close                ' ===== Libération =====
        RefreshDatabaseWindow           ' ===== Rafraîchissement de la fenêtre de base de données =====
        ChangeRequeteDef = True         ' ===== On renvoie Vrai =====
    End If
 
End Function