OVH Cloud OVH Cloud

Access 2003 et etat

8 réponses
Avatar
JMH
Bonjour

J'ai un client qui a sans autre installé Office 2003 avec Access.

J'ai un programme qui tourne sous Access 2000 sans problème.

Sous 2003.
Quand je vais dans un état, j'ai événement qui fait
If me.rabais = 0 .........

Sur cette ligne j'ai une erreur d'éxécution -2147352567 Expression sans
paramètres?

Merci de bien vouloir m'éclairer.

D'avance meric pour vos réponses.

Jean-Michel

8 réponses

Avatar
Raymond [mvp]
Bonjour.

Faudrait afficher la fonction complète.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"JMH" a écrit dans le message de
news:
Bonjour

J'ai un client qui a sans autre installé Office 2003 avec Access.

J'ai un programme qui tourne sous Access 2000 sans problème.

Sous 2003.
Quand je vais dans un état, j'ai événement qui fait
If me.rabais = 0 .........

Sur cette ligne j'ai une erreur d'éxécution -2147352567 Expression sans
paramètres?

Merci de bien vouloir m'éclairer.

D'avance meric pour vos réponses.

Jean-Michel




Avatar
yapinfo
Fonction complète dans ces lignes.
--------------
Me.Quantite.Visible = IIf(Nz(Me.Quantite, 0) = 0, False, True)
-----------------------
If Me.Rabais = 0 Then
Me.txtRabais.Visible = False
Me.Rabais.Visible = False
Me.MontantRabais.Visible = False
Else
Me.txtRabais.Visible = True
Me.Rabais.Visible = True
Me.MontantRabais.Visible = True
End If
----------------------------------

JMH

"Raymond [mvp]" a écrit dans le message de
news:
Bonjour.

Faudrait afficher la fonction complète.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"JMH" a écrit dans le message de
news:
Bonjour

J'ai un client qui a sans autre installé Office 2003 avec Access.

J'ai un programme qui tourne sous Access 2000 sans problème.

Sous 2003.
Quand je vais dans un état, j'ai événement qui fait
If me.rabais = 0 .........

Sur cette ligne j'ai une erreur d'éxécution -2147352567 Expression sans
paramètres?

Merci de bien vouloir m'éclairer.

D'avance meric pour vos réponses.

Jean-Michel








Avatar
yapinfo
Complément d'information.
Dans l'évenement suivant:

Private Sub PiedGroupe1_Format(Cancel As Integer, FormatCount As Integer)
If Me.Rabais = 0 Then
Me.txtRabais.Visible = False
Me.Rabais.Visible = False
Me.MontantRabais.Visible = False
Else
Me.txtRabais.Visible = True
Me.Rabais.Visible = True
Me.MontantRabais.Visible = True
End If
....



--
"Raymond [mvp]" a écrit dans le message de
news:
Bonjour.

Faudrait afficher la fonction complète.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"JMH" a écrit dans le message de
news:
Bonjour

J'ai un client qui a sans autre installé Office 2003 avec Access.

J'ai un programme qui tourne sous Access 2000 sans problème.

Sous 2003.
Quand je vais dans un état, j'ai événement qui fait
If me.rabais = 0 .........

Sur cette ligne j'ai une erreur d'éxécution -2147352567 Expression sans
paramètres?

Merci de bien vouloir m'éclairer.

D'avance meric pour vos réponses.

Jean-Michel








Avatar
Raymond [mvp]
on ne peut pas faire plus simple comme if. il est vrai qu'on a pas tout.

tu peux m'envoyer ton état et le minimum de ce qui va autour pour le passer
en 2000,2002 et 2003 ? enlève le XYZ. (en zip obligatoire)


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"yapinfo" a écrit dans le message de
news:3fd74a03$
Complément d'information.
Dans l'évenement suivant:

Private Sub PiedGroupe1_Format(Cancel As Integer, FormatCount As Integer)
If Me.Rabais = 0 Then
Me.txtRabais.Visible = False
Me.Rabais.Visible = False
Me.MontantRabais.Visible = False
Else
Me.txtRabais.Visible = True
Me.Rabais.Visible = True
Me.MontantRabais.Visible = True
End If
....


Avatar
JMH
OK, je récupère le programme,je l'aménage et je te l'envoie.
ça sera s'urement en fin de journée.
Merci d'avance.


"Raymond [mvp]" a écrit dans le message de
news:
on ne peut pas faire plus simple comme if. il est vrai qu'on a pas tout.

tu peux m'envoyer ton état et le minimum de ce qui va autour pour le
passer

en 2000,2002 et 2003 ? enlève le XYZ. (en zip obligatoire)


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"yapinfo" a écrit dans le message de
news:3fd74a03$
Complément d'information.
Dans l'évenement suivant:

Private Sub PiedGroupe1_Format(Cancel As Integer, FormatCount As
Integer)


If Me.Rabais = 0 Then
Me.txtRabais.Visible = False
Me.Rabais.Visible = False
Me.MontantRabais.Visible = False
Else
Me.txtRabais.Visible = True
Me.Rabais.Visible = True
Me.MontantRabais.Visible = True
End If
....






Avatar
JMH
Salut.
J'ai envoyé le tout, comme demandé, dans ta boîte.
Salutations.
A+


"Raymond [mvp]" a écrit dans le message de
news:
on ne peut pas faire plus simple comme if. il est vrai qu'on a pas tout.

tu peux m'envoyer ton état et le minimum de ce qui va autour pour le
passer

en 2000,2002 et 2003 ? enlève le XYZ. (en zip obligatoire)


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"yapinfo" a écrit dans le message de
news:3fd74a03$
Complément d'information.
Dans l'évenement suivant:

Private Sub PiedGroupe1_Format(Cancel As Integer, FormatCount As
Integer)


If Me.Rabais = 0 Then
Me.txtRabais.Visible = False
Me.Rabais.Visible = False
Me.MontantRabais.Visible = False
Else
Me.txtRabais.Visible = True
Me.Rabais.Visible = True
Me.MontantRabais.Visible = True
End If
....






Avatar
Raymond [mvp]
Réponse par mail:

Sur les deux factures , je ne trouve aucune anomalie et tout marche bien, si
rabais=0 tout est invisible, si un rabais tout est visible; j'ai testé sous
2000, 2002 et 2003.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum



"JMH" a écrit dans le message de
news:
Salut.
J'ai envoyé le tout, comme demandé, dans ta boîte.
Salutations.


Avatar
JMH
Bonjour

Pour faire suite à mon post, j'ai pas mal bricolé et j'ai trouvé le
problème.

J'ai mis la sécurité des macros sur Faible, et là tout est OK.

Voilà



"yapinfo" a écrit dans le message de
news:3fd74a03$
Complément d'information.
Dans l'évenement suivant:

Private Sub PiedGroupe1_Format(Cancel As Integer, FormatCount As
Integer)

If Me.Rabais = 0 Then
Me.txtRabais.Visible = False
Me.Rabais.Visible = False
Me.MontantRabais.Visible = False
Else
Me.txtRabais.Visible = True
Me.Rabais.Visible = True
Me.MontantRabais.Visible = True
End If
....



--
"Raymond [mvp]" a écrit dans le message de
news:
Bonjour.

Faudrait afficher la fonction complète.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA


"JMH" a écrit dans le message de
news:
Bonjour

J'ai un client qui a sans autre installé Office 2003 avec Access.

J'ai un programme qui tourne sous Access 2000 sans problème.

Sous 2003.
Quand je vais dans un état, j'ai événement qui fait
If me.rabais = 0 .........

Sur cette ligne j'ai une erreur d'éxécution -2147352567 Expression
sans



paramètres?

Merci de bien vouloir m'éclairer.

D'avance meric pour vos réponses.

Jean-Michel