Discussion :

[Marcopololo]

Bonjour,

J'ai un code SQL qui me définie une requête.

MAis lors de la création je voudrais vérifier qu'elle existe car la suppression sur innexistant amène un bug. Il y a t'il une fonction qui le fait du genre :
Si Requête existe alors
Je supprime
Sinon je la créé.

Voici le code de suppression :

Code :

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

1
2
3
 .........
DoCmd.DeleteObject acQuery, "Requête suppression observation"
        CurrentDb.CreateQueryDef "Requête suppression observation", SQL

Merci d'avance

MArcopololo

[Oleff]

Bonjour,
Une petite fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Function isQuery(queryName As String) As Boolean
   ' teste l'existence d'une requête
 
   On Error GoTo isQuery_ERR
   Debug.Print CurrentDb.QueryDefs(queryName).Name
   isQuery = True
   Exit Function
 
isQuery_ERR:
   isQuery = False
   ERR.Clear
 
End Function

[Marcopololo]

Merci Oleff,

J'ai une petite question. Comment intégre t'on cette fonction dans le code ?

Marcopololo

[vodiem]

salut,
tu fais un copie/coller dans un nouveau module
isQuery() sera reconnu comme une fonction à part entière comme IsNull()...

[Marcopololo]

Voila ce que j'ai mis dans mon code, mais j'ai une erreur sur isquery.

Ce module, je lui donne le nom que je veux ?

Code :

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

1
2
3
4
5
If isQuery("Requête Modif Clients") Then
        DoCmd.DeleteObject acQuery, "Requête Modif Clients"
        Else
        CurrentDb.CreateQueryDef "Requête Modif Clients", SQL
        End If

Marcopololo

[vodiem]

j'ai pas tout suivi, je passais par là et je te réponds en l'absence d'Oleff.
essaye avec les crochets.

MAis lors de la création je voudrais vérifier qu'elle existe car la suppression sur innexistant amène un bug

perso je force la suppression en retirerant la gestion d'erreur: on error resume next.


ps: oui pour le nom du module

[Marcopololo]

Bon,

J'ai avancé un petit peu en mettant cela :

Code :

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

1
2
3
4
5
6
If isQuery("Requête Modif Clients") Then
        DoCmd.DeleteObject acQuery, "Requête Modif Clients"
        CurrentDb.CreateQueryDef "Requête Modif Clients", SQL
        Else
        CurrentDb.CreateQueryDef "Requête Modif Clients", SQL
        End If

Je n'ai plus d'erreur. En fait je n'avais pas relancé ma base.
Mais maintenant ma requête se créé bien même si elle n'existe pas au départ, par contre les données n'arrivent plus au formulaire ???

Marcopololo

[vodiem]

question idiote: la requete renvoie des enregistrements?
auquel cas il faut revoir la source de ton formulaire.

[Marcopololo]

Oui, j'ai vérifié la requête et elle me renvoie bien les enregistrements du code choisi.

Mais dans le formulaire elles ne s'affichent pas.
Ce que j'ai du mal à comprendre car l'appel à cette fonction ne change rien au reste et cela fonctionnait ?
Je vais vérifier le code au niveau du formulaire qui s'ouvre suite à cette création de requête.

Merci de ton aide

Marcopololo

Je viens de trouver. J'avais renommer ma requête pour en garder une copie, mais en faisant cela tous les liens se sont renommés. J'ai corrigé et cela fonctionne.
Je vais retourné à mon problème de requête delete.
Si des fois tu avais une idée j'ai mis un message sur le forum ihm.

Merci de votre aide Oleff etVodiem

[vodiem]

ps: bien que le code de Oleff fonctionne, il n'est pas très orthodoxe de procéder ainsi.
tu trouveras d'autre code ici
bien que je pense qu'il y a "mieux".