Bonjour à tous,
Voici mon pb..
J'ai un formulaire qui se présente de la sorte :
Type produit -
Date - Origine - Planteur - Véhicule - Poids Net
dans lequel je saisie des données de la récole avec 2 champs facultatifs
(Origine et planteur) selon le type de produit c'est à dire :
Si dans le champ produit on a "PI" alors le champ planteur ne dois pas être
actif,
si dans le champ produit on a "PV" alors le champ origine est bloqué et on
passe la main au champ suivant.
Voila ce que j'ai essayé de faire :
Private Sub Date_AfterUpdate()
If Me!Produit.Column(1) = "PI" Then Me.PlanteurC.Locked = True
Me.Origine.SetFocus
Else Me.Origine.Locked
End If
End Sub
Une autre :
Private Sub PlanteurC_GotFocus()
If Not Me.Origine.Column(1) Then Me.PlanteurC.SetFocus
End Sub
Merci de me mettre sur la bonne voie
Salutation
Nyepalo
Salut
Bonjour à tous,
Voici mon pb..
J'ai un formulaire qui se présente de la sorte :
Type produit -
Date - Origine - Planteur - Véhicule - Poids Net
dans lequel je saisie des données de la récole avec 2 champs facultatifs
(Origine et planteur) selon le type de produit c'est à dire :
Si dans le champ produit on a "PI" alors le champ planteur ne dois pas être
actif,
si dans le champ produit on a "PV" alors le champ origine est bloqué et on
passe la main au champ suivant.
Voila ce que j'ai essayé de faire :
Private Sub Date_AfterUpdate()
If Me!Produit.Column(1) = "PI" Then Me.PlanteurC.Locked = True
Me.Origine.SetFocus
Else Me.Origine.Locked
End If
End Sub
Une autre :
Private Sub PlanteurC_GotFocus()
If Not Me.Origine.Column(1) Then Me.PlanteurC.SetFocus
End Sub
Merci de me mettre sur la bonne voie
Salutation
Nyepalo
Salut
Bonjour à tous,
Voici mon pb..
J'ai un formulaire qui se présente de la sorte :
Type produit -
Date - Origine - Planteur - Véhicule - Poids Net
dans lequel je saisie des données de la récole avec 2 champs facultatifs
(Origine et planteur) selon le type de produit c'est à dire :
Si dans le champ produit on a "PI" alors le champ planteur ne dois pas être
actif,
si dans le champ produit on a "PV" alors le champ origine est bloqué et on
passe la main au champ suivant.
Voila ce que j'ai essayé de faire :
Private Sub Date_AfterUpdate()
If Me!Produit.Column(1) = "PI" Then Me.PlanteurC.Locked = True
Me.Origine.SetFocus
Else Me.Origine.Locked
End If
End Sub
Une autre :
Private Sub PlanteurC_GotFocus()
If Not Me.Origine.Column(1) Then Me.PlanteurC.SetFocus
End Sub
Merci de me mettre sur la bonne voie
Salutation
Nyepalo
Salut
Bonjour à tous,
Voici mon pb..
J'ai un formulaire qui se présente de la sorte :
Type produit -
Date - Origine - Planteur - Véhicule - Poids Net
dans lequel je saisie des données de la récole avec 2 champs facultatifs
(Origine et planteur) selon le type de produit c'est à dire :
Si dans le champ produit on a "PI" alors le champ planteur ne dois pas
être actif,
si dans le champ produit on a "PV" alors le champ origine est bloqué et
on passe la main au champ suivant.
Voila ce que j'ai essayé de faire :
Private Sub Date_AfterUpdate()
If Me!Produit.Column(1) = "PI" Then Me.PlanteurC.Locked = True
Me.Origine.SetFocus
Else Me.Origine.Locked
End If
End Sub
Une autre :
Private Sub PlanteurC_GotFocus()
If Not Me.Origine.Column(1) Then Me.PlanteurC.SetFocus
End Sub
Merci de me mettre sur la bonne voie
Salutation
Nyepalo
Salut
En supposant que Produit est une liste,
moi j'aurais mis ça :
Sub Produit_afterupdate()
Me.PlanteurC.Enable= me.Produit.column(1)="PI"
Me.Origine.Enable=Me.Produit.column(1)="PV"
End sub
Enable désactive la zone rendant son accés impossible.
@+
Bonjour à tous,
Voici mon pb..
J'ai un formulaire qui se présente de la sorte :
Type produit -
Date - Origine - Planteur - Véhicule - Poids Net
dans lequel je saisie des données de la récole avec 2 champs facultatifs
(Origine et planteur) selon le type de produit c'est à dire :
Si dans le champ produit on a "PI" alors le champ planteur ne dois pas
être actif,
si dans le champ produit on a "PV" alors le champ origine est bloqué et
on passe la main au champ suivant.
Voila ce que j'ai essayé de faire :
Private Sub Date_AfterUpdate()
If Me!Produit.Column(1) = "PI" Then Me.PlanteurC.Locked = True
Me.Origine.SetFocus
Else Me.Origine.Locked
End If
End Sub
Une autre :
Private Sub PlanteurC_GotFocus()
If Not Me.Origine.Column(1) Then Me.PlanteurC.SetFocus
End Sub
Merci de me mettre sur la bonne voie
Salutation
Nyepalo
Salut
En supposant que Produit est une liste,
moi j'aurais mis ça :
Sub Produit_afterupdate()
Me.PlanteurC.Enable= me.Produit.column(1)="PI"
Me.Origine.Enable=Me.Produit.column(1)="PV"
End sub
Enable désactive la zone rendant son accés impossible.
@+
Bonjour à tous,
Voici mon pb..
J'ai un formulaire qui se présente de la sorte :
Type produit -
Date - Origine - Planteur - Véhicule - Poids Net
dans lequel je saisie des données de la récole avec 2 champs facultatifs
(Origine et planteur) selon le type de produit c'est à dire :
Si dans le champ produit on a "PI" alors le champ planteur ne dois pas
être actif,
si dans le champ produit on a "PV" alors le champ origine est bloqué et
on passe la main au champ suivant.
Voila ce que j'ai essayé de faire :
Private Sub Date_AfterUpdate()
If Me!Produit.Column(1) = "PI" Then Me.PlanteurC.Locked = True
Me.Origine.SetFocus
Else Me.Origine.Locked
End If
End Sub
Une autre :
Private Sub PlanteurC_GotFocus()
If Not Me.Origine.Column(1) Then Me.PlanteurC.SetFocus
End Sub
Merci de me mettre sur la bonne voie
Salutation
Nyepalo
Salut
En supposant que Produit est une liste,
moi j'aurais mis ça :
Sub Produit_afterupdate()
Me.PlanteurC.Enable= me.Produit.column(1)="PI"
Me.Origine.Enable=Me.Produit.column(1)="PV"
End sub
Enable désactive la zone rendant son accés impossible.
@+
Bonjour Fabien et merci de ta réponse que j'ai essayé et qui ne résout pas
véritablement mon problème. Je crois que je l'ai mal énoncé, je reprends
j'ai 2 origines de produit : industriel (PI) et villageois (PV)
Si élément du contrôle liste produit =''PI''
Alors donne le contrôle à élément origine bloque et bloque contrôle de
élément planteur
Sinon bloque le contrôle à l'élément origine et donne le contrôle à
élément planteur
Fin
Le champ "origine" est intercalé entre les contrôle produit et planteur
(Produit - Origine - Planteur)
Tentative de traduction
Sub Origine_afterupdate()
If me.Produit.column(1)="PI" Then Me.Origine.Enable (SetFocus)
me.planteur.Locked
Else Me.Origine.Locked
Me.planteur.SetFocus
End If
Voila si je peux être orienté une fois de plus
Merci
"Fabien" a écrit dans le message de news:Bonjour à tous,
Voici mon pb..
J'ai un formulaire qui se présente de la sorte :
Type produit -
Date - Origine - Planteur - Véhicule - Poids Net
dans lequel je saisie des données de la récole avec 2 champs facultatifs
(Origine et planteur) selon le type de produit c'est à dire :
Si dans le champ produit on a "PI" alors le champ planteur ne dois pas
être actif,
si dans le champ produit on a "PV" alors le champ origine est bloqué et
on passe la main au champ suivant.
Voila ce que j'ai essayé de faire :
Private Sub Date_AfterUpdate()
If Me!Produit.Column(1) = "PI" Then Me.PlanteurC.Locked = True
Me.Origine.SetFocus
Else Me.Origine.Locked
End If
End Sub
Une autre :
Private Sub PlanteurC_GotFocus()
If Not Me.Origine.Column(1) Then Me.PlanteurC.SetFocus
End Sub
Merci de me mettre sur la bonne voie
Salutation
Nyepalo
Salut
En supposant que Produit est une liste,
moi j'aurais mis ça :
Sub Produit_afterupdate()
Me.PlanteurC.Enable= me.Produit.column(1)="PI"
Me.Origine.Enable=Me.Produit.column(1)="PV"
End sub
Enable désactive la zone rendant son accés impossible.
@+
Bonjour Fabien et merci de ta réponse que j'ai essayé et qui ne résout pas
véritablement mon problème. Je crois que je l'ai mal énoncé, je reprends
j'ai 2 origines de produit : industriel (PI) et villageois (PV)
Si élément du contrôle liste produit =''PI''
Alors donne le contrôle à élément origine bloque et bloque contrôle de
élément planteur
Sinon bloque le contrôle à l'élément origine et donne le contrôle à
élément planteur
Fin
Le champ "origine" est intercalé entre les contrôle produit et planteur
(Produit - Origine - Planteur)
Tentative de traduction
Sub Origine_afterupdate()
If me.Produit.column(1)="PI" Then Me.Origine.Enable (SetFocus)
me.planteur.Locked
Else Me.Origine.Locked
Me.planteur.SetFocus
End If
Voila si je peux être orienté une fois de plus
Merci
"Fabien" <UrbaniakFabienxxxx@Neuf.fr> a écrit dans le message de news:
eoaQzSLkIHA.3612@TK2MSFTNGP03.phx.gbl...
Bonjour à tous,
Voici mon pb..
J'ai un formulaire qui se présente de la sorte :
Type produit -
Date - Origine - Planteur - Véhicule - Poids Net
dans lequel je saisie des données de la récole avec 2 champs facultatifs
(Origine et planteur) selon le type de produit c'est à dire :
Si dans le champ produit on a "PI" alors le champ planteur ne dois pas
être actif,
si dans le champ produit on a "PV" alors le champ origine est bloqué et
on passe la main au champ suivant.
Voila ce que j'ai essayé de faire :
Private Sub Date_AfterUpdate()
If Me!Produit.Column(1) = "PI" Then Me.PlanteurC.Locked = True
Me.Origine.SetFocus
Else Me.Origine.Locked
End If
End Sub
Une autre :
Private Sub PlanteurC_GotFocus()
If Not Me.Origine.Column(1) Then Me.PlanteurC.SetFocus
End Sub
Merci de me mettre sur la bonne voie
Salutation
Nyepalo
Salut
En supposant que Produit est une liste,
moi j'aurais mis ça :
Sub Produit_afterupdate()
Me.PlanteurC.Enable= me.Produit.column(1)="PI"
Me.Origine.Enable=Me.Produit.column(1)="PV"
End sub
Enable désactive la zone rendant son accés impossible.
@+
Bonjour Fabien et merci de ta réponse que j'ai essayé et qui ne résout pas
véritablement mon problème. Je crois que je l'ai mal énoncé, je reprends
j'ai 2 origines de produit : industriel (PI) et villageois (PV)
Si élément du contrôle liste produit =''PI''
Alors donne le contrôle à élément origine bloque et bloque contrôle de
élément planteur
Sinon bloque le contrôle à l'élément origine et donne le contrôle à
élément planteur
Fin
Le champ "origine" est intercalé entre les contrôle produit et planteur
(Produit - Origine - Planteur)
Tentative de traduction
Sub Origine_afterupdate()
If me.Produit.column(1)="PI" Then Me.Origine.Enable (SetFocus)
me.planteur.Locked
Else Me.Origine.Locked
Me.planteur.SetFocus
End If
Voila si je peux être orienté une fois de plus
Merci
"Fabien" a écrit dans le message de news:Bonjour à tous,
Voici mon pb..
J'ai un formulaire qui se présente de la sorte :
Type produit -
Date - Origine - Planteur - Véhicule - Poids Net
dans lequel je saisie des données de la récole avec 2 champs facultatifs
(Origine et planteur) selon le type de produit c'est à dire :
Si dans le champ produit on a "PI" alors le champ planteur ne dois pas
être actif,
si dans le champ produit on a "PV" alors le champ origine est bloqué et
on passe la main au champ suivant.
Voila ce que j'ai essayé de faire :
Private Sub Date_AfterUpdate()
If Me!Produit.Column(1) = "PI" Then Me.PlanteurC.Locked = True
Me.Origine.SetFocus
Else Me.Origine.Locked
End If
End Sub
Une autre :
Private Sub PlanteurC_GotFocus()
If Not Me.Origine.Column(1) Then Me.PlanteurC.SetFocus
End Sub
Merci de me mettre sur la bonne voie
Salutation
Nyepalo
Salut
En supposant que Produit est une liste,
moi j'aurais mis ça :
Sub Produit_afterupdate()
Me.PlanteurC.Enable= me.Produit.column(1)="PI"
Me.Origine.Enable=Me.Produit.column(1)="PV"
End sub
Enable désactive la zone rendant son accés impossible.
@+
Voila fais ceci marche mais pas la suite de la condition alors
Private Sub Type_AfterUpdate()
If Me.Type.Column(1) = "PV" Then Me.Origine.Locked = True
Me.Planteur.SetFocus
End Sub
*-----------------------------------------
par contre ceci ne va pas avec le code ci-dessus
'Else
'If Me.Type.Column(1) = "PI" Then
'Me.Origine.SetFocus
'Me.Planteur.Locked = True
'End If
End Sub
"Nyepalo" a écrit dans le message de news:
%23c%Bonjour Fabien et merci de ta réponse que j'ai essayé et qui ne résout pas
véritablement mon problème. Je crois que je l'ai mal énoncé, je reprends
j'ai 2 origines de produit : industriel (PI) et villageois (PV)
Si élément du contrôle liste produit =''PI''
Alors donne le contrôle à élément origine bloque et bloque contrôle de
élément planteur
Sinon bloque le contrôle à l'élément origine et donne le contrôle à
élément planteur
Fin
Le champ "origine" est intercalé entre les contrôle produit et planteur
(Produit - Origine - Planteur)
Tentative de traduction
Sub Origine_afterupdate()
If me.Produit.column(1)="PI" Then Me.Origine.Enable (SetFocus)
me.planteur.Locked
Else Me.Origine.Locked
Me.planteur.SetFocus
End If
Voila si je peux être orienté une fois de plus
Merci
"Fabien" a écrit dans le message de news:Bonjour à tous,
Voici mon pb..
J'ai un formulaire qui se présente de la sorte :
Type produit -
Date - Origine - Planteur - Véhicule - Poids Net
dans lequel je saisie des données de la récole avec 2 champs facultatifs
(Origine et planteur) selon le type de produit c'est à dire :
Si dans le champ produit on a "PI" alors le champ planteur ne dois pas
être actif,
si dans le champ produit on a "PV" alors le champ origine est bloqué et
on passe la main au champ suivant.
Voila ce que j'ai essayé de faire :
Private Sub Date_AfterUpdate()
If Me!Produit.Column(1) = "PI" Then Me.PlanteurC.Locked = True
Me.Origine.SetFocus
Else Me.Origine.Locked
End If
End Sub
Une autre :
Private Sub PlanteurC_GotFocus()
If Not Me.Origine.Column(1) Then Me.PlanteurC.SetFocus
End Sub
Merci de me mettre sur la bonne voie
Salutation
Nyepalo
Salut
En supposant que Produit est une liste,
moi j'aurais mis ça :
Sub Produit_afterupdate()
Me.PlanteurC.Enable= me.Produit.column(1)="PI"
Me.Origine.Enable=Me.Produit.column(1)="PV"
End sub
Enable désactive la zone rendant son accés impossible.
@+
Voila fais ceci marche mais pas la suite de la condition alors
Private Sub Type_AfterUpdate()
If Me.Type.Column(1) = "PV" Then Me.Origine.Locked = True
Me.Planteur.SetFocus
End Sub
*-----------------------------------------
par contre ceci ne va pas avec le code ci-dessus
'Else
'If Me.Type.Column(1) = "PI" Then
'Me.Origine.SetFocus
'Me.Planteur.Locked = True
'End If
End Sub
"Nyepalo" <npl@iccnet2000.com> a écrit dans le message de news:
%23c%23vF0MkIHA.6092@TK2MSFTNGP06.phx.gbl...
Bonjour Fabien et merci de ta réponse que j'ai essayé et qui ne résout pas
véritablement mon problème. Je crois que je l'ai mal énoncé, je reprends
j'ai 2 origines de produit : industriel (PI) et villageois (PV)
Si élément du contrôle liste produit =''PI''
Alors donne le contrôle à élément origine bloque et bloque contrôle de
élément planteur
Sinon bloque le contrôle à l'élément origine et donne le contrôle à
élément planteur
Fin
Le champ "origine" est intercalé entre les contrôle produit et planteur
(Produit - Origine - Planteur)
Tentative de traduction
Sub Origine_afterupdate()
If me.Produit.column(1)="PI" Then Me.Origine.Enable (SetFocus)
me.planteur.Locked
Else Me.Origine.Locked
Me.planteur.SetFocus
End If
Voila si je peux être orienté une fois de plus
Merci
"Fabien" <UrbaniakFabienxxxx@Neuf.fr> a écrit dans le message de news:
eoaQzSLkIHA.3612@TK2MSFTNGP03.phx.gbl...
Bonjour à tous,
Voici mon pb..
J'ai un formulaire qui se présente de la sorte :
Type produit -
Date - Origine - Planteur - Véhicule - Poids Net
dans lequel je saisie des données de la récole avec 2 champs facultatifs
(Origine et planteur) selon le type de produit c'est à dire :
Si dans le champ produit on a "PI" alors le champ planteur ne dois pas
être actif,
si dans le champ produit on a "PV" alors le champ origine est bloqué et
on passe la main au champ suivant.
Voila ce que j'ai essayé de faire :
Private Sub Date_AfterUpdate()
If Me!Produit.Column(1) = "PI" Then Me.PlanteurC.Locked = True
Me.Origine.SetFocus
Else Me.Origine.Locked
End If
End Sub
Une autre :
Private Sub PlanteurC_GotFocus()
If Not Me.Origine.Column(1) Then Me.PlanteurC.SetFocus
End Sub
Merci de me mettre sur la bonne voie
Salutation
Nyepalo
Salut
En supposant que Produit est une liste,
moi j'aurais mis ça :
Sub Produit_afterupdate()
Me.PlanteurC.Enable= me.Produit.column(1)="PI"
Me.Origine.Enable=Me.Produit.column(1)="PV"
End sub
Enable désactive la zone rendant son accés impossible.
@+
Voila fais ceci marche mais pas la suite de la condition alors
Private Sub Type_AfterUpdate()
If Me.Type.Column(1) = "PV" Then Me.Origine.Locked = True
Me.Planteur.SetFocus
End Sub
*-----------------------------------------
par contre ceci ne va pas avec le code ci-dessus
'Else
'If Me.Type.Column(1) = "PI" Then
'Me.Origine.SetFocus
'Me.Planteur.Locked = True
'End If
End Sub
"Nyepalo" a écrit dans le message de news:
%23c%Bonjour Fabien et merci de ta réponse que j'ai essayé et qui ne résout pas
véritablement mon problème. Je crois que je l'ai mal énoncé, je reprends
j'ai 2 origines de produit : industriel (PI) et villageois (PV)
Si élément du contrôle liste produit =''PI''
Alors donne le contrôle à élément origine bloque et bloque contrôle de
élément planteur
Sinon bloque le contrôle à l'élément origine et donne le contrôle à
élément planteur
Fin
Le champ "origine" est intercalé entre les contrôle produit et planteur
(Produit - Origine - Planteur)
Tentative de traduction
Sub Origine_afterupdate()
If me.Produit.column(1)="PI" Then Me.Origine.Enable (SetFocus)
me.planteur.Locked
Else Me.Origine.Locked
Me.planteur.SetFocus
End If
Voila si je peux être orienté une fois de plus
Merci
"Fabien" a écrit dans le message de news:Bonjour à tous,
Voici mon pb..
J'ai un formulaire qui se présente de la sorte :
Type produit -
Date - Origine - Planteur - Véhicule - Poids Net
dans lequel je saisie des données de la récole avec 2 champs facultatifs
(Origine et planteur) selon le type de produit c'est à dire :
Si dans le champ produit on a "PI" alors le champ planteur ne dois pas
être actif,
si dans le champ produit on a "PV" alors le champ origine est bloqué et
on passe la main au champ suivant.
Voila ce que j'ai essayé de faire :
Private Sub Date_AfterUpdate()
If Me!Produit.Column(1) = "PI" Then Me.PlanteurC.Locked = True
Me.Origine.SetFocus
Else Me.Origine.Locked
End If
End Sub
Une autre :
Private Sub PlanteurC_GotFocus()
If Not Me.Origine.Column(1) Then Me.PlanteurC.SetFocus
End Sub
Merci de me mettre sur la bonne voie
Salutation
Nyepalo
Salut
En supposant que Produit est une liste,
moi j'aurais mis ça :
Sub Produit_afterupdate()
Me.PlanteurC.Enable= me.Produit.column(1)="PI"
Me.Origine.Enable=Me.Produit.column(1)="PV"
End sub
Enable désactive la zone rendant son accés impossible.
@+
Me.Origine.Locked = True
Me.Planteur.Locked = False
Me.Planteur.SetFocus
ElseIf Me.Type.Column(1) = "PI" Then
Me.Planteur.Locked = True
Me.Origine.Locked = false
Me.Origine.SetFocus
End If
Bonjour,
Et avec, sous réserve d'avoir compris le pb:
If Me.Type.Column(1) = "PV" Then
Me.Origine.Locked = True
Me.Planteur.SetFocus
ElseIf Me.Type.Column(1) = "PI" Then
Me.Planteur.Locked = True
Me.Origine.SetFocus
End If
en supposant que la liste Type peut recevoir les valeurs PI, PV et
d'autres.Voila fais ceci marche mais pas la suite de la condition alors
Private Sub Type_AfterUpdate()
If Me.Type.Column(1) = "PV" Then Me.Origine.Locked = True
Me.Planteur.SetFocus
End Sub
*-----------------------------------------
par contre ceci ne va pas avec le code ci-dessus
'Else
'If Me.Type.Column(1) = "PI" Then
'Me.Origine.SetFocus
'Me.Planteur.Locked = True
'End If
End Sub
"Nyepalo" a écrit dans le message de news:
%23c%Bonjour Fabien et merci de ta réponse que j'ai essayé et qui ne
résout pas véritablement mon problème. Je crois que je l'ai mal
énoncé, je reprends
j'ai 2 origines de produit : industriel (PI) et villageois (PV)
Si élément du contrôle liste produit =''PI''
Alors donne le contrôle à élément origine bloque et bloque
contrôle de élément planteur
Sinon bloque le contrôle à l'élément origine et donne le contrôle
à élément planteur
Fin
Le champ "origine" est intercalé entre les contrôle produit et
planteur (Produit - Origine - Planteur)
Tentative de traduction
Sub Origine_afterupdate()
If me.Produit.column(1)="PI" Then Me.Origine.Enable (SetFocus)
me.planteur.Locked
Else Me.Origine.Locked
Me.planteur.SetFocus
End If
Voila si je peux être orienté une fois de plus
Merci
"Fabien" a écrit dans le message de
news:Bonjour à tous,
Voici mon pb..
J'ai un formulaire qui se présente de la sorte :
Type produit -
Date - Origine - Planteur - Véhicule -
Poids Net
dans lequel je saisie des données de la récole avec 2 champs
facultatifs (Origine et planteur) selon le type de produit c'est à
dire :
Si dans le champ produit on a "PI" alors le champ planteur ne dois
pas être actif,
si dans le champ produit on a "PV" alors le champ origine est
bloqué et on passe la main au champ suivant.
Voila ce que j'ai essayé de faire :
Private Sub Date_AfterUpdate()
If Me!Produit.Column(1) = "PI" Then Me.PlanteurC.Locked = True
Me.Origine.SetFocus
Else Me.Origine.Locked
End If
End Sub
Une autre :
Private Sub PlanteurC_GotFocus()
If Not Me.Origine.Column(1) Then Me.PlanteurC.SetFocus
End Sub
Merci de me mettre sur la bonne voie
Salutation
Nyepalo
Salut
En supposant que Produit est une liste,
moi j'aurais mis ça :
Sub Produit_afterupdate()
Me.PlanteurC.Enable= me.Produit.column(1)="PI"
Me.Origine.Enable=Me.Produit.column(1)="PV"
End sub
Enable désactive la zone rendant son accés impossible.
@+
Me.Origine.Locked = True
Me.Planteur.Locked = False
Me.Planteur.SetFocus
ElseIf Me.Type.Column(1) = "PI" Then
Me.Planteur.Locked = True
Me.Origine.Locked = false
Me.Origine.SetFocus
End If
Bonjour,
Et avec, sous réserve d'avoir compris le pb:
If Me.Type.Column(1) = "PV" Then
Me.Origine.Locked = True
Me.Planteur.SetFocus
ElseIf Me.Type.Column(1) = "PI" Then
Me.Planteur.Locked = True
Me.Origine.SetFocus
End If
en supposant que la liste Type peut recevoir les valeurs PI, PV et
d'autres.
Voila fais ceci marche mais pas la suite de la condition alors
Private Sub Type_AfterUpdate()
If Me.Type.Column(1) = "PV" Then Me.Origine.Locked = True
Me.Planteur.SetFocus
End Sub
*-----------------------------------------
par contre ceci ne va pas avec le code ci-dessus
'Else
'If Me.Type.Column(1) = "PI" Then
'Me.Origine.SetFocus
'Me.Planteur.Locked = True
'End If
End Sub
"Nyepalo" <npl@iccnet2000.com> a écrit dans le message de news:
%23c%23vF0MkIHA.6092@TK2MSFTNGP06.phx.gbl...
Bonjour Fabien et merci de ta réponse que j'ai essayé et qui ne
résout pas véritablement mon problème. Je crois que je l'ai mal
énoncé, je reprends
j'ai 2 origines de produit : industriel (PI) et villageois (PV)
Si élément du contrôle liste produit =''PI''
Alors donne le contrôle à élément origine bloque et bloque
contrôle de élément planteur
Sinon bloque le contrôle à l'élément origine et donne le contrôle
à élément planteur
Fin
Le champ "origine" est intercalé entre les contrôle produit et
planteur (Produit - Origine - Planteur)
Tentative de traduction
Sub Origine_afterupdate()
If me.Produit.column(1)="PI" Then Me.Origine.Enable (SetFocus)
me.planteur.Locked
Else Me.Origine.Locked
Me.planteur.SetFocus
End If
Voila si je peux être orienté une fois de plus
Merci
"Fabien" <UrbaniakFabienxxxx@Neuf.fr> a écrit dans le message de
news: eoaQzSLkIHA.3612@TK2MSFTNGP03.phx.gbl...
Bonjour à tous,
Voici mon pb..
J'ai un formulaire qui se présente de la sorte :
Type produit -
Date - Origine - Planteur - Véhicule -
Poids Net
dans lequel je saisie des données de la récole avec 2 champs
facultatifs (Origine et planteur) selon le type de produit c'est à
dire :
Si dans le champ produit on a "PI" alors le champ planteur ne dois
pas être actif,
si dans le champ produit on a "PV" alors le champ origine est
bloqué et on passe la main au champ suivant.
Voila ce que j'ai essayé de faire :
Private Sub Date_AfterUpdate()
If Me!Produit.Column(1) = "PI" Then Me.PlanteurC.Locked = True
Me.Origine.SetFocus
Else Me.Origine.Locked
End If
End Sub
Une autre :
Private Sub PlanteurC_GotFocus()
If Not Me.Origine.Column(1) Then Me.PlanteurC.SetFocus
End Sub
Merci de me mettre sur la bonne voie
Salutation
Nyepalo
Salut
En supposant que Produit est une liste,
moi j'aurais mis ça :
Sub Produit_afterupdate()
Me.PlanteurC.Enable= me.Produit.column(1)="PI"
Me.Origine.Enable=Me.Produit.column(1)="PV"
End sub
Enable désactive la zone rendant son accés impossible.
@+
Me.Origine.Locked = True
Me.Planteur.Locked = False
Me.Planteur.SetFocus
ElseIf Me.Type.Column(1) = "PI" Then
Me.Planteur.Locked = True
Me.Origine.Locked = false
Me.Origine.SetFocus
End If
Bonjour,
Et avec, sous réserve d'avoir compris le pb:
If Me.Type.Column(1) = "PV" Then
Me.Origine.Locked = True
Me.Planteur.SetFocus
ElseIf Me.Type.Column(1) = "PI" Then
Me.Planteur.Locked = True
Me.Origine.SetFocus
End If
en supposant que la liste Type peut recevoir les valeurs PI, PV et
d'autres.Voila fais ceci marche mais pas la suite de la condition alors
Private Sub Type_AfterUpdate()
If Me.Type.Column(1) = "PV" Then Me.Origine.Locked = True
Me.Planteur.SetFocus
End Sub
*-----------------------------------------
par contre ceci ne va pas avec le code ci-dessus
'Else
'If Me.Type.Column(1) = "PI" Then
'Me.Origine.SetFocus
'Me.Planteur.Locked = True
'End If
End Sub
"Nyepalo" a écrit dans le message de news:
%23c%Bonjour Fabien et merci de ta réponse que j'ai essayé et qui ne
résout pas véritablement mon problème. Je crois que je l'ai mal
énoncé, je reprends
j'ai 2 origines de produit : industriel (PI) et villageois (PV)
Si élément du contrôle liste produit =''PI''
Alors donne le contrôle à élément origine bloque et bloque
contrôle de élément planteur
Sinon bloque le contrôle à l'élément origine et donne le contrôle
à élément planteur
Fin
Le champ "origine" est intercalé entre les contrôle produit et
planteur (Produit - Origine - Planteur)
Tentative de traduction
Sub Origine_afterupdate()
If me.Produit.column(1)="PI" Then Me.Origine.Enable (SetFocus)
me.planteur.Locked
Else Me.Origine.Locked
Me.planteur.SetFocus
End If
Voila si je peux être orienté une fois de plus
Merci
"Fabien" a écrit dans le message de
news:Bonjour à tous,
Voici mon pb..
J'ai un formulaire qui se présente de la sorte :
Type produit -
Date - Origine - Planteur - Véhicule -
Poids Net
dans lequel je saisie des données de la récole avec 2 champs
facultatifs (Origine et planteur) selon le type de produit c'est à
dire :
Si dans le champ produit on a "PI" alors le champ planteur ne dois
pas être actif,
si dans le champ produit on a "PV" alors le champ origine est
bloqué et on passe la main au champ suivant.
Voila ce que j'ai essayé de faire :
Private Sub Date_AfterUpdate()
If Me!Produit.Column(1) = "PI" Then Me.PlanteurC.Locked = True
Me.Origine.SetFocus
Else Me.Origine.Locked
End If
End Sub
Une autre :
Private Sub PlanteurC_GotFocus()
If Not Me.Origine.Column(1) Then Me.PlanteurC.SetFocus
End Sub
Merci de me mettre sur la bonne voie
Salutation
Nyepalo
Salut
En supposant que Produit est une liste,
moi j'aurais mis ça :
Sub Produit_afterupdate()
Me.PlanteurC.Enable= me.Produit.column(1)="PI"
Me.Origine.Enable=Me.Produit.column(1)="PV"
End sub
Enable désactive la zone rendant son accés impossible.
@+
Salut Eric,
J'ajouterais
If Me.Type.Column(1) = "PV" ThenMe.Origine.Locked = True
Me.Planteur.Locked = FalseMe.Planteur.SetFocus
ElseIf Me.Type.Column(1) = "PI" Then
Me.Planteur.Locked = True
Me.Origine.Locked = falseMe.Origine.SetFocus
End If
Salut Eric,
J'ajouterais
If Me.Type.Column(1) = "PV" Then
Me.Origine.Locked = True
Me.Planteur.Locked = False
Me.Planteur.SetFocus
ElseIf Me.Type.Column(1) = "PI" Then
Me.Planteur.Locked = True
Me.Origine.Locked = false
Me.Origine.SetFocus
End If
Salut Eric,
J'ajouterais
If Me.Type.Column(1) = "PV" ThenMe.Origine.Locked = True
Me.Planteur.Locked = FalseMe.Planteur.SetFocus
ElseIf Me.Type.Column(1) = "PI" Then
Me.Planteur.Locked = True
Me.Origine.Locked = falseMe.Origine.SetFocus
End If
Salut Eric,
J'ajouterais
If Me.Type.Column(1) = "PV" ThenMe.Origine.Locked = True
Me.Planteur.Locked = FalseMe.Planteur.SetFocus
ElseIf Me.Type.Column(1) = "PI" Then
Me.Planteur.Locked = True
Me.Origine.Locked = falseMe.Origine.SetFocus
End IfBonjour,
Et avec, sous réserve d'avoir compris le pb:
If Me.Type.Column(1) = "PV" Then
Me.Origine.Locked = True
Me.Planteur.SetFocus
ElseIf Me.Type.Column(1) = "PI" Then
Me.Planteur.Locked = True Me.Origine.SetFocus
End If
en supposant que la liste Type peut recevoir les valeurs PI, PV et
d'autres.Voila fais ceci marche mais pas la suite de la condition alors
Private Sub Type_AfterUpdate()
If Me.Type.Column(1) = "PV" Then Me.Origine.Locked = True
Me.Planteur.SetFocus
End Sub
*-----------------------------------------
par contre ceci ne va pas avec le code ci-dessus
'Else
'If Me.Type.Column(1) = "PI" Then
'Me.Origine.SetFocus
'Me.Planteur.Locked = True
'End If
End Sub
"Nyepalo" a écrit dans le message de news:
%23c%Bonjour Fabien et merci de ta réponse que j'ai essayé et qui ne résout
pas véritablement mon problème. Je crois que je l'ai mal énoncé, je
reprends
j'ai 2 origines de produit : industriel (PI) et villageois (PV)
Si élément du contrôle liste produit =''PI''
Alors donne le contrôle à élément origine bloque et bloque contrôle
de élément planteur
Sinon bloque le contrôle à l'élément origine et donne le contrôle à
élément planteur
Fin
Le champ "origine" est intercalé entre les contrôle produit et planteur
(Produit - Origine - Planteur)
Tentative de traduction
Sub Origine_afterupdate()
If me.Produit.column(1)="PI" Then Me.Origine.Enable (SetFocus)
me.planteur.Locked
Else Me.Origine.Locked
Me.planteur.SetFocus
End If
Voila si je peux être orienté une fois de plus
Merci
"Fabien" a écrit dans le message de news:Bonjour à tous,
Voici mon pb..
J'ai un formulaire qui se présente de la sorte :
Type produit -
Date - Origine - Planteur - Véhicule - Poids
Net
dans lequel je saisie des données de la récole avec 2 champs
facultatifs (Origine et planteur) selon le type de produit c'est à
dire :
Si dans le champ produit on a "PI" alors le champ planteur ne dois
pas être actif,
si dans le champ produit on a "PV" alors le champ origine est bloqué
et on passe la main au champ suivant.
Voila ce que j'ai essayé de faire :
Private Sub Date_AfterUpdate()
If Me!Produit.Column(1) = "PI" Then Me.PlanteurC.Locked = True
Me.Origine.SetFocus
Else Me.Origine.Locked
End If
End Sub
Une autre :
Private Sub PlanteurC_GotFocus()
If Not Me.Origine.Column(1) Then Me.PlanteurC.SetFocus
End Sub
Merci de me mettre sur la bonne voie
Salutation
Nyepalo
Salut
En supposant que Produit est une liste,
moi j'aurais mis ça :
Sub Produit_afterupdate()
Me.PlanteurC.Enable= me.Produit.column(1)="PI"
Me.Origine.Enable=Me.Produit.column(1)="PV"
End sub
Enable désactive la zone rendant son accés impossible.
@+
Salut Eric,
J'ajouterais
If Me.Type.Column(1) = "PV" Then
Me.Origine.Locked = True
Me.Planteur.Locked = False
Me.Planteur.SetFocus
ElseIf Me.Type.Column(1) = "PI" Then
Me.Planteur.Locked = True
Me.Origine.Locked = false
Me.Origine.SetFocus
End If
Bonjour,
Et avec, sous réserve d'avoir compris le pb:
If Me.Type.Column(1) = "PV" Then
Me.Origine.Locked = True
Me.Planteur.SetFocus
ElseIf Me.Type.Column(1) = "PI" Then
Me.Planteur.Locked = True Me.Origine.SetFocus
End If
en supposant que la liste Type peut recevoir les valeurs PI, PV et
d'autres.
Voila fais ceci marche mais pas la suite de la condition alors
Private Sub Type_AfterUpdate()
If Me.Type.Column(1) = "PV" Then Me.Origine.Locked = True
Me.Planteur.SetFocus
End Sub
*-----------------------------------------
par contre ceci ne va pas avec le code ci-dessus
'Else
'If Me.Type.Column(1) = "PI" Then
'Me.Origine.SetFocus
'Me.Planteur.Locked = True
'End If
End Sub
"Nyepalo" <npl@iccnet2000.com> a écrit dans le message de news:
%23c%23vF0MkIHA.6092@TK2MSFTNGP06.phx.gbl...
Bonjour Fabien et merci de ta réponse que j'ai essayé et qui ne résout
pas véritablement mon problème. Je crois que je l'ai mal énoncé, je
reprends
j'ai 2 origines de produit : industriel (PI) et villageois (PV)
Si élément du contrôle liste produit =''PI''
Alors donne le contrôle à élément origine bloque et bloque contrôle
de élément planteur
Sinon bloque le contrôle à l'élément origine et donne le contrôle à
élément planteur
Fin
Le champ "origine" est intercalé entre les contrôle produit et planteur
(Produit - Origine - Planteur)
Tentative de traduction
Sub Origine_afterupdate()
If me.Produit.column(1)="PI" Then Me.Origine.Enable (SetFocus)
me.planteur.Locked
Else Me.Origine.Locked
Me.planteur.SetFocus
End If
Voila si je peux être orienté une fois de plus
Merci
"Fabien" <UrbaniakFabienxxxx@Neuf.fr> a écrit dans le message de news:
eoaQzSLkIHA.3612@TK2MSFTNGP03.phx.gbl...
Bonjour à tous,
Voici mon pb..
J'ai un formulaire qui se présente de la sorte :
Type produit -
Date - Origine - Planteur - Véhicule - Poids
Net
dans lequel je saisie des données de la récole avec 2 champs
facultatifs (Origine et planteur) selon le type de produit c'est à
dire :
Si dans le champ produit on a "PI" alors le champ planteur ne dois
pas être actif,
si dans le champ produit on a "PV" alors le champ origine est bloqué
et on passe la main au champ suivant.
Voila ce que j'ai essayé de faire :
Private Sub Date_AfterUpdate()
If Me!Produit.Column(1) = "PI" Then Me.PlanteurC.Locked = True
Me.Origine.SetFocus
Else Me.Origine.Locked
End If
End Sub
Une autre :
Private Sub PlanteurC_GotFocus()
If Not Me.Origine.Column(1) Then Me.PlanteurC.SetFocus
End Sub
Merci de me mettre sur la bonne voie
Salutation
Nyepalo
Salut
En supposant que Produit est une liste,
moi j'aurais mis ça :
Sub Produit_afterupdate()
Me.PlanteurC.Enable= me.Produit.column(1)="PI"
Me.Origine.Enable=Me.Produit.column(1)="PV"
End sub
Enable désactive la zone rendant son accés impossible.
@+
Salut Eric,
J'ajouterais
If Me.Type.Column(1) = "PV" ThenMe.Origine.Locked = True
Me.Planteur.Locked = FalseMe.Planteur.SetFocus
ElseIf Me.Type.Column(1) = "PI" Then
Me.Planteur.Locked = True
Me.Origine.Locked = falseMe.Origine.SetFocus
End IfBonjour,
Et avec, sous réserve d'avoir compris le pb:
If Me.Type.Column(1) = "PV" Then
Me.Origine.Locked = True
Me.Planteur.SetFocus
ElseIf Me.Type.Column(1) = "PI" Then
Me.Planteur.Locked = True Me.Origine.SetFocus
End If
en supposant que la liste Type peut recevoir les valeurs PI, PV et
d'autres.Voila fais ceci marche mais pas la suite de la condition alors
Private Sub Type_AfterUpdate()
If Me.Type.Column(1) = "PV" Then Me.Origine.Locked = True
Me.Planteur.SetFocus
End Sub
*-----------------------------------------
par contre ceci ne va pas avec le code ci-dessus
'Else
'If Me.Type.Column(1) = "PI" Then
'Me.Origine.SetFocus
'Me.Planteur.Locked = True
'End If
End Sub
"Nyepalo" a écrit dans le message de news:
%23c%Bonjour Fabien et merci de ta réponse que j'ai essayé et qui ne résout
pas véritablement mon problème. Je crois que je l'ai mal énoncé, je
reprends
j'ai 2 origines de produit : industriel (PI) et villageois (PV)
Si élément du contrôle liste produit =''PI''
Alors donne le contrôle à élément origine bloque et bloque contrôle
de élément planteur
Sinon bloque le contrôle à l'élément origine et donne le contrôle à
élément planteur
Fin
Le champ "origine" est intercalé entre les contrôle produit et planteur
(Produit - Origine - Planteur)
Tentative de traduction
Sub Origine_afterupdate()
If me.Produit.column(1)="PI" Then Me.Origine.Enable (SetFocus)
me.planteur.Locked
Else Me.Origine.Locked
Me.planteur.SetFocus
End If
Voila si je peux être orienté une fois de plus
Merci
"Fabien" a écrit dans le message de news:Bonjour à tous,
Voici mon pb..
J'ai un formulaire qui se présente de la sorte :
Type produit -
Date - Origine - Planteur - Véhicule - Poids
Net
dans lequel je saisie des données de la récole avec 2 champs
facultatifs (Origine et planteur) selon le type de produit c'est à
dire :
Si dans le champ produit on a "PI" alors le champ planteur ne dois
pas être actif,
si dans le champ produit on a "PV" alors le champ origine est bloqué
et on passe la main au champ suivant.
Voila ce que j'ai essayé de faire :
Private Sub Date_AfterUpdate()
If Me!Produit.Column(1) = "PI" Then Me.PlanteurC.Locked = True
Me.Origine.SetFocus
Else Me.Origine.Locked
End If
End Sub
Une autre :
Private Sub PlanteurC_GotFocus()
If Not Me.Origine.Column(1) Then Me.PlanteurC.SetFocus
End Sub
Merci de me mettre sur la bonne voie
Salutation
Nyepalo
Salut
En supposant que Produit est une liste,
moi j'aurais mis ça :
Sub Produit_afterupdate()
Me.PlanteurC.Enable= me.Produit.column(1)="PI"
Me.Origine.Enable=Me.Produit.column(1)="PV"
End sub
Enable désactive la zone rendant son accés impossible.
@+
Bonjour à tous,
J'ai essayé les 2 codes exactement sans succès, la première condition
marche, la 2e non j'ignore la cause.
Merci de vos contribution
NPL
"Fabien" a écrit dans le message de news:
eC%Salut Eric,
J'ajouterais
If Me.Type.Column(1) = "PV" ThenMe.Origine.Locked = True
Me.Planteur.Locked = FalseMe.Planteur.SetFocus
ElseIf Me.Type.Column(1) = "PI" Then
Me.Planteur.Locked = True
Me.Origine.Locked = falseMe.Origine.SetFocus
End If
Bonjour,
Et avec, sous réserve d'avoir compris le pb:
If Me.Type.Column(1) = "PV" Then
Me.Origine.Locked = True
Me.Planteur.SetFocus
ElseIf Me.Type.Column(1) = "PI" Then
Me.Planteur.Locked = True Me.Origine.SetFocus
End If
en supposant que la liste Type peut recevoir les valeurs PI, PV et
d'autres.Voila fais ceci marche mais pas la suite de la condition alors
Private Sub Type_AfterUpdate()
If Me.Type.Column(1) = "PV" Then Me.Origine.Locked = True
Me.Planteur.SetFocus
End Sub
*-----------------------------------------
par contre ceci ne va pas avec le code ci-dessus
'Else
'If Me.Type.Column(1) = "PI" Then
'Me.Origine.SetFocus
'Me.Planteur.Locked = True
'End If
End Sub
"Nyepalo" a écrit dans le message de news:
%23c%Bonjour Fabien et merci de ta réponse que j'ai essayé et qui ne résout
pas véritablement mon problème. Je crois que je l'ai mal énoncé, je
reprends
j'ai 2 origines de produit : industriel (PI) et villageois (PV)
Si élément du contrôle liste produit =''PI''
Alors donne le contrôle à élément origine bloque et bloque contrôle
de élément planteur
Sinon bloque le contrôle à l'élément origine et donne le contrôle à
élément planteur
Fin
Le champ "origine" est intercalé entre les contrôle produit et planteur
(Produit - Origine - Planteur)
Tentative de traduction
Sub Origine_afterupdate()
If me.Produit.column(1)="PI" Then Me.Origine.Enable (SetFocus)
me.planteur.Locked
Else Me.Origine.Locked
Me.planteur.SetFocus
End If
Voila si je peux être orienté une fois de plus
Merci
"Fabien" a écrit dans le message de news:Bonjour à tous,
Voici mon pb..
J'ai un formulaire qui se présente de la sorte :
Type produit -
Date - Origine - Planteur - Véhicule - Poids
Net
dans lequel je saisie des données de la récole avec 2 champs
facultatifs (Origine et planteur) selon le type de produit c'est à
dire :
Si dans le champ produit on a "PI" alors le champ planteur ne dois
pas être actif,
si dans le champ produit on a "PV" alors le champ origine est bloqué
et on passe la main au champ suivant.
Voila ce que j'ai essayé de faire :
Private Sub Date_AfterUpdate()
If Me!Produit.Column(1) = "PI" Then Me.PlanteurC.Locked = True
Me.Origine.SetFocus
Else Me.Origine.Locked
End If
End Sub
Une autre :
Private Sub PlanteurC_GotFocus()
If Not Me.Origine.Column(1) Then Me.PlanteurC.SetFocus
End Sub
Merci de me mettre sur la bonne voie
Salutation
Nyepalo
Salut
En supposant que Produit est une liste,
moi j'aurais mis ça :
Sub Produit_afterupdate()
Me.PlanteurC.Enable= me.Produit.column(1)="PI"
Me.Origine.Enable=Me.Produit.column(1)="PV"
End sub
Enable désactive la zone rendant son accés impossible.
@+
Bonjour à tous,
J'ai essayé les 2 codes exactement sans succès, la première condition
marche, la 2e non j'ignore la cause.
Merci de vos contribution
NPL
"Fabien" <UrbaniakFabienxxxx@Neuf.fr> a écrit dans le message de news:
eC%23iBfNkIHA.4536@TK2MSFTNGP06.phx.gbl...
Salut Eric,
J'ajouterais
If Me.Type.Column(1) = "PV" Then
Me.Origine.Locked = True
Me.Planteur.Locked = False
Me.Planteur.SetFocus
ElseIf Me.Type.Column(1) = "PI" Then
Me.Planteur.Locked = True
Me.Origine.Locked = false
Me.Origine.SetFocus
End If
Bonjour,
Et avec, sous réserve d'avoir compris le pb:
If Me.Type.Column(1) = "PV" Then
Me.Origine.Locked = True
Me.Planteur.SetFocus
ElseIf Me.Type.Column(1) = "PI" Then
Me.Planteur.Locked = True Me.Origine.SetFocus
End If
en supposant que la liste Type peut recevoir les valeurs PI, PV et
d'autres.
Voila fais ceci marche mais pas la suite de la condition alors
Private Sub Type_AfterUpdate()
If Me.Type.Column(1) = "PV" Then Me.Origine.Locked = True
Me.Planteur.SetFocus
End Sub
*-----------------------------------------
par contre ceci ne va pas avec le code ci-dessus
'Else
'If Me.Type.Column(1) = "PI" Then
'Me.Origine.SetFocus
'Me.Planteur.Locked = True
'End If
End Sub
"Nyepalo" <npl@iccnet2000.com> a écrit dans le message de news:
%23c%23vF0MkIHA.6092@TK2MSFTNGP06.phx.gbl...
Bonjour Fabien et merci de ta réponse que j'ai essayé et qui ne résout
pas véritablement mon problème. Je crois que je l'ai mal énoncé, je
reprends
j'ai 2 origines de produit : industriel (PI) et villageois (PV)
Si élément du contrôle liste produit =''PI''
Alors donne le contrôle à élément origine bloque et bloque contrôle
de élément planteur
Sinon bloque le contrôle à l'élément origine et donne le contrôle à
élément planteur
Fin
Le champ "origine" est intercalé entre les contrôle produit et planteur
(Produit - Origine - Planteur)
Tentative de traduction
Sub Origine_afterupdate()
If me.Produit.column(1)="PI" Then Me.Origine.Enable (SetFocus)
me.planteur.Locked
Else Me.Origine.Locked
Me.planteur.SetFocus
End If
Voila si je peux être orienté une fois de plus
Merci
"Fabien" <UrbaniakFabienxxxx@Neuf.fr> a écrit dans le message de news:
eoaQzSLkIHA.3612@TK2MSFTNGP03.phx.gbl...
Bonjour à tous,
Voici mon pb..
J'ai un formulaire qui se présente de la sorte :
Type produit -
Date - Origine - Planteur - Véhicule - Poids
Net
dans lequel je saisie des données de la récole avec 2 champs
facultatifs (Origine et planteur) selon le type de produit c'est à
dire :
Si dans le champ produit on a "PI" alors le champ planteur ne dois
pas être actif,
si dans le champ produit on a "PV" alors le champ origine est bloqué
et on passe la main au champ suivant.
Voila ce que j'ai essayé de faire :
Private Sub Date_AfterUpdate()
If Me!Produit.Column(1) = "PI" Then Me.PlanteurC.Locked = True
Me.Origine.SetFocus
Else Me.Origine.Locked
End If
End Sub
Une autre :
Private Sub PlanteurC_GotFocus()
If Not Me.Origine.Column(1) Then Me.PlanteurC.SetFocus
End Sub
Merci de me mettre sur la bonne voie
Salutation
Nyepalo
Salut
En supposant que Produit est une liste,
moi j'aurais mis ça :
Sub Produit_afterupdate()
Me.PlanteurC.Enable= me.Produit.column(1)="PI"
Me.Origine.Enable=Me.Produit.column(1)="PV"
End sub
Enable désactive la zone rendant son accés impossible.
@+
Bonjour à tous,
J'ai essayé les 2 codes exactement sans succès, la première condition
marche, la 2e non j'ignore la cause.
Merci de vos contribution
NPL
"Fabien" a écrit dans le message de news:
eC%Salut Eric,
J'ajouterais
If Me.Type.Column(1) = "PV" ThenMe.Origine.Locked = True
Me.Planteur.Locked = FalseMe.Planteur.SetFocus
ElseIf Me.Type.Column(1) = "PI" Then
Me.Planteur.Locked = True
Me.Origine.Locked = falseMe.Origine.SetFocus
End If
Bonjour,
Et avec, sous réserve d'avoir compris le pb:
If Me.Type.Column(1) = "PV" Then
Me.Origine.Locked = True
Me.Planteur.SetFocus
ElseIf Me.Type.Column(1) = "PI" Then
Me.Planteur.Locked = True Me.Origine.SetFocus
End If
en supposant que la liste Type peut recevoir les valeurs PI, PV et
d'autres.Voila fais ceci marche mais pas la suite de la condition alors
Private Sub Type_AfterUpdate()
If Me.Type.Column(1) = "PV" Then Me.Origine.Locked = True
Me.Planteur.SetFocus
End Sub
*-----------------------------------------
par contre ceci ne va pas avec le code ci-dessus
'Else
'If Me.Type.Column(1) = "PI" Then
'Me.Origine.SetFocus
'Me.Planteur.Locked = True
'End If
End Sub
"Nyepalo" a écrit dans le message de news:
%23c%Bonjour Fabien et merci de ta réponse que j'ai essayé et qui ne résout
pas véritablement mon problème. Je crois que je l'ai mal énoncé, je
reprends
j'ai 2 origines de produit : industriel (PI) et villageois (PV)
Si élément du contrôle liste produit =''PI''
Alors donne le contrôle à élément origine bloque et bloque contrôle
de élément planteur
Sinon bloque le contrôle à l'élément origine et donne le contrôle à
élément planteur
Fin
Le champ "origine" est intercalé entre les contrôle produit et planteur
(Produit - Origine - Planteur)
Tentative de traduction
Sub Origine_afterupdate()
If me.Produit.column(1)="PI" Then Me.Origine.Enable (SetFocus)
me.planteur.Locked
Else Me.Origine.Locked
Me.planteur.SetFocus
End If
Voila si je peux être orienté une fois de plus
Merci
"Fabien" a écrit dans le message de news:Bonjour à tous,
Voici mon pb..
J'ai un formulaire qui se présente de la sorte :
Type produit -
Date - Origine - Planteur - Véhicule - Poids
Net
dans lequel je saisie des données de la récole avec 2 champs
facultatifs (Origine et planteur) selon le type de produit c'est à
dire :
Si dans le champ produit on a "PI" alors le champ planteur ne dois
pas être actif,
si dans le champ produit on a "PV" alors le champ origine est bloqué
et on passe la main au champ suivant.
Voila ce que j'ai essayé de faire :
Private Sub Date_AfterUpdate()
If Me!Produit.Column(1) = "PI" Then Me.PlanteurC.Locked = True
Me.Origine.SetFocus
Else Me.Origine.Locked
End If
End Sub
Une autre :
Private Sub PlanteurC_GotFocus()
If Not Me.Origine.Column(1) Then Me.PlanteurC.SetFocus
End Sub
Merci de me mettre sur la bonne voie
Salutation
Nyepalo
Salut
En supposant que Produit est une liste,
moi j'aurais mis ça :
Sub Produit_afterupdate()
Me.PlanteurC.Enable= me.Produit.column(1)="PI"
Me.Origine.Enable=Me.Produit.column(1)="PV"
End sub
Enable désactive la zone rendant son accés impossible.
@+