Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Erreur execution '40036'

Erreur execution '40036'

7 réponses
Avatar
Michel blottiere
Bonjour!

J'ai crée un formulaire qui me permet d'éditer des etiquettes pour les
enveloppes.
Sur ce formulaure il y a deux boutons pour selectionner ou déselectionner
les personnes.
Lorsque je sélectionnne tout, j'ai un message d'erreur qui arrive " Erreu
execution '40036' sur l'objet DoCmd OpenReport ...'

Voila mon code

Dim MonItem
Dim i As Integer
Dim MonText As String

For i = 0 To Liste10.ItemsSelected.Count - 1
MonItem = Liste10.ItemData(Liste10.ItemsSelected(i))
'DoCmd.OpenReport "Etiquettes Contacts", acPreview, , "[RéfContact]=" &
MonItem
If MonText = "" Then
MonText = "[Matricule]=" & MonItem
Else
MonText = MonText & " OR [Matricule]=" & MonItem
End If
Next i
If MonText = "" Then
'If MonText = "" Or Len(MonText) > 2047 Then
MsgBox "Trop ou pas assez d'éléments sélectionnés"
Else
'DoCmd.OpenReport "Etat Etiquette", acPreview
DoCmd.OpenReport "Etat Etiquette", acPreview, , MonText
End If

Merci de votre aide.
A+
Michel
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Pierre CFI [mvp]
bonjour
Réfcontact doit étre du texte, donc entouré de ' '
'DoCmd.OpenReport "Etiquettes Contacts", acPreview, , "[RéfContact]='" &
MonItem & "'"


--
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 blottiere" a écrit dans le message de news: budp3p$6a0$
Bonjour!

J'ai crée un formulaire qui me permet d'éditer des etiquettes pour les
enveloppes.
Sur ce formulaure il y a deux boutons pour selectionner ou déselectionner
les personnes.
Lorsque je sélectionnne tout, j'ai un message d'erreur qui arrive " Erreu
execution '40036' sur l'objet DoCmd OpenReport ...'

Voila mon code

Dim MonItem
Dim i As Integer
Dim MonText As String

For i = 0 To Liste10.ItemsSelected.Count - 1
MonItem = Liste10.ItemData(Liste10.ItemsSelected(i))
'DoCmd.OpenReport "Etiquettes Contacts", acPreview, , "[RéfContact]=" &
MonItem
If MonText = "" Then
MonText = "[Matricule]=" & MonItem
Else
MonText = MonText & " OR [Matricule]=" & MonItem
End If
Next i
If MonText = "" Then
'If MonText = "" Or Len(MonText) > 2047 Then
MsgBox "Trop ou pas assez d'éléments sélectionnés"
Else
'DoCmd.OpenReport "Etat Etiquette", acPreview
DoCmd.OpenReport "Etat Etiquette", acPreview, , MonText
End If

Merci de votre aide.
A+
Michel




Avatar
Michel blottiere
Meric Pierre pour ta réponse.

Jai essayé ta ligne de code mais j'ai une nouvelle erreur "Erreur
d'execution 3464 - Data type mismatch in criterie expression"

J'ai seulement modifié RefContact par Matricule !

Peux tu encore m'aider - Merci !

Michel

"Pierre CFI [mvp]" a écrit dans le message de
news:
bonjour
Réfcontact doit étre du texte, donc entouré de ' '
'DoCmd.OpenReport "Etiquettes Contacts", acPreview, , "[RéfContact]='" &
MonItem & "'"


--
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 blottiere" a écrit dans le message de
news: budp3p$6a0$

Bonjour!

J'ai crée un formulaire qui me permet d'éditer des etiquettes pour les
enveloppes.
Sur ce formulaure il y a deux boutons pour selectionner ou
déselectionner


les personnes.
Lorsque je sélectionnne tout, j'ai un message d'erreur qui arrive "
Erreu


execution '40036' sur l'objet DoCmd OpenReport ...'

Voila mon code

Dim MonItem
Dim i As Integer
Dim MonText As String

For i = 0 To Liste10.ItemsSelected.Count - 1
MonItem = Liste10.ItemData(Liste10.ItemsSelected(i))
'DoCmd.OpenReport "Etiquettes Contacts", acPreview, , "[RéfContact]=" &
MonItem
If MonText = "" Then
MonText = "[Matricule]=" & MonItem
Else
MonText = MonText & " OR [Matricule]=" & MonItem
End If
Next i
If MonText = "" Then
'If MonText = "" Or Len(MonText) > 2047 Then
MsgBox "Trop ou pas assez d'éléments sélectionnés"
Else
'DoCmd.OpenReport "Etat Etiquette", acPreview
DoCmd.OpenReport "Etat Etiquette", acPreview, , MonText
End If

Merci de votre aide.
A+
Michel








Avatar
Pierre CFI [mvp]
...//
oui mais matricule c'est quoi ?
il faut entourer la variable de ' si elle est texte, sinon pas de ' si num

--
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 blottiere" a écrit dans le message de news: buediu$76k$
Meric Pierre pour ta réponse.

Jai essayé ta ligne de code mais j'ai une nouvelle erreur "Erreur
d'execution 3464 - Data type mismatch in criterie expression"

J'ai seulement modifié RefContact par Matricule !

Peux tu encore m'aider - Merci !

Michel

"Pierre CFI [mvp]" a écrit dans le message de
news:
bonjour
Réfcontact doit étre du texte, donc entouré de ' '
'DoCmd.OpenReport "Etiquettes Contacts", acPreview, , "[RéfContact]='" &
MonItem & "'"


--
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 blottiere" a écrit dans le message de
news: budp3p$6a0$

Bonjour!

J'ai crée un formulaire qui me permet d'éditer des etiquettes pour les
enveloppes.
Sur ce formulaure il y a deux boutons pour selectionner ou
déselectionner


les personnes.
Lorsque je sélectionnne tout, j'ai un message d'erreur qui arrive "
Erreu


execution '40036' sur l'objet DoCmd OpenReport ...'

Voila mon code

Dim MonItem
Dim i As Integer
Dim MonText As String

For i = 0 To Liste10.ItemsSelected.Count - 1
MonItem = Liste10.ItemData(Liste10.ItemsSelected(i))
'DoCmd.OpenReport "Etiquettes Contacts", acPreview, , "[RéfContact]=" &
MonItem
If MonText = "" Then
MonText = "[Matricule]=" & MonItem
Else
MonText = MonText & " OR [Matricule]=" & MonItem
End If
Next i
If MonText = "" Then
'If MonText = "" Or Len(MonText) > 2047 Then
MsgBox "Trop ou pas assez d'éléments sélectionnés"
Else
'DoCmd.OpenReport "Etat Etiquette", acPreview
DoCmd.OpenReport "Etat Etiquette", acPreview, , MonText
End If

Merci de votre aide.
A+
Michel












Avatar
Michel blottiere
en fait Le champ Matricule est numérique - réel double.

J'ai donc enlevé les apostrophes, résultat je n'ai que le dernier
sélectionné.
????
voila ce que l'ai mis:

DoCmd.OpenReport "Etat Etiquette", acPreview, , "[Matricule]=" & MonItem

Merci, encore une fois pour ton aide !
Michel

"Pierre CFI [mvp]" a écrit dans le message de
news:
...//
oui mais matricule c'est quoi ?
il faut entourer la variable de ' si elle est texte, sinon pas de ' si num

--
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 blottiere" a écrit dans le message de
news: buediu$76k$

Meric Pierre pour ta réponse.

Jai essayé ta ligne de code mais j'ai une nouvelle erreur "Erreur
d'execution 3464 - Data type mismatch in criterie expression"

J'ai seulement modifié RefContact par Matricule !

Peux tu encore m'aider - Merci !

Michel

"Pierre CFI [mvp]" a écrit dans le message de
news:
bonjour
Réfcontact doit étre du texte, donc entouré de ' '
'DoCmd.OpenReport "Etiquettes Contacts", acPreview, , "[RéfContact]='"
&



MonItem & "'"


--
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 blottiere" a écrit dans le message
de



news: budp3p$6a0$
Bonjour!

J'ai crée un formulaire qui me permet d'éditer des etiquettes pour
les




enveloppes.
Sur ce formulaure il y a deux boutons pour selectionner ou
déselectionner


les personnes.
Lorsque je sélectionnne tout, j'ai un message d'erreur qui arrive "
Erreu


execution '40036' sur l'objet DoCmd OpenReport ...'

Voila mon code

Dim MonItem
Dim i As Integer
Dim MonText As String

For i = 0 To Liste10.ItemsSelected.Count - 1
MonItem = Liste10.ItemData(Liste10.ItemsSelected(i))
'DoCmd.OpenReport "Etiquettes Contacts", acPreview, ,
"[RéfContact]=" &




MonItem
If MonText = "" Then
MonText = "[Matricule]=" & MonItem
Else
MonText = MonText & " OR [Matricule]=" & MonItem
End If
Next i
If MonText = "" Then
'If MonText = "" Or Len(MonText) > 2047 Then
MsgBox "Trop ou pas assez d'éléments sélectionnés"
Else
'DoCmd.OpenReport "Etat Etiquette", acPreview
DoCmd.OpenReport "Etat Etiquette", acPreview, , MonText
End If

Merci de votre aide.
A+
Michel
















Avatar
Pierre CFI [mvp]
si tu fais une sélection multiple c'est pas tout à fait çà
regarde dans la base solution.mdb (dans exemples)

--
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 blottiere" a écrit dans le message de news: buegc0$ajh$
en fait Le champ Matricule est numérique - réel double.

J'ai donc enlevé les apostrophes, résultat je n'ai que le dernier
sélectionné.
????
voila ce que l'ai mis:

DoCmd.OpenReport "Etat Etiquette", acPreview, , "[Matricule]=" & MonItem

Merci, encore une fois pour ton aide !
Michel

"Pierre CFI [mvp]" a écrit dans le message de
news:
...//
oui mais matricule c'est quoi ?
il faut entourer la variable de ' si elle est texte, sinon pas de ' si num

--
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 blottiere" a écrit dans le message de
news: buediu$76k$

Meric Pierre pour ta réponse.

Jai essayé ta ligne de code mais j'ai une nouvelle erreur "Erreur
d'execution 3464 - Data type mismatch in criterie expression"

J'ai seulement modifié RefContact par Matricule !

Peux tu encore m'aider - Merci !

Michel

"Pierre CFI [mvp]" a écrit dans le message de
news:
bonjour
Réfcontact doit étre du texte, donc entouré de ' '
'DoCmd.OpenReport "Etiquettes Contacts", acPreview, , "[RéfContact]='"
&



MonItem & "'"


--
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 blottiere" a écrit dans le message
de



news: budp3p$6a0$
Bonjour!

J'ai crée un formulaire qui me permet d'éditer des etiquettes pour
les




enveloppes.
Sur ce formulaure il y a deux boutons pour selectionner ou
déselectionner


les personnes.
Lorsque je sélectionnne tout, j'ai un message d'erreur qui arrive "
Erreu


execution '40036' sur l'objet DoCmd OpenReport ...'

Voila mon code

Dim MonItem
Dim i As Integer
Dim MonText As String

For i = 0 To Liste10.ItemsSelected.Count - 1
MonItem = Liste10.ItemData(Liste10.ItemsSelected(i))
'DoCmd.OpenReport "Etiquettes Contacts", acPreview, ,
"[RéfContact]=" &




MonItem
If MonText = "" Then
MonText = "[Matricule]=" & MonItem
Else
MonText = MonText & " OR [Matricule]=" & MonItem
End If
Next i
If MonText = "" Then
'If MonText = "" Or Len(MonText) > 2047 Then
MsgBox "Trop ou pas assez d'éléments sélectionnés"
Else
'DoCmd.OpenReport "Etat Etiquette", acPreview
DoCmd.OpenReport "Etat Etiquette", acPreview, , MonText
End If

Merci de votre aide.
A+
Michel




















Avatar
Pierre CFI [mvp]
va sur mon site, j'ai une base avec plein d'exemples sur les listes (en 97)

--
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
"Pierre CFI [mvp]" a écrit dans le message de news:
si tu fais une sélection multiple c'est pas tout à fait çà
regarde dans la base solution.mdb (dans exemples)

--
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 blottiere" a écrit dans le message de news: buegc0$ajh$
en fait Le champ Matricule est numérique - réel double.

J'ai donc enlevé les apostrophes, résultat je n'ai que le dernier
sélectionné.
????
voila ce que l'ai mis:

DoCmd.OpenReport "Etat Etiquette", acPreview, , "[Matricule]=" & MonItem

Merci, encore une fois pour ton aide !
Michel

"Pierre CFI [mvp]" a écrit dans le message de
news:
...//
oui mais matricule c'est quoi ?
il faut entourer la variable de ' si elle est texte, sinon pas de ' si num

--
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 blottiere" a écrit dans le message de
news: buediu$76k$

Meric Pierre pour ta réponse.

Jai essayé ta ligne de code mais j'ai une nouvelle erreur "Erreur
d'execution 3464 - Data type mismatch in criterie expression"

J'ai seulement modifié RefContact par Matricule !

Peux tu encore m'aider - Merci !

Michel

"Pierre CFI [mvp]" a écrit dans le message de
news:
bonjour
Réfcontact doit étre du texte, donc entouré de ' '
'DoCmd.OpenReport "Etiquettes Contacts", acPreview, , "[RéfContact]='"
&



MonItem & "'"


--
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 blottiere" a écrit dans le message
de



news: budp3p$6a0$
Bonjour!

J'ai crée un formulaire qui me permet d'éditer des etiquettes pour
les




enveloppes.
Sur ce formulaure il y a deux boutons pour selectionner ou
déselectionner


les personnes.
Lorsque je sélectionnne tout, j'ai un message d'erreur qui arrive "
Erreu


execution '40036' sur l'objet DoCmd OpenReport ...'

Voila mon code

Dim MonItem
Dim i As Integer
Dim MonText As String

For i = 0 To Liste10.ItemsSelected.Count - 1
MonItem = Liste10.ItemData(Liste10.ItemsSelected(i))
'DoCmd.OpenReport "Etiquettes Contacts", acPreview, ,
"[RéfContact]=" &




MonItem
If MonText = "" Then
MonText = "[Matricule]=" & MonItem
Else
MonText = MonText & " OR [Matricule]=" & MonItem
End If
Next i
If MonText = "" Then
'If MonText = "" Or Len(MonText) > 2047 Then
MsgBox "Trop ou pas assez d'éléments sélectionnés"
Else
'DoCmd.OpenReport "Etat Etiquette", acPreview
DoCmd.OpenReport "Etat Etiquette", acPreview, , MonText
End If

Merci de votre aide.
A+
Michel
























Avatar
Michel blottiere
j'ai regardé la base Solution, je t'avoue que je n'ai rien compris.
Peux tu être plus précis
Merci
Michel


"Pierre CFI [mvp]" a écrit dans le message de
news:
si tu fais une sélection multiple c'est pas tout à fait çà
regarde dans la base solution.mdb (dans exemples)

--
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 blottiere" a écrit dans le message de
news: buegc0$ajh$

en fait Le champ Matricule est numérique - réel double.

J'ai donc enlevé les apostrophes, résultat je n'ai que le dernier
sélectionné.
????
voila ce que l'ai mis:

DoCmd.OpenReport "Etat Etiquette", acPreview, , "[Matricule]=" &
MonItem



Merci, encore une fois pour ton aide !
Michel

"Pierre CFI [mvp]" a écrit dans le message de
news:
...//
oui mais matricule c'est quoi ?
il faut entourer la variable de ' si elle est texte, sinon pas de ' si
num




--
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 blottiere" a écrit dans le message
de



news: buediu$76k$
Meric Pierre pour ta réponse.

Jai essayé ta ligne de code mais j'ai une nouvelle erreur "Erreur
d'execution 3464 - Data type mismatch in criterie expression"

J'ai seulement modifié RefContact par Matricule !

Peux tu encore m'aider - Merci !

Michel

"Pierre CFI [mvp]" a écrit dans le
message de




news:
bonjour
Réfcontact doit étre du texte, donc entouré de ' '
'DoCmd.OpenReport "Etiquettes Contacts", acPreview, ,
"[RéfContact]='"





&
MonItem & "'"


--
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 blottiere" a écrit dans le
message





de
news: budp3p$6a0$
Bonjour!

J'ai crée un formulaire qui me permet d'éditer des etiquettes
pour






les
enveloppes.
Sur ce formulaure il y a deux boutons pour selectionner ou
déselectionner


les personnes.
Lorsque je sélectionnne tout, j'ai un message d'erreur qui
arrive "






Erreu
execution '40036' sur l'objet DoCmd OpenReport ...'

Voila mon code

Dim MonItem
Dim i As Integer
Dim MonText As String

For i = 0 To Liste10.ItemsSelected.Count - 1
MonItem = Liste10.ItemData(Liste10.ItemsSelected(i))
'DoCmd.OpenReport "Etiquettes Contacts", acPreview, ,
"[RéfContact]=" &




MonItem
If MonText = "" Then
MonText = "[Matricule]=" & MonItem
Else
MonText = MonText & " OR [Matricule]=" & MonItem
End If
Next i
If MonText = "" Then
'If MonText = "" Or Len(MonText) > 2047 Then
MsgBox "Trop ou pas assez d'éléments sélectionnés"
Else
'DoCmd.OpenReport "Etat Etiquette", acPreview
DoCmd.OpenReport "Etat Etiquette", acPreview, , MonText
End If

Merci de votre aide.
A+
Michel