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]
Bonjour.
Essaie ceci:
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
If Me.Modification.Value = 1 Then Me.zonejac.Visible = True Else Me.zonejac.Visible = False End If
ça ne prend pas plus de place et c'est plus clair.
si modification n'a que les valeurs 1 et 0 on peut faire beaucoup mieux que ça. quelles sont ces valeurs de Modification ? -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ Pour débuter sur le forum: http://www.mpfa.info/ Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la recherche dans votre entreprise http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
"informatique" a écrit dans le message de news: u% | bonjour à tous, | | erreur de compilation : End if sans bloc If | pour le code suivant: | | Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer) | | If Me.Modification.Value = 1 Then Me.zonejac.Visible = True | Else: Me.zonejac.Visible = False | End If | | End Sub | | | | Cela doit être énorme mais je ne vois pas !! | | Merci | |
Bonjour.
Essaie ceci:
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
If Me.Modification.Value = 1 Then
Me.zonejac.Visible = True
Else
Me.zonejac.Visible = False
End If
ça ne prend pas plus de place et c'est plus clair.
si modification n'a que les valeurs 1 et 0 on peut faire beaucoup mieux que
ça.
quelles sont ces valeurs de Modification ?
--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la recherche
dans votre entreprise
http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
"informatique" <stephane.lambotte@tiscali.be> a écrit dans le message de
news: u%23bRCmcgHHA.1008@TK2MSFTNGP05.phx.gbl...
| bonjour à tous,
|
| erreur de compilation : End if sans bloc If
| pour le code suivant:
|
| Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
|
| If Me.Modification.Value = 1 Then Me.zonejac.Visible = True
| Else: Me.zonejac.Visible = False
| End If
|
| End Sub
|
|
|
| Cela doit être énorme mais je ne vois pas !!
|
| Merci
|
|
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
If Me.Modification.Value = 1 Then Me.zonejac.Visible = True Else Me.zonejac.Visible = False End If
ça ne prend pas plus de place et c'est plus clair.
si modification n'a que les valeurs 1 et 0 on peut faire beaucoup mieux que ça. quelles sont ces valeurs de Modification ? -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ Pour débuter sur le forum: http://www.mpfa.info/ Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la recherche dans votre entreprise http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
"informatique" a écrit dans le message de news: u% | bonjour à tous, | | erreur de compilation : End if sans bloc If | pour le code suivant: | | Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer) | | If Me.Modification.Value = 1 Then Me.zonejac.Visible = True | Else: Me.zonejac.Visible = False | End If | | End Sub | | | | Cela doit être énorme mais je ne vois pas !! | | Merci | |
Gilles MOUGNOZ
Bonjour, ... et en une seule ligne sans "If": Me.zonejac.Visible = (Me.Modification.Value = 1) Un peu moins compréhensible, il est vrai (désolé, Raymond) mais cela reste raisonnable. Pour bien comprendre le principe, la structure (simplifiée) de l'instruction If est la suivante:
If Condition Then Action1 Action2 [Else Action3 Action4] End If
Il y a la possibilité de simplifier en mettant tout sur une seule ligne et en séparant les actions par des points-virgules (:) et en "oubliant" le "End If" final. If Condition Then Action1:Action2 Else Action3:Action4 C'est ce qui a probablement induit Stéphane "informatique" en erreur... L'aide en ligne sur le sujet est relativement bien faite, pour la consulter, il suffit de presser F1 ! ;-) -- Bonne continuation ------------------------------------------------------------------------------------------- http://www.mpfa.info : c'est bonheur pour ton ordinateur ! -------------------------------------------------------------------------------------------
Bonjour.
Essaie ceci:
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
If Me.Modification.Value = 1 Then Me.zonejac.Visible = True Else Me.zonejac.Visible = False End If
ça ne prend pas plus de place et c'est plus clair.
si modification n'a que les valeurs 1 et 0 on peut faire beaucoup mieux que ça. quelles sont ces valeurs de Modification ? -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ Pour débuter sur le forum: http://www.mpfa.info/ Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la recherche dans votre entreprise http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
| bonjour à tous, | | erreur de compilation : End if sans bloc If | pour le code suivant: | | Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer) | | If Me.Modification.Value = 1 Then Me.zonejac.Visible = True | Else: Me.zonejac.Visible = False | End If | | End Sub | | Cela doit être énorme mais je ne vois pas !! | | Merci
Bonjour,
... et en une seule ligne sans "If":
Me.zonejac.Visible = (Me.Modification.Value = 1)
Un peu moins compréhensible, il est vrai (désolé, Raymond) mais cela reste
raisonnable.
Pour bien comprendre le principe, la structure (simplifiée) de l'instruction
If est la suivante:
If Condition Then
Action1
Action2
[Else
Action3
Action4]
End If
Il y a la possibilité de simplifier en mettant tout sur une seule ligne et
en séparant les actions par des points-virgules (:) et en "oubliant" le "End
If" final.
If Condition Then Action1:Action2 Else Action3:Action4
C'est ce qui a probablement induit Stéphane "informatique" en erreur...
L'aide en ligne sur le sujet est relativement bien faite, pour la consulter,
il suffit de presser F1 ! ;-)
--
Bonne continuation
-------------------------------------------------------------------------------------------
http://www.mpfa.info : c'est bonheur pour ton ordinateur !
-------------------------------------------------------------------------------------------
Bonjour.
Essaie ceci:
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
If Me.Modification.Value = 1 Then
Me.zonejac.Visible = True
Else
Me.zonejac.Visible = False
End If
ça ne prend pas plus de place et c'est plus clair.
si modification n'a que les valeurs 1 et 0 on peut faire beaucoup mieux
que
ça.
quelles sont ces valeurs de Modification ?
--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la recherche
dans votre entreprise
http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
| bonjour à tous,
|
| erreur de compilation : End if sans bloc If
| pour le code suivant:
|
| Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
|
| If Me.Modification.Value = 1 Then Me.zonejac.Visible = True
| Else: Me.zonejac.Visible = False
| End If
|
| End Sub
|
| Cela doit être énorme mais je ne vois pas !!
|
| Merci
Bonjour, ... et en une seule ligne sans "If": Me.zonejac.Visible = (Me.Modification.Value = 1) Un peu moins compréhensible, il est vrai (désolé, Raymond) mais cela reste raisonnable. Pour bien comprendre le principe, la structure (simplifiée) de l'instruction If est la suivante:
If Condition Then Action1 Action2 [Else Action3 Action4] End If
Il y a la possibilité de simplifier en mettant tout sur une seule ligne et en séparant les actions par des points-virgules (:) et en "oubliant" le "End If" final. If Condition Then Action1:Action2 Else Action3:Action4 C'est ce qui a probablement induit Stéphane "informatique" en erreur... L'aide en ligne sur le sujet est relativement bien faite, pour la consulter, il suffit de presser F1 ! ;-) -- Bonne continuation ------------------------------------------------------------------------------------------- http://www.mpfa.info : c'est bonheur pour ton ordinateur ! -------------------------------------------------------------------------------------------
Bonjour.
Essaie ceci:
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
If Me.Modification.Value = 1 Then Me.zonejac.Visible = True Else Me.zonejac.Visible = False End If
ça ne prend pas plus de place et c'est plus clair.
si modification n'a que les valeurs 1 et 0 on peut faire beaucoup mieux que ça. quelles sont ces valeurs de Modification ? -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ Pour débuter sur le forum: http://www.mpfa.info/ Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la recherche dans votre entreprise http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
| bonjour à tous, | | erreur de compilation : End if sans bloc If | pour le code suivant: | | Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer) | | If Me.Modification.Value = 1 Then Me.zonejac.Visible = True | Else: Me.zonejac.Visible = False | End If | | End Sub | | Cela doit être énorme mais je ne vois pas !! | | Merci
informatique
Merci raymond, on ne m'y prendra plus.
Effectivement modification peut prendre la valeur 10 ou 0 objectif imprimer un rapport des modifications par rapport à t-1 "Raymond [mvp]" a écrit dans le message de news: O$
Bonjour.
Essaie ceci:
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
If Me.Modification.Value = 1 Then Me.zonejac.Visible = True Else Me.zonejac.Visible = False End If
ça ne prend pas plus de place et c'est plus clair.
si modification n'a que les valeurs 1 et 0 on peut faire beaucoup mieux que ça. quelles sont ces valeurs de Modification ? -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ Pour débuter sur le forum: http://www.mpfa.info/ Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la recherche dans votre entreprise http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
"informatique" a écrit dans le message de news: u% | bonjour à tous, | | erreur de compilation : End if sans bloc If | pour le code suivant: | | Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer) | | If Me.Modification.Value = 1 Then Me.zonejac.Visible = True | Else: Me.zonejac.Visible = False | End If | | End Sub | | | | Cela doit être énorme mais je ne vois pas !! | | Merci | |
Merci raymond,
on ne m'y prendra plus.
Effectivement modification peut prendre la valeur 10 ou 0 objectif
imprimer un rapport des modifications par rapport à t-1
"Raymond [mvp]" <xyzofficesystem.accessxyz@free.fr> a écrit dans le message
de news: O$Wf7rcgHHA.3412@TK2MSFTNGP02.phx.gbl...
Bonjour.
Essaie ceci:
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
If Me.Modification.Value = 1 Then
Me.zonejac.Visible = True
Else
Me.zonejac.Visible = False
End If
ça ne prend pas plus de place et c'est plus clair.
si modification n'a que les valeurs 1 et 0 on peut faire beaucoup mieux
que
ça.
quelles sont ces valeurs de Modification ?
--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la recherche
dans votre entreprise
http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
"informatique" <stephane.lambotte@tiscali.be> a écrit dans le message de
news: u%23bRCmcgHHA.1008@TK2MSFTNGP05.phx.gbl...
| bonjour à tous,
|
| erreur de compilation : End if sans bloc If
| pour le code suivant:
|
| Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
|
| If Me.Modification.Value = 1 Then Me.zonejac.Visible = True
| Else: Me.zonejac.Visible = False
| End If
|
| End Sub
|
|
|
| Cela doit être énorme mais je ne vois pas !!
|
| Merci
|
|
Effectivement modification peut prendre la valeur 10 ou 0 objectif imprimer un rapport des modifications par rapport à t-1 "Raymond [mvp]" a écrit dans le message de news: O$
Bonjour.
Essaie ceci:
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
If Me.Modification.Value = 1 Then Me.zonejac.Visible = True Else Me.zonejac.Visible = False End If
ça ne prend pas plus de place et c'est plus clair.
si modification n'a que les valeurs 1 et 0 on peut faire beaucoup mieux que ça. quelles sont ces valeurs de Modification ? -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ Pour débuter sur le forum: http://www.mpfa.info/ Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la recherche dans votre entreprise http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
"informatique" a écrit dans le message de news: u% | bonjour à tous, | | erreur de compilation : End if sans bloc If | pour le code suivant: | | Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer) | | If Me.Modification.Value = 1 Then Me.zonejac.Visible = True | Else: Me.zonejac.Visible = False | End If | | End Sub | | | | Cela doit être énorme mais je ne vois pas !! | | Merci | |
informatique
merci beacoup Gilles.
"Gilles MOUGNOZ" a écrit dans le message de news: %23s3RT%
Bonjour, ... et en une seule ligne sans "If": Me.zonejac.Visible = (Me.Modification.Value = 1) Un peu moins compréhensible, il est vrai (désolé, Raymond) mais cela reste raisonnable. Pour bien comprendre le principe, la structure (simplifiée) de l'instruction If est la suivante:
If Condition Then Action1 Action2 [Else Action3 Action4] End If
Il y a la possibilité de simplifier en mettant tout sur une seule ligne et en séparant les actions par des points-virgules (:) et en "oubliant" le "End If" final. If Condition Then Action1:Action2 Else Action3:Action4 C'est ce qui a probablement induit Stéphane "informatique" en erreur... L'aide en ligne sur le sujet est relativement bien faite, pour la consulter, il suffit de presser F1 ! ;-) -- Bonne continuation ------------------------------------------------------------------------------------------- http://www.mpfa.info : c'est bonheur pour ton ordinateur ! -------------------------------------------------------------------------------------------
Bonjour.
Essaie ceci:
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
If Me.Modification.Value = 1 Then Me.zonejac.Visible = True Else Me.zonejac.Visible = False End If
ça ne prend pas plus de place et c'est plus clair.
si modification n'a que les valeurs 1 et 0 on peut faire beaucoup mieux que ça. quelles sont ces valeurs de Modification ? -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ Pour débuter sur le forum: http://www.mpfa.info/ Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la recherche dans votre entreprise http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
| bonjour à tous, | | erreur de compilation : End if sans bloc If | pour le code suivant: | | Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer) | | If Me.Modification.Value = 1 Then Me.zonejac.Visible = True | Else: Me.zonejac.Visible = False | End If | | End Sub | | Cela doit être énorme mais je ne vois pas !! | | Merci
merci beacoup Gilles.
"Gilles MOUGNOZ" <gmougnoz@courrierchaud.aifair> a écrit dans le message de
news: %23s3RT%23cgHHA.4188@TK2MSFTNGP02.phx.gbl...
Bonjour,
... et en une seule ligne sans "If":
Me.zonejac.Visible = (Me.Modification.Value = 1)
Un peu moins compréhensible, il est vrai (désolé, Raymond) mais cela reste
raisonnable.
Pour bien comprendre le principe, la structure (simplifiée) de
l'instruction If est la suivante:
If Condition Then
Action1
Action2
[Else
Action3
Action4]
End If
Il y a la possibilité de simplifier en mettant tout sur une seule ligne et
en séparant les actions par des points-virgules (:) et en "oubliant" le
"End If" final.
If Condition Then Action1:Action2 Else Action3:Action4
C'est ce qui a probablement induit Stéphane "informatique" en erreur...
L'aide en ligne sur le sujet est relativement bien faite, pour la
consulter, il suffit de presser F1 ! ;-)
--
Bonne continuation
-------------------------------------------------------------------------------------------
http://www.mpfa.info : c'est bonheur pour ton ordinateur !
-------------------------------------------------------------------------------------------
Bonjour.
Essaie ceci:
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
If Me.Modification.Value = 1 Then
Me.zonejac.Visible = True
Else
Me.zonejac.Visible = False
End If
ça ne prend pas plus de place et c'est plus clair.
si modification n'a que les valeurs 1 et 0 on peut faire beaucoup mieux
que
ça.
quelles sont ces valeurs de Modification ?
--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la
recherche
dans votre entreprise
http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
| bonjour à tous,
|
| erreur de compilation : End if sans bloc If
| pour le code suivant:
|
| Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
|
| If Me.Modification.Value = 1 Then Me.zonejac.Visible = True
| Else: Me.zonejac.Visible = False
| End If
|
| End Sub
|
| Cela doit être énorme mais je ne vois pas !!
|
| Merci
"Gilles MOUGNOZ" a écrit dans le message de news: %23s3RT%
Bonjour, ... et en une seule ligne sans "If": Me.zonejac.Visible = (Me.Modification.Value = 1) Un peu moins compréhensible, il est vrai (désolé, Raymond) mais cela reste raisonnable. Pour bien comprendre le principe, la structure (simplifiée) de l'instruction If est la suivante:
If Condition Then Action1 Action2 [Else Action3 Action4] End If
Il y a la possibilité de simplifier en mettant tout sur une seule ligne et en séparant les actions par des points-virgules (:) et en "oubliant" le "End If" final. If Condition Then Action1:Action2 Else Action3:Action4 C'est ce qui a probablement induit Stéphane "informatique" en erreur... L'aide en ligne sur le sujet est relativement bien faite, pour la consulter, il suffit de presser F1 ! ;-) -- Bonne continuation ------------------------------------------------------------------------------------------- http://www.mpfa.info : c'est bonheur pour ton ordinateur ! -------------------------------------------------------------------------------------------
Bonjour.
Essaie ceci:
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
If Me.Modification.Value = 1 Then Me.zonejac.Visible = True Else Me.zonejac.Visible = False End If
ça ne prend pas plus de place et c'est plus clair.
si modification n'a que les valeurs 1 et 0 on peut faire beaucoup mieux que ça. quelles sont ces valeurs de Modification ? -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ Pour débuter sur le forum: http://www.mpfa.info/ Le 26 Avril 2007 à 14h assistez à la web TV et faites avancer la recherche dans votre entreprise http://www.comscamp.com/Tracker/Redirect.ashx?linkidDb8ed66-f9f8-456a-bdc8-993dda7415fc
| bonjour à tous, | | erreur de compilation : End if sans bloc If | pour le code suivant: | | Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer) | | If Me.Modification.Value = 1 Then Me.zonejac.Visible = True | Else: Me.zonejac.Visible = False | End If | | End Sub | | Cela doit être énorme mais je ne vois pas !! | | Merci