Bonjour. dans ce cas-là tu mets on error resume next juste devant DeleteObject .
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Michel Pellegrini" a écrit dans le message de news:
Hier, on a répondu à la question de savoir si un objet est ouvert.
Quelle est la propriétés ou la fonction qu'on doit utiliser pour savoir si un objet - disons une requête - existe ?
C'est pour employer juste avant l'utilisation de la fonction DeleteObject qui renvoi un message d'erreur si l'objet n'existe pas.
Vercheres QC Canada
Pierre CFI [mvp]
bonjour une façon d'utiliser la gestion d'erreur on error resume next ligne de suppression err.clear si l'objet n'existe pas, erreur mais on continue, et on remet l'erreur à 0 -- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer http://users.skynet.be/mpfa/ Site perso http://access.cfi.free.fr "Michel Pellegrini" a écrit dans le message de news:
Hier, on a répondu à la question de savoir si un objet est ouvert.
Quelle est la propriétés ou la fonction qu'on doit utiliser pour savoir si un objet - disons une requête - existe ?
C'est pour employer juste avant l'utilisation de la fonction DeleteObject qui renvoi un message d'erreur si l'objet n'existe pas.
Vercheres QC Canada
bonjour
une façon d'utiliser la gestion d'erreur
on error resume next
ligne de suppression
err.clear
si l'objet n'existe pas, erreur mais on continue, et on remet l'erreur à 0
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Michel Pellegrini" <Michel.Pellegrini@Enter-Net.com> a écrit dans le message de news: OuWshhn5DHA.1052@TK2MSFTNGP12.phx.gbl...
Hier, on a répondu à la question de savoir
si un objet est ouvert.
Quelle est la propriétés ou la fonction qu'on
doit utiliser pour savoir si un objet - disons
une requête - existe ?
C'est pour employer juste avant l'utilisation
de la fonction DeleteObject qui renvoi un message
d'erreur si l'objet n'existe pas.
bonjour une façon d'utiliser la gestion d'erreur on error resume next ligne de suppression err.clear si l'objet n'existe pas, erreur mais on continue, et on remet l'erreur à 0 -- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer http://users.skynet.be/mpfa/ Site perso http://access.cfi.free.fr "Michel Pellegrini" a écrit dans le message de news:
Hier, on a répondu à la question de savoir si un objet est ouvert.
Quelle est la propriétés ou la fonction qu'on doit utiliser pour savoir si un objet - disons une requête - existe ?
C'est pour employer juste avant l'utilisation de la fonction DeleteObject qui renvoi un message d'erreur si l'objet n'existe pas.
Vercheres QC Canada
Michel Pellegrini
(Pierre CFI [mvp]) |> une façon d'utiliser la gestion d'erreur |> |> on error resume next |> 'ligne de suppression |> err.clear |> |> si l'objet n'existe pas, erreur mais on continue, |> et on remet l'erreur à 0
C'est bon à savoir, je ne savais pas pour err.clear
Par contre, cette méthode à le désavantage de ne retourner aucune erreur, quelle qu'elle soit.
Sur un site web, on indique une façon de vérifier si une requête (ou un autre objet) existe:
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ Public Function ExisteRequete(chNomRequete As String) As Boolean ' Déterminer si une requête existe. Dim Ctr As Integer ExisteRequete = False For Ctr = 0 To CurrentDb.QueryDefs.Count - 1 If chNomRequete = CurrentDb.QueryDefs(Ctr).Name Then ExisteRequete = True Exit Function ' Quitter la fonction quand la table est trouvée. End If Next Ctr End Function ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
Vercheres QC Canada
(Pierre CFI [mvp])
|> une façon d'utiliser la gestion d'erreur
|>
|> on error resume next
|> 'ligne de suppression
|> err.clear
|>
|> si l'objet n'existe pas, erreur mais on continue,
|> et on remet l'erreur à 0
C'est bon à savoir, je ne savais pas pour err.clear
Par contre, cette méthode à le désavantage de ne retourner
aucune erreur, quelle qu'elle soit.
Sur un site web, on indique une façon de vérifier
si une requête (ou un autre objet) existe:
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
Public Function ExisteRequete(chNomRequete As String) As Boolean
' Déterminer si une requête existe.
Dim Ctr As Integer
ExisteRequete = False
For Ctr = 0 To CurrentDb.QueryDefs.Count - 1
If chNomRequete = CurrentDb.QueryDefs(Ctr).Name Then
ExisteRequete = True
Exit Function ' Quitter la fonction quand la table est trouvée.
End If
Next Ctr
End Function
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
(Pierre CFI [mvp]) |> une façon d'utiliser la gestion d'erreur |> |> on error resume next |> 'ligne de suppression |> err.clear |> |> si l'objet n'existe pas, erreur mais on continue, |> et on remet l'erreur à 0
C'est bon à savoir, je ne savais pas pour err.clear
Par contre, cette méthode à le désavantage de ne retourner aucune erreur, quelle qu'elle soit.
Sur un site web, on indique une façon de vérifier si une requête (ou un autre objet) existe:
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ Public Function ExisteRequete(chNomRequete As String) As Boolean ' Déterminer si une requête existe. Dim Ctr As Integer ExisteRequete = False For Ctr = 0 To CurrentDb.QueryDefs.Count - 1 If chNomRequete = CurrentDb.QueryDefs(Ctr).Name Then ExisteRequete = True Exit Function ' Quitter la fonction quand la table est trouvée. End If Next Ctr End Function ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
Vercheres QC Canada
Raymond [mvp]
Bonsoir.
le on error resume next ne supprime pas l'erreur tout au contraire, il indique seulement à access de ne pas traiter l'erreur et de passer à la ligne suivante. en général ceci est fait pour qu'un traitement personnel remplace le traitement standard des erreurs. La fonction indiquée est la bonne méthode qu'il faudrait utiliser, mais Pierre est un peu fénéant comme nous tous et une ligne étant plus facile à écrire que 10, on qaarrive à ce résultat. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Michel Pellegrini" a écrit dans le message de news:
(Pierre CFI [mvp]) |> une façon d'utiliser la gestion d'erreur |> |> on error resume next |> 'ligne de suppression |> err.clear |> |> si l'objet n'existe pas, erreur mais on continue, |> et on remet l'erreur à 0
C'est bon à savoir, je ne savais pas pour err.clear
Par contre, cette méthode à le désavantage de ne retourner aucune erreur, quelle qu'elle soit.
Sur un site web, on indique une façon de vérifier si une requête (ou un autre objet) existe:
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ Public Function ExisteRequete(chNomRequete As String) As Boolean ' Déterminer si une requête existe. Dim Ctr As Integer ExisteRequete = False For Ctr = 0 To CurrentDb.QueryDefs.Count - 1 If chNomRequete = CurrentDb.QueryDefs(Ctr).Name Then ExisteRequete = True Exit Function ' Quitter la fonction quand la table est trouvée. End If Next Ctr End Function ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
Vercheres QC Canada
Bonsoir.
le on error resume next ne supprime pas l'erreur tout au contraire, il
indique seulement à access de ne pas traiter l'erreur et de passer à la
ligne suivante. en général ceci est fait pour qu'un traitement personnel
remplace le traitement standard des erreurs. La fonction indiquée est la
bonne méthode qu'il faudrait utiliser, mais Pierre est un peu fénéant comme
nous tous et une ligne étant plus facile à écrire que 10, on qaarrive à ce
résultat.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Michel Pellegrini" <Michel.Pellegrini@Enter-Net.com> a écrit dans le
message de news:On3gtnp5DHA.2168@TK2MSFTNGP12.phx.gbl...
(Pierre CFI [mvp])
|> une façon d'utiliser la gestion d'erreur
|>
|> on error resume next
|> 'ligne de suppression
|> err.clear
|>
|> si l'objet n'existe pas, erreur mais on continue,
|> et on remet l'erreur à 0
C'est bon à savoir, je ne savais pas pour err.clear
Par contre, cette méthode à le désavantage de ne retourner
aucune erreur, quelle qu'elle soit.
Sur un site web, on indique une façon de vérifier
si une requête (ou un autre objet) existe:
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
Public Function ExisteRequete(chNomRequete As String) As Boolean
' Déterminer si une requête existe.
Dim Ctr As Integer
ExisteRequete = False
For Ctr = 0 To CurrentDb.QueryDefs.Count - 1
If chNomRequete = CurrentDb.QueryDefs(Ctr).Name Then
ExisteRequete = True
Exit Function ' Quitter la fonction quand la table est trouvée.
End If
Next Ctr
End Function
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
le on error resume next ne supprime pas l'erreur tout au contraire, il indique seulement à access de ne pas traiter l'erreur et de passer à la ligne suivante. en général ceci est fait pour qu'un traitement personnel remplace le traitement standard des erreurs. La fonction indiquée est la bonne méthode qu'il faudrait utiliser, mais Pierre est un peu fénéant comme nous tous et une ligne étant plus facile à écrire que 10, on qaarrive à ce résultat. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Michel Pellegrini" a écrit dans le message de news:
(Pierre CFI [mvp]) |> une façon d'utiliser la gestion d'erreur |> |> on error resume next |> 'ligne de suppression |> err.clear |> |> si l'objet n'existe pas, erreur mais on continue, |> et on remet l'erreur à 0
C'est bon à savoir, je ne savais pas pour err.clear
Par contre, cette méthode à le désavantage de ne retourner aucune erreur, quelle qu'elle soit.
Sur un site web, on indique une façon de vérifier si une requête (ou un autre objet) existe:
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ Public Function ExisteRequete(chNomRequete As String) As Boolean ' Déterminer si une requête existe. Dim Ctr As Integer ExisteRequete = False For Ctr = 0 To CurrentDb.QueryDefs.Count - 1 If chNomRequete = CurrentDb.QueryDefs(Ctr).Name Then ExisteRequete = True Exit Function ' Quitter la fonction quand la table est trouvée. End If Next Ctr End Function ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
Vercheres QC Canada
Raymond [mvp]
Bonsoir.
le on error resume next ne supprime pas l'erreur tout au contraire, il indique seulement à access de ne pas traiter l'erreur et de passer à la ligne suivante. en général ceci est fait pour qu'un traitement personnel remplace le traitement standard des erreurs. La fonction indiquée est la bonne méthode qu'il faudrait utiliser, mais Pierre est un peu fainéant comme nous tous et une ligne étant plus facile à écrire que 10, on qaarrive à ce résultat.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Michel Pellegrini" a écrit dans le message de news:
(Pierre CFI [mvp]) |> une façon d'utiliser la gestion d'erreur |> |> on error resume next |> 'ligne de suppression |> err.clear |> |> si l'objet n'existe pas, erreur mais on continue, |> et on remet l'erreur à 0
C'est bon à savoir, je ne savais pas pour err.clear
Par contre, cette méthode à le désavantage de ne retourner aucune erreur, quelle qu'elle soit.
Sur un site web, on indique une façon de vérifier si une requête (ou un autre objet) existe:
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ Public Function ExisteRequete(chNomRequete As String) As Boolean ' Déterminer si une requête existe. Dim Ctr As Integer ExisteRequete = False For Ctr = 0 To CurrentDb.QueryDefs.Count - 1 If chNomRequete = CurrentDb.QueryDefs(Ctr).Name Then ExisteRequete = True Exit Function ' Quitter la fonction quand la table est trouvée. End If Next Ctr End Function ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
Vercheres QC Canada
Bonsoir.
le on error resume next ne supprime pas l'erreur tout au contraire, il
indique seulement à access de ne pas traiter l'erreur et de passer à la
ligne suivante. en général ceci est fait pour qu'un traitement personnel
remplace le traitement standard des erreurs. La fonction indiquée est la
bonne méthode qu'il faudrait utiliser, mais Pierre est un peu fainéant comme
nous tous et une ligne étant plus facile à écrire que 10, on qaarrive à ce
résultat.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Michel Pellegrini" <Michel.Pellegrini@Enter-Net.com> a écrit dans le
message de news:On3gtnp5DHA.2168@TK2MSFTNGP12.phx.gbl...
(Pierre CFI [mvp])
|> une façon d'utiliser la gestion d'erreur
|>
|> on error resume next
|> 'ligne de suppression
|> err.clear
|>
|> si l'objet n'existe pas, erreur mais on continue,
|> et on remet l'erreur à 0
C'est bon à savoir, je ne savais pas pour err.clear
Par contre, cette méthode à le désavantage de ne retourner
aucune erreur, quelle qu'elle soit.
Sur un site web, on indique une façon de vérifier
si une requête (ou un autre objet) existe:
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
Public Function ExisteRequete(chNomRequete As String) As Boolean
' Déterminer si une requête existe.
Dim Ctr As Integer
ExisteRequete = False
For Ctr = 0 To CurrentDb.QueryDefs.Count - 1
If chNomRequete = CurrentDb.QueryDefs(Ctr).Name Then
ExisteRequete = True
Exit Function ' Quitter la fonction quand la table est trouvée.
End If
Next Ctr
End Function
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
le on error resume next ne supprime pas l'erreur tout au contraire, il indique seulement à access de ne pas traiter l'erreur et de passer à la ligne suivante. en général ceci est fait pour qu'un traitement personnel remplace le traitement standard des erreurs. La fonction indiquée est la bonne méthode qu'il faudrait utiliser, mais Pierre est un peu fainéant comme nous tous et une ligne étant plus facile à écrire que 10, on qaarrive à ce résultat.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Michel Pellegrini" a écrit dans le message de news:
(Pierre CFI [mvp]) |> une façon d'utiliser la gestion d'erreur |> |> on error resume next |> 'ligne de suppression |> err.clear |> |> si l'objet n'existe pas, erreur mais on continue, |> et on remet l'erreur à 0
C'est bon à savoir, je ne savais pas pour err.clear
Par contre, cette méthode à le désavantage de ne retourner aucune erreur, quelle qu'elle soit.
Sur un site web, on indique une façon de vérifier si une requête (ou un autre objet) existe:
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ Public Function ExisteRequete(chNomRequete As String) As Boolean ' Déterminer si une requête existe. Dim Ctr As Integer ExisteRequete = False For Ctr = 0 To CurrentDb.QueryDefs.Count - 1 If chNomRequete = CurrentDb.QueryDefs(Ctr).Name Then ExisteRequete = True Exit Function ' Quitter la fonction quand la table est trouvée. End If Next Ctr End Function ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
