Erreur d'exécution 2001

Le
Jacques
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Pierre CFI [mvp]
Le #6381411
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"
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
Jacques
Le #6380951
On 12 nov, 08:23, "Pierre CFI [mvp]" 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"
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


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

Publicité
Poster une réponse
Anonyme