Erreur d'exécution 2001

bonjour
apparement tu ne gére pas l'erreur
'--- Si requête exite on modifie le SQL
on error resume next
Set qdf2 = CurrentDb.QueryDefs("rqt Temporaire")
if qdf2 is nothing then
'--- Sinon on crée la requête
Set qdf2 = CurrentDb.CreateQueryDef("rqt Temporaire", StrSql)
Else
qdf2.sql = StrSql
End If


--
Pierre
MVP Access
***************************************
Conseils MPFA: http://www.mpfa.info/
*********************************************************
"Jacques" <jg1@neuf.fr> a écrit dans le message de news:
1194813166.364566.240630@d55g2000hsg.googlegroups.com...
Bonsoir ,

Pour quelle raison mon code me crée l'erreur d'exécution 2001
Opération annulée alors que dans un autre cas il fonctionne
correctement


'--- Si requête exite on modifie le SQL
Set qdf2 = CurrentDb.QueryDefs("rqt Temporaire")
qdf2.sql = StrSql
Else
'--- Sinon on crée la requête
Set qdf2 = CurrentDb.CreateQueryDef("rqt Temporaire", StrSql)
End If

qdf2.Close
Set qdf2 = Nothing

'--- Compte les Enregistrements
Me.txtCompteurCd.ControlSource = "=" & DCount("*", "rqt
Temporaire", "[Selection]úlse and [départ]úlse")
Me.txtCompteurCs.ControlSource = "=" & DCount("*", "rqt
Temporaire", "[Selection]=true and [départ]úlse")

Merci pour votre aide.

Salutations

On 12 nov, 08:23, "Pierre CFI [mvp]" <XXX_pierresalaun@wanadoo> wrote:

bonjour
apparement tu ne gére pas l'erreur
'--- Si requête exite on modifie le SQL
on error resume next
Set qdf2 = CurrentDb.QueryDefs("rqt Temporaire")
if qdf2 is nothing then
'--- Sinon on crée la requête
Set qdf2 = CurrentDb.CreateQueryDef("rqt Temporaire", StrSql)
Else
qdf2.sql = StrSql
End If

--
Pierre
MVP Access
***************************************
Conseils MPFA:http://www.mpfa.info/
*********************************************************
"Jacques" <j...@neuf.fr> a écrit dans le message de news:
1194813166.364566.240...@d55g2000hsg.googlegroups.com...
Bonsoir ,

Pour quelle raison mon code me crée l'erreur d'exécution 2001
Opération annulée alors que dans un autre cas il fonctionne
correctement

'--- Si requête exite on modifie le SQL
Set qdf2 = CurrentDb.QueryDefs("rqt Temporaire")
qdf2.sql = StrSql
Else
'--- Sinon on crée la requête
Set qdf2 = CurrentDb.CreateQueryDef("rqt Temporaire", StrSql)
End If

qdf2.Close
Set qdf2 = Nothing

'--- Compte les Enregistrements
Me.txtCompteurCd.ControlSource = "=" & DCount("*", "rqt
Temporaire", "[Selection]=false and [départ]=false")
Me.txtCompteurCs.ControlSource = "=" & DCount("*", "rqt
Temporaire", "[Selection]=true and [départ]=false")

Merci pour votre aide.

Salutations

Bonsoir Pierre,

Merci pour ta réponse je n'ai plus d'erreur, mais le Me.txtCompteur
m'affiche le Dcount de la rqt Temporaire
que j'utilise quelque ligne plus haut c'est à dire:

If Me!Cadre48 = 5 Then
StrSql = "SELECT [.............
(Le code décrit plus haut qui fonctionne correctement)
End if

If Me!Cadre48 = 7 Then (Avec un Nouveaux StrSql)
'StrSql = "SELECT [...............
(Code décrit plus haut qui ne fonctionne pas)
End if

Salutations