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 Verrouillage

Verrouillage

8 réponses
Avatar
didier
Bonjour

Comment peut-on =E0 partir d'un bouton a bascule dans le=20
formulaire principale verouill=E9 un sous formulaise si=20
bouton =E0 bascule enfonc=E9 et non verouill=E9 si relach=E9 et=20
faire apparaitre sur le bouton verrouill=E9 ou non=20
verrouill=E9 suivant le cas

merci d'avance
Signaler un problème avec ce contenu

8 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
Raymond [mvp]
bonjour.
tu peux utiliser cette procédure:
Private Sub Bascule1_AfterUpdate()
Me.Bascule1.Caption = IIf(Me.Bascule1, "Verrouillé", "libre")
Me.Sous_formulaire.Locked = Me.Bascule1
End Sub
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"didier" a écrit dans le message de
news:1377901c3f79f$36f80330$
Bonjour

Comment peut-on à partir d'un bouton a bascule dans le
formulaire principale verouillé un sous formulaise si
bouton à bascule enfoncé et non verouillé si relaché et
faire apparaitre sur le bouton verrouillé ou non
verrouillé suivant le cas

merci d'avance
Avatar
didier
Re
Je me suis mal exprimé
je voudrais que
quand le bouton est appuyé mon formulaire soit bloquée et
qu'il m'affiche dans une zone de texte Verrouillé
Quand le bouton est non appuyé mon formulaire soit
bloquée et qu'il m'affiche dans une zone de texte
Verrouillé
je pensais à la formule suivante
Iff Me.Bascule1 appuyé
Me.Sous_formulaire.Locked and [Champstexte]
= "verouillé"
else
[champstexte]= "libre"

Le problème comment décrire en vB les position du bonton
à bascule
-----Message d'origine-----
bonjour.
tu peux utiliser cette procédure:
Private Sub Bascule1_AfterUpdate()
Me.Bascule1.Caption = IIf
(Me.Bascule1, "Verrouillé", "libre")

Me.Sous_formulaire.Locked = Me.Bascule1
End Sub
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"didier" a écrit
dans le message de

news:1377901c3f79f$36f80330$
Bonjour

Comment peut-on à partir d'un bouton a bascule dans le
formulaire principale verouillé un sous formulaise si
bouton à bascule enfoncé et non verouillé si relaché et
faire apparaitre sur le bouton verrouillé ou non
verrouillé suivant le cas

merci d'avance


.



Avatar
Raymond [mvp]
tu peux m'indiquer la différence entre tes deux options ?
quand le bouton est appuyé mon formulaire soit bloquée et
qu'il m'affiche dans une zone de texte Verrouillé
Quand le bouton est non appuyé mon formulaire soit
bloquée et qu'il m'affiche dans une zone de texte
Verrouillé

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


"didier" a écrit dans le message de
news:13d2f01c3f7b1$3a74c8b0$
Re
Je me suis mal exprimé
je voudrais que
quand le bouton est appuyé mon formulaire soit bloquée et
qu'il m'affiche dans une zone de texte Verrouillé
Quand le bouton est non appuyé mon formulaire soit
bloquée et qu'il m'affiche dans une zone de texte
Verrouillé
je pensais à la formule suivante
Iff Me.Bascule1 appuyé
Me.Sous_formulaire.Locked and [Champstexte]
= "verouillé"
else
[champstexte]= "libre"

Le problème comment décrire en vB les position du bonton
à bascule
-----Message d'origine-----
bonjour.
tu peux utiliser cette procédure:
Private Sub Bascule1_AfterUpdate()
Me.Bascule1.Caption = IIf
(Me.Bascule1, "Verrouillé", "libre")

Me.Sous_formulaire.Locked = Me.Bascule1
End Sub
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"didier" a écrit
dans le message de

news:1377901c3f79f$36f80330$
Bonjour

Comment peut-on à partir d'un bouton a bascule dans le
formulaire principale verouillé un sous formulaise si
bouton à bascule enfoncé et non verouillé si relaché et
faire apparaitre sur le bouton verrouillé ou non
verrouillé suivant le cas

merci d'avance


.



Avatar
didier
Re
Voila mes 2 options
quand le bouton est relaché mon sousformulaire est bloqué
et il m'affiche dans une zone de texte Verrouillé
Quand le bouton est appuyé mon sousformulaire est
débloqué(modification possible) et il m'affiche dans une
zone de texte dévérrouillé

Voilà la procédure que j'ai essayé mais ça ne marche pas
Private Sub Bascule11_AfterUpdate()
If (Bascule11 = True) Then
Me.détail_saisie -nomenclature.Unlocked And
Me.Texte12 = "Déverrouillé"
Else
Me.détail_saisie -nomenclature.Locked And
Me.Texte12 = "Vérroullé"

End Sub




-----Message d'origine-----
tu peux m'indiquer la différence entre tes deux options ?
quand le bouton est appuyé mon formulaire soit bloquée et
qu'il m'affiche dans une zone de texte Verrouillé
Quand le bouton est non appuyé mon formulaire soit
bloquée et qu'il m'affiche dans une zone de texte
Verrouillé

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


"didier" a écrit
dans le message de

news:13d2f01c3f7b1$3a74c8b0$
Re
Je me suis mal exprimé
je voudrais que
quand le bouton est appuyé mon formulaire soit bloquée et
qu'il m'affiche dans une zone de texte Verrouillé
Quand le bouton est non appuyé mon formulaire soit
bloquée et qu'il m'affiche dans une zone de texte
Verrouillé
je pensais à la formule suivante
Iff Me.Bascule1 appuyé
Me.Sous_formulaire.Locked and [Champstexte]
= "verouillé"
else
[champstexte]= "libre"

Le problème comment décrire en vB les position du bonton
à bascule
-----Message d'origine-----
bonjour.
tu peux utiliser cette procédure:
Private Sub Bascule1_AfterUpdate()
Me.Bascule1.Caption = IIf
(Me.Bascule1, "Verrouillé", "libre")

Me.Sous_formulaire.Locked = Me.Bascule1
End Sub
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"didier" a écrit
dans le message de

news:1377901c3f79f$36f80330$
Bonjour

Comment peut-on à partir d'un bouton a bascule dans le
formulaire principale verouillé un sous formulaise si
bouton à bascule enfoncé et non verouillé si relaché et
faire apparaitre sur le bouton verrouillé ou non
verrouillé suivant le cas

merci d'avance


.




.




Avatar
Raymond [mvp]
faut faire:

Private Sub Bascule11_AfterUpdate()
If Bascule11 Then
Me.[détail_saisie -nomenclature].Locked = false
Me.Texte12 = "Déverrouillé"
Else
Me.[détail_saisie -nomenclature].Locked = True
Me.Texte12 = "Vérroullé"
End If

c'est exactement ce que je t'avais proposé sous une forme plus courte et en
affichant le texte sur le bouton lui-même
il ne faut pas appeler un champ avec ce nom : détail_saisie -nomenclature
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"didier" a écrit dans le message de
news:13d8f01c3f7b6$ca2d97c0$
Re
Voila mes 2 options
quand le bouton est relaché mon sousformulaire est bloqué
et il m'affiche dans une zone de texte Verrouillé
Quand le bouton est appuyé mon sousformulaire est
débloqué(modification possible) et il m'affiche dans une
zone de texte dévérrouillé

Voilà la procédure que j'ai essayé mais ça ne marche pas
Private Sub Bascule11_AfterUpdate()
If (Bascule11 = True) Then
Me.détail_saisie -nomenclature.Unlocked And
Me.Texte12 = "Déverrouillé"
Else
Me.détail_saisie -nomenclature.Locked And
Me.Texte12 = "Vérroullé"

End Sub
Avatar
didier
Ta première forme me donne l'inverse c'est à dire
dévérouillé par défaut et verrouillé quand on le bouton
est appuyé
J'ai essayé ta formule en remplacant Locked par Unlocked
mais çà ne marche pas
Me.Bascule1.Caption = IIf
(Me.Bascule1, "Verrouillé", "libre")
Me.Sous_formulaire.Locked = Me.Bascule1
et comme je ne suis pas trés fort en VB, j'essaie de me
débrouillé en proposant d'autre choix
PS mon sous fourmulaire ne s'apelle pas "détail_saisie -
nomenclature" mais "détail saisie nomenclature" mais
pour que cela fonctionne en VB je rajoute des _ pour les
espaces

-----Message d'origine-----
faut faire:

Private Sub Bascule11_AfterUpdate()
If Bascule11 Then
Me.[détail_saisie -nomenclature].Locked = false
Me.Texte12 = "Déverrouillé"
Else
Me.[détail_saisie -nomenclature].Locked = True
Me.Texte12 = "Vérroullé"
End If

c'est exactement ce que je t'avais proposé sous une
forme plus courte et en

affichant le texte sur le bouton lui-même
il ne faut pas appeler un champ avec ce nom :
détail_saisie -nomenclature

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


"didier" a écrit
dans le message de

news:13d8f01c3f7b6$ca2d97c0$
Re
Voila mes 2 options
quand le bouton est relaché mon sousformulaire est bloqué
et il m'affiche dans une zone de texte Verrouillé
Quand le bouton est appuyé mon sousformulaire est
débloqué(modification possible) et il m'affiche dans une
zone de texte dévérrouillé

Voilà la procédure que j'ai essayé mais ça ne marche pas
Private Sub Bascule11_AfterUpdate()
If (Bascule11 = True) Then
Me.détail_saisie -nomenclature.Unlocked And
Me.Texte12 = "Déverrouillé"
Else
Me.détail_saisie -nomenclature.Locked And
Me.Texte12 = "Vérroullé"

End Sub



.



Avatar
Raymond [mvp]
Il te suffit de positionner les bonnes valeurs au départ dans l'événement
Form_load. Comme ma fonction ne fait que basculer les valeurs tu t'y
retrouveras toujours. ou alors change les valeurs par défaut ou inverse la
fonction en mettant not devant.

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


"didier" a écrit dans le message de
news:13c6401c3f7c3$7eff2680$
Ta première forme me donne l'inverse c'est à dire
dévérouillé par défaut et verrouillé quand on le bouton
est appuyé
J'ai essayé ta formule en remplacant Locked par Unlocked
mais çà ne marche pas
Me.Bascule1.Caption = IIf
(Me.Bascule1, "Verrouillé", "libre")
Me.Sous_formulaire.Locked = Me.Bascule1
et comme je ne suis pas trés fort en VB, j'essaie de me
débrouillé en proposant d'autre choix
PS mon sous fourmulaire ne s'apelle pas "détail_saisie -
nomenclature" mais "détail saisie nomenclature" mais
pour que cela fonctionne en VB je rajoute des _ pour les
espaces
Avatar
Didier
Bonjour

Je te remercie de ton aide, j'apprend en construisant,
j'ai réussi à créer comme je le voulait avec l'écriture
dans le bouton comme tu m'avait indiqué
encore merci de votre aide précieuse

-----Message d'origine-----
Il te suffit de positionner les bonnes valeurs au départ
dans l'événement

Form_load. Comme ma fonction ne fait que basculer les
valeurs tu t'y

retrouveras toujours. ou alors change les valeurs par
défaut ou inverse la

fonction en mettant not devant.

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


"didier" a écrit
dans le message de

news:13c6401c3f7c3$7eff2680$
Ta première forme me donne l'inverse c'est à dire
dévérouillé par défaut et verrouillé quand on le bouton
est appuyé
J'ai essayé ta formule en remplacant Locked par Unlocked
mais çà ne marche pas
Me.Bascule1.Caption = IIf
(Me.Bascule1, "Verrouillé", "libre")
Me.Sous_formulaire.Locked = Me.Bascule1
et comme je ne suis pas trés fort en VB, j'essaie de me
débrouillé en proposant d'autre choix
PS mon sous fourmulaire ne s'apelle pas "détail_saisie -
nomenclature" mais "détail saisie nomenclature" mais
pour que cela fonctionne en VB je rajoute des _ pour les
espaces


.