Private Sub BtnCouv_Click()
Dim Réponse As Variant
If IsNull(Couv) Then
MsgBox "Aucun chemin de disque a été enregistré.", 48
Else
Réponse = OpenFileExtend([Couv], Maximized, OpExecute)
If Not Réponse = True Then
MsgBox Réponse
End If
End If
End Sub
Et pourtant il fonctionne très bien sur un autre formulaire de la même base
(Access 2003)
Sur :
Réponse = OpenFileExtend([Couv], Maximized, OpExecute)
à [Couv]
Erreur de compilation :
Type d'argument ByRef incompatible
J'ai beau regarder l'Aide, je ne comprends pas :o(((
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
Raymond [mvp]
Bonsoir.
essaie de cette façon: Réponse = OpenFileExtend(ByVal "Couv", Maximized, OpExecute) le ByRef ne doit pas être compatible avec ta donnée.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"PatCatNat's" a écrit dans le message de news: d19tjt$akk$
Bonjour,
J'ai un p'tit prblème sur un code :
Private Sub BtnCouv_Click() Dim Réponse As Variant If IsNull(Couv) Then MsgBox "Aucun chemin de disque a été enregistré.", 48 Else Réponse = OpenFileExtend([Couv], Maximized, OpExecute) If Not Réponse = True Then MsgBox Réponse End If End If End Sub
Et pourtant il fonctionne très bien sur un autre formulaire de la même base (Access 2003)
Sur : Réponse = OpenFileExtend([Couv], Maximized, OpExecute) à [Couv]
Erreur de compilation : Type d'argument ByRef incompatible
J'ai beau regarder l'Aide, je ne comprends pas :o(((
Merci de votre aide
Patrice
Bonsoir.
essaie de cette façon:
Réponse = OpenFileExtend(ByVal "Couv", Maximized, OpExecute)
le ByRef ne doit pas être compatible avec ta donnée.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"PatCatNat's" <BZHpatousky@tiscali.fr> a écrit dans le message de news:
d19tjt$akk$1@news.tiscali.fr...
Bonjour,
J'ai un p'tit prblème sur un code :
Private Sub BtnCouv_Click()
Dim Réponse As Variant
If IsNull(Couv) Then
MsgBox "Aucun chemin de disque a été enregistré.", 48
Else
Réponse = OpenFileExtend([Couv], Maximized, OpExecute)
If Not Réponse = True Then
MsgBox Réponse
End If
End If
End Sub
Et pourtant il fonctionne très bien sur un autre formulaire de la même
base
(Access 2003)
Sur :
Réponse = OpenFileExtend([Couv], Maximized, OpExecute)
à [Couv]
Erreur de compilation :
Type d'argument ByRef incompatible
J'ai beau regarder l'Aide, je ne comprends pas :o(((
essaie de cette façon: Réponse = OpenFileExtend(ByVal "Couv", Maximized, OpExecute) le ByRef ne doit pas être compatible avec ta donnée.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"PatCatNat's" a écrit dans le message de news: d19tjt$akk$
Bonjour,
J'ai un p'tit prblème sur un code :
Private Sub BtnCouv_Click() Dim Réponse As Variant If IsNull(Couv) Then MsgBox "Aucun chemin de disque a été enregistré.", 48 Else Réponse = OpenFileExtend([Couv], Maximized, OpExecute) If Not Réponse = True Then MsgBox Réponse End If End If End Sub
Et pourtant il fonctionne très bien sur un autre formulaire de la même base (Access 2003)
Sur : Réponse = OpenFileExtend([Couv], Maximized, OpExecute) à [Couv]
Erreur de compilation : Type d'argument ByRef incompatible
J'ai beau regarder l'Aide, je ne comprends pas :o(((
Merci de votre aide
Patrice
PatCatNat's
Merci raymond,
Cette fois, il m'affiche : Incompatibilité de type.
(C'est vraiment bizarre que celà fonctionne sur un form et pas l'autre...les champs ont les mêmes propriétés, tout a été fait en copier coller !...)
Patrice
"Raymond [mvp]" a écrit dans le message de news:
Bonsoir.
essaie de cette façon: Réponse = OpenFileExtend(ByVal "Couv", Maximized, OpExecute) le ByRef ne doit pas être compatible avec ta donnée.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"PatCatNat's" a écrit dans le message de news: d19tjt$akk$
Bonjour,
J'ai un p'tit prblème sur un code :
Private Sub BtnCouv_Click() Dim Réponse As Variant If IsNull(Couv) Then MsgBox "Aucun chemin de disque a été enregistré.", 48 Else Réponse = OpenFileExtend([Couv], Maximized, OpExecute) If Not Réponse = True Then MsgBox Réponse End If End If End Sub
Et pourtant il fonctionne très bien sur un autre formulaire de la même base (Access 2003)
Sur : Réponse = OpenFileExtend([Couv], Maximized, OpExecute) à [Couv]
Erreur de compilation : Type d'argument ByRef incompatible
J'ai beau regarder l'Aide, je ne comprends pas :o(((
Merci de votre aide
Patrice
Merci raymond,
Cette fois, il m'affiche : Incompatibilité de type.
(C'est vraiment bizarre que celà fonctionne sur un form et pas l'autre...les
champs ont les mêmes propriétés, tout a été fait en copier coller !...)
Patrice
"Raymond [mvp]" <XYZ.officesystem.access@free.fr> a écrit dans le message de
news:OvFOGolKFHA.568@TK2MSFTNGP09.phx.gbl...
Bonsoir.
essaie de cette façon:
Réponse = OpenFileExtend(ByVal "Couv", Maximized, OpExecute)
le ByRef ne doit pas être compatible avec ta donnée.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"PatCatNat's" <BZHpatousky@tiscali.fr> a écrit dans le message de news:
d19tjt$akk$1@news.tiscali.fr...
Bonjour,
J'ai un p'tit prblème sur un code :
Private Sub BtnCouv_Click()
Dim Réponse As Variant
If IsNull(Couv) Then
MsgBox "Aucun chemin de disque a été enregistré.", 48
Else
Réponse = OpenFileExtend([Couv], Maximized, OpExecute)
If Not Réponse = True Then
MsgBox Réponse
End If
End If
End Sub
Et pourtant il fonctionne très bien sur un autre formulaire de la même
base
(Access 2003)
Sur :
Réponse = OpenFileExtend([Couv], Maximized, OpExecute)
à [Couv]
Erreur de compilation :
Type d'argument ByRef incompatible
J'ai beau regarder l'Aide, je ne comprends pas :o(((
Cette fois, il m'affiche : Incompatibilité de type.
(C'est vraiment bizarre que celà fonctionne sur un form et pas l'autre...les champs ont les mêmes propriétés, tout a été fait en copier coller !...)
Patrice
"Raymond [mvp]" a écrit dans le message de news:
Bonsoir.
essaie de cette façon: Réponse = OpenFileExtend(ByVal "Couv", Maximized, OpExecute) le ByRef ne doit pas être compatible avec ta donnée.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"PatCatNat's" a écrit dans le message de news: d19tjt$akk$
Bonjour,
J'ai un p'tit prblème sur un code :
Private Sub BtnCouv_Click() Dim Réponse As Variant If IsNull(Couv) Then MsgBox "Aucun chemin de disque a été enregistré.", 48 Else Réponse = OpenFileExtend([Couv], Maximized, OpExecute) If Not Réponse = True Then MsgBox Réponse End If End If End Sub
Et pourtant il fonctionne très bien sur un autre formulaire de la même base (Access 2003)
Sur : Réponse = OpenFileExtend([Couv], Maximized, OpExecute) à [Couv]
Erreur de compilation : Type d'argument ByRef incompatible
J'ai beau regarder l'Aide, je ne comprends pas :o(((
Merci de votre aide
Patrice
Raymond [mvp]
Couv est bien un nom de document ? indique bien l'extension. normalement en ByRef ça fonctionne.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"PatCatNat's" a écrit dans le message de news: d1a0i4$d5h$
Merci raymond,
Cette fois, il m'affiche : Incompatibilité de type.
(C'est vraiment bizarre que celà fonctionne sur un form et pas l'autre...les champs ont les mêmes propriétés, tout a été fait en copier coller !...)
Patrice
Couv est bien un nom de document ? indique bien l'extension. normalement en
ByRef ça fonctionne.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"PatCatNat's" <BZHpatousky@tiscali.fr> a écrit dans le message de news:
d1a0i4$d5h$1@news.tiscali.fr...
Merci raymond,
Cette fois, il m'affiche : Incompatibilité de type.
(C'est vraiment bizarre que celà fonctionne sur un form et pas
l'autre...les
champs ont les mêmes propriétés, tout a été fait en copier coller !...)
Couv est bien un nom de document ? indique bien l'extension. normalement en ByRef ça fonctionne.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"PatCatNat's" a écrit dans le message de news: d1a0i4$d5h$
Merci raymond,
Cette fois, il m'affiche : Incompatibilité de type.
(C'est vraiment bizarre que celà fonctionne sur un form et pas l'autre...les champs ont les mêmes propriétés, tout a été fait en copier coller !...)
Patrice
PatCatNat's
Oui
[Couv] = D:DiskFilmsAlien4_Couv.jpg par exemple
Je vais chercher, mais c un problème qui m'est complètement "étranger"... :o)))
Patrice
"Raymond [mvp]" a écrit dans le message de news:%
Couv est bien un nom de document ? indique bien l'extension. normalement en
ByRef ça fonctionne.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"PatCatNat's" a écrit dans le message de news: d1a0i4$d5h$
Merci raymond,
Cette fois, il m'affiche : Incompatibilité de type.
(C'est vraiment bizarre que celà fonctionne sur un form et pas l'autre...les champs ont les mêmes propriétés, tout a été fait en copier coller !...)
Patrice
Oui
[Couv] = D:DiskFilmsAlien4_Couv.jpg
par exemple
Je vais chercher, mais c un problème qui m'est complètement "étranger"...
:o)))
Patrice
"Raymond [mvp]" <XYZ.officesystem.access@free.fr> a écrit dans le message de
news:%23nfa37lKFHA.3356@TK2MSFTNGP12.phx.gbl...
Couv est bien un nom de document ? indique bien l'extension. normalement
en
ByRef ça fonctionne.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"PatCatNat's" <BZHpatousky@tiscali.fr> a écrit dans le message de news:
d1a0i4$d5h$1@news.tiscali.fr...
Merci raymond,
Cette fois, il m'affiche : Incompatibilité de type.
(C'est vraiment bizarre que celà fonctionne sur un form et pas
l'autre...les
champs ont les mêmes propriétés, tout a été fait en copier coller !...)
Je vais chercher, mais c un problème qui m'est complètement "étranger"... :o)))
Patrice
"Raymond [mvp]" a écrit dans le message de news:%
Couv est bien un nom de document ? indique bien l'extension. normalement en
ByRef ça fonctionne.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"PatCatNat's" a écrit dans le message de news: d1a0i4$d5h$
Merci raymond,
Cette fois, il m'affiche : Incompatibilité de type.
(C'est vraiment bizarre que celà fonctionne sur un form et pas l'autre...les champs ont les mêmes propriétés, tout a été fait en copier coller !...)
Patrice
PatCatNat's
C fort de café !!!! Dim Réponse As Variant par Dim Réponse As Long
Cette fois il m'ouvre une boîte de dialogue avec juste le bouton Ok et en arrière plan le logiciel et mon image....
Je remet : Dim Réponse As Variant
Et , comme avec As Long, maintenant, il m'ouvre une boîte de dialogue avec juste le bouton Ok et en arrière plan le logiciel et mon image....
???????????????????????????????????????????????
Patrice
Je change la déclaration : "Raymond [mvp]" a écrit dans le message de news:%
Couv est bien un nom de document ? indique bien l'extension. normalement en
ByRef ça fonctionne.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"PatCatNat's" a écrit dans le message de news: d1a0i4$d5h$
Merci raymond,
Cette fois, il m'affiche : Incompatibilité de type.
(C'est vraiment bizarre que celà fonctionne sur un form et pas l'autre...les champs ont les mêmes propriétés, tout a été fait en copier coller !...)
Patrice
C fort de café !!!!
Dim Réponse As Variant
par
Dim Réponse As Long
Cette fois il m'ouvre une boîte de dialogue avec juste le bouton Ok et en
arrière plan le logiciel et mon image....
Je remet :
Dim Réponse As Variant
Et , comme avec As Long, maintenant, il m'ouvre une boîte de dialogue avec
juste le bouton Ok et en arrière plan le logiciel et mon image....
???????????????????????????????????????????????
Patrice
Je change la déclaration :
"Raymond [mvp]" <XYZ.officesystem.access@free.fr> a écrit dans le message de
news:%23nfa37lKFHA.3356@TK2MSFTNGP12.phx.gbl...
Couv est bien un nom de document ? indique bien l'extension. normalement
en
ByRef ça fonctionne.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"PatCatNat's" <BZHpatousky@tiscali.fr> a écrit dans le message de news:
d1a0i4$d5h$1@news.tiscali.fr...
Merci raymond,
Cette fois, il m'affiche : Incompatibilité de type.
(C'est vraiment bizarre que celà fonctionne sur un form et pas
l'autre...les
champs ont les mêmes propriétés, tout a été fait en copier coller !...)
C fort de café !!!! Dim Réponse As Variant par Dim Réponse As Long
Cette fois il m'ouvre une boîte de dialogue avec juste le bouton Ok et en arrière plan le logiciel et mon image....
Je remet : Dim Réponse As Variant
Et , comme avec As Long, maintenant, il m'ouvre une boîte de dialogue avec juste le bouton Ok et en arrière plan le logiciel et mon image....
???????????????????????????????????????????????
Patrice
Je change la déclaration : "Raymond [mvp]" a écrit dans le message de news:%
Couv est bien un nom de document ? indique bien l'extension. normalement en
ByRef ça fonctionne.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"PatCatNat's" a écrit dans le message de news: d1a0i4$d5h$
Merci raymond,
Cette fois, il m'affiche : Incompatibilité de type.
(C'est vraiment bizarre que celà fonctionne sur un form et pas l'autre...les champs ont les mêmes propriétés, tout a été fait en copier coller !...)
