OVH Cloud OVH Cloud

Verrouiller des enregistrements

21 réponses
Avatar
luchr
Bonjour,
Comment faire pour verrouiller des enregistrements d'un sous
formulaire li=E9 =E0 un formulaire sans verrouiller ceux des autres
formulaires.
Si quelqu'un peu m'aider Merci
Christian

10 réponses

1 2 3
Avatar
luchr
On 23 juil, 14:43, "Blaise Cacramp" wrote:
"luchr" a écrit dans le message de news:

On 22 juil, 22:51, "Blaise Cacramp" wrote:





> Selon : Bonjour ou bonsoir

> Dans l'idée que tu donne au départ, le formulaire sert à la consu ltation
> de
> devis.
> Dans la réponse que je t'ai donnée, il est protégé protégé !

> Libre à toi de faire d'autres formulaires "de travail" dont l'accès peut
> être protégé par un système de mot de passe ou autres.

> Cdt, Blaise
> ---- ---- ----

> "luchr" a écrit dans le message de news:
>
> On 21 juil, 13:15, "Blaise Cacramp" wrote:

> > Selon : Bonjour ou bonsoir

> > Okay, c'est pas compliqué du tout.
> > Le but est de bloquer la modification d'un enregistrement représent ant
> > un
> > devis lorsque celui-ci est accepté.

> > Dans l'exemple, j'ai une table avec une colonne Dev_Ok de type oui/no n
> > (case
> > à cocher).
> > Quand cette case est cochée, le devis est accepté.

> > Tu crées ton formulaire.

> > Dans les propriétés (F4) du form, sur l'onglet "événements", tu cherches
> > après "si modification", tu choisis code que tu complètes comme s uit :

> > Private Sub Form_Dirty(Cancel As Integer)
> > Cancel = Me.Dev_Ok
> > End Sub

> > Enjoy !

> > Cdt, Blaise
> > ---- ---- ----

> > "luchr" a écrit dans le message de news:
> >
> > On 19 juil, 12:29, "Blaise Cacramp" wrote:

> > > Selon : Bonjour ou bonsoir

> > > J'ai une idée, mais en VBA
> > > c'est dans tes cordes ?

> > > Cdt, Blaise
> > > ---- ---- ----

> > > "luchr" a écrit dans le message de news:
> > > .
> > > On 18 juil, 19:09, "Blaise Cacramp" wrote:

> > > > Selon : Bonjour ou bonsoir

> > > > Dans les propriétés de chaque champ de la ligne de l'enregist rement,
> > > > tu
> > > > mets
> > > > verrouillé à oui.

> > > > Cdt, Blaise
> > > > ---- ---- ----

> > > > "luchr" a écrit dans le message de news:
> > > > ...
> > > > Bonjour,
> > > > Comment faire pour verrouiller des enregistrements d'un sous
> > > > formulaire lié à un formulaire sans verrouiller ceux des autr es
> > > > formulaires.
> > > > Si quelqu'un peu m'aider Merci
> > > > Christian

> > > Merci Blaise, mais je souhaiterais une démarche pour un utilisate ur,
> > > genre un bouton qui verrouillerait tous les enregistrements d'un so us
> > > formulaire et puis ta méthode verrouille tout même ceux de
> > > l'enregistrement du formulaire précédent et suivant.
> > > Le formulaire identifie un client et le sous formulaire les article s
> > > d'un devis. Pour éviter tout risque de fausse manoeuvre il faudra it
> > > pouvoir verrouiller tout les articles dès que le devis est accept é.
> > > Si tu as une autre idée ...
> > > Merci
> > > Christian- Masquer le texte des messages précédents -

> > > - Afficher le texte des messages précédents -

> > Si tu m'expliques bien je peux essayer.
> > Christian- Masquer le texte des messages précédents -

> > - Afficher le texte des messages précédents -

> Ca marche pour le formulaire mais si j'applique la même procédure a u
> sous formulaire il faut cocher tous les champs 1 par 1 et dans le 2
> cas si une case est cochée on ne peut plus la décocher.
> Peux-tu encore m'aider ???- Masquer le texte des messages précédent s -

> - Afficher le texte des messages précédents -

Bonjour,
Comment fairepour bloquer la saisie dans le sous formulaire qui est
validé ?? peut être verouillant l'ensemble du sous formulaire
concerné ? as tu une idée ? De toute façon merci pour ton aide.
Christian

Selon : Bonjour ou bonsoir

En continuant l'exemple précédent, dans lequel j'inclue un sous-formu laire,
voici le code VBA du sous-formulaire

Private Sub Form_Dirty(Cancel As Integer)
    Cancel = Me.Parent.Dev_Ok
End Sub

Cdt, Blaise
----   ----   ----- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -



Bonjour,
Ton code fonctionne mais il verrouille les enregistrements de tous le
devis
Pierre de 3 stone m'a donné ce code :
Me!NomDuControlSousForm.Form.AllowEdits = Not Me.[Devis accepté]
Il fonctionne mais il ne verrouille pas le dernier enregistrement

Merci pour ton aide je vais bien finir par y arriver
Avatar
Ricou
Bonsoir,

peut-on me préciser si ce code:
Me!NomDuControlSousForm.Form.AllowEdits = Not Me.[Devis accepté]

doit se mettre dans la rubrique "Si modification" des propritées du
formulaire pour que cela fonctionne, ou doit le mettre pour chaque champ du
formulaire concerné, car en effet j'ai aplliqué le code ci-avant, et on ne
peut plus ajouter d'enregistrement.

merci d'avance pour votre aide.

Ricou

"luchr" a écrit :

On 23 juil, 14:43, "Blaise Cacramp" wrote:
> "luchr" a écrit dans le message de news:
>
> On 22 juil, 22:51, "Blaise Cacramp" wrote:
>
>
>
>
>
> > Selon : Bonjour ou bonsoir
>
> > Dans l'idée que tu donne au départ, le formulaire sert à la consultation
> > de
> > devis.
> > Dans la réponse que je t'ai donnée, il est protégé protégé !
>
> > Libre à toi de faire d'autres formulaires "de travail" dont l'accès peut
> > être protégé par un système de mot de passe ou autres.
>
> > Cdt, Blaise
> > ---- ---- ----
>
> > "luchr" a écrit dans le message de news:
> >
> > On 21 juil, 13:15, "Blaise Cacramp" wrote:
>
> > > Selon : Bonjour ou bonsoir
>
> > > Okay, c'est pas compliqué du tout.
> > > Le but est de bloquer la modification d'un enregistrement représentant
> > > un
> > > devis lorsque celui-ci est accepté.
>
> > > Dans l'exemple, j'ai une table avec une colonne Dev_Ok de type oui/non
> > > (case
> > > à cocher).
> > > Quand cette case est cochée, le devis est accepté.
>
> > > Tu crées ton formulaire.
>
> > > Dans les propriétés (F4) du form, sur l'onglet "événements", tu cherches
> > > après "si modification", tu choisis code que tu complètes comme suit :
>
> > > Private Sub Form_Dirty(Cancel As Integer)
> > > Cancel = Me.Dev_Ok
> > > End Sub
>
> > > Enjoy !
>
> > > Cdt, Blaise
> > > ---- ---- ----
>
> > > "luchr" a écrit dans le message de news:
> > >
> > > On 19 juil, 12:29, "Blaise Cacramp" wrote:
>
> > > > Selon : Bonjour ou bonsoir
>
> > > > J'ai une idée, mais en VBA
> > > > c'est dans tes cordes ?
>
> > > > Cdt, Blaise
> > > > ---- ---- ----
>
> > > > "luchr" a écrit dans le message de news:
> > > >
> > > > On 18 juil, 19:09, "Blaise Cacramp" wrote:
>
> > > > > Selon : Bonjour ou bonsoir
>
> > > > > Dans les propriétés de chaque champ de la ligne de l'enregistrement,
> > > > > tu
> > > > > mets
> > > > > verrouillé à oui.
>
> > > > > Cdt, Blaise
> > > > > ---- ---- ----
>
> > > > > "luchr" a écrit dans le message de news:
> > > > >
> > > > > Bonjour,
> > > > > Comment faire pour verrouiller des enregistrements d'un sous
> > > > > formulaire lié à un formulaire sans verrouiller ceux des autres
> > > > > formulaires.
> > > > > Si quelqu'un peu m'aider Merci
> > > > > Christian
>
> > > > Merci Blaise, mais je souhaiterais une démarche pour un utilisateur,
> > > > genre un bouton qui verrouillerait tous les enregistrements d'un sous
> > > > formulaire et puis ta méthode verrouille tout même ceux de
> > > > l'enregistrement du formulaire précédent et suivant.
> > > > Le formulaire identifie un client et le sous formulaire les articles
> > > > d'un devis. Pour éviter tout risque de fausse manoeuvre il faudrait
> > > > pouvoir verrouiller tout les articles dès que le devis est accepté.
> > > > Si tu as une autre idée ...
> > > > Merci
> > > > Christian- Masquer le texte des messages précédents -
>
> > > > - Afficher le texte des messages précédents -
>
> > > Si tu m'expliques bien je peux essayer.
> > > Christian- Masquer le texte des messages précédents -
>
> > > - Afficher le texte des messages précédents -
>
> > Ca marche pour le formulaire mais si j'applique la même procédure au
> > sous formulaire il faut cocher tous les champs 1 par 1 et dans le 2
> > cas si une case est cochée on ne peut plus la décocher.
> > Peux-tu encore m'aider ???- Masquer le texte des messages précédents -
>
> > - Afficher le texte des messages précédents -
>
> Bonjour,
> Comment fairepour bloquer la saisie dans le sous formulaire qui est
> validé ?? peut être verouillant l'ensemble du sous formulaire
> concerné ? as tu une idée ? De toute façon merci pour ton aide.
> Christian
>
> Selon : Bonjour ou bonsoir
>
> En continuant l'exemple précédent, dans lequel j'inclue un sous-formulaire,
> voici le code VBA du sous-formulaire
>
> Private Sub Form_Dirty(Cancel As Integer)
> Cancel = Me.Parent.Dev_Ok
> End Sub
>
> Cdt, Blaise
> ---- ---- ----- Masquer le texte des messages précédents -
>
> - Afficher le texte des messages précédents -

Bonjour,
Ton code fonctionne mais il verrouille les enregistrements de tous le
devis
Pierre de 3 stone m'a donné ce code :
Me!NomDuControlSousForm.Form.AllowEdits = Not Me.[Devis accepté]
Il fonctionne mais il ne verrouille pas le dernier enregistrement

Merci pour ton aide je vais bien finir par y arriver





Avatar
luchr
On 24 juil, 00:30, Ricou wrote:
Bonsoir,

peut-on me préciser si ce code:
Me!NomDuControlSousForm.Form.AllowEdits = Not Me.[Devis accepté]

doit se mettre dans la rubrique "Si modification" des propritées du
formulaire pour que cela fonctionne, ou doit le mettre pour chaque champ du
formulaire concerné, car en effet j'ai aplliqué le code ci-avant, et on ne
peut plus ajouter d'enregistrement.

merci d'avance pour votre aide.

Ricou

"luchr" a écrit :



> On 23 juil, 14:43, "Blaise Cacramp" wrote:
> > "luchr" a écrit dans le message de news:
> >
> > On 22 juil, 22:51, "Blaise Cacramp" wrote:

> > > Selon : Bonjour ou bonsoir

> > > Dans l'idée que tu donne au départ, le formulaire sert à la c onsultation
> > > de
> > > devis.
> > > Dans la réponse que je t'ai donnée, il est protégé protég é !

> > > Libre à toi de faire d'autres formulaires "de travail" dont l'acc ès peut
> > > être protégé par un système de mot de passe ou autres.

> > > Cdt, Blaise
> > > ---- ---- ----

> > > "luchr" a écrit dans le message de news:
> > >
> > > On 21 juil, 13:15, "Blaise Cacramp" wrote:

> > > > Selon : Bonjour ou bonsoir

> > > > Okay, c'est pas compliqué du tout.
> > > > Le but est de bloquer la modification d'un enregistrement repré sentant
> > > > un
> > > > devis lorsque celui-ci est accepté.

> > > > Dans l'exemple, j'ai une table avec une colonne Dev_Ok de type ou i/non
> > > > (case
> > > > à cocher).
> > > > Quand cette case est cochée, le devis est accepté.

> > > > Tu crées ton formulaire.

> > > > Dans les propriétés (F4) du form, sur l'onglet "événement s", tu cherches
> > > > après "si modification", tu choisis code que tu complètes com me suit :

> > > > Private Sub Form_Dirty(Cancel As Integer)
> > > > Cancel = Me.Dev_Ok
> > > > End Sub

> > > > Enjoy !

> > > > Cdt, Blaise
> > > > ---- ---- ----

> > > > "luchr" a écrit dans le message de news:
> > > > ...
> > > > On 19 juil, 12:29, "Blaise Cacramp" wrote:

> > > > > Selon : Bonjour ou bonsoir

> > > > > J'ai une idée, mais en VBA
> > > > > c'est dans tes cordes ?

> > > > > Cdt, Blaise
> > > > > ---- ---- ----

> > > > > "luchr" a écrit dans le message de news:
> > > > > om....
> > > > > On 18 juil, 19:09, "Blaise Cacramp" wrote:

> > > > > > Selon : Bonjour ou bonsoir

> > > > > > Dans les propriétés de chaque champ de la ligne de l'enre gistrement,
> > > > > > tu
> > > > > > mets
> > > > > > verrouillé à oui.

> > > > > > Cdt, Blaise
> > > > > > ---- ---- ----

> > > > > > "luchr" a écrit dans le message de news:
> > > > > > .com....
> > > > > > Bonjour,
> > > > > > Comment faire pour verrouiller des enregistrements d'un sous
> > > > > > formulaire lié à un formulaire sans verrouiller ceux des autres
> > > > > > formulaires.
> > > > > > Si quelqu'un peu m'aider Merci
> > > > > > Christian

> > > > > Merci Blaise, mais je souhaiterais une démarche pour un utili sateur,
> > > > > genre un bouton qui verrouillerait tous les enregistrements d'u n sous
> > > > > formulaire et puis ta méthode verrouille tout même ceux de
> > > > > l'enregistrement du formulaire précédent et suivant.
> > > > > Le formulaire identifie un client et le sous formulaire les art icles
> > > > > d'un devis. Pour éviter tout risque de fausse manoeuvre il fa udrait
> > > > > pouvoir verrouiller tout les articles dès que le devis est ac cepté.
> > > > > Si tu as une autre idée ...
> > > > > Merci
> > > > > Christian- Masquer le texte des messages précédents -

> > > > > - Afficher le texte des messages précédents -

> > > > Si tu m'expliques bien je peux essayer.
> > > > Christian- Masquer le texte des messages précédents -

> > > > - Afficher le texte des messages précédents -

> > > Ca marche pour le formulaire mais si j'applique la même procédu re au
> > > sous formulaire il faut cocher tous les champs 1 par 1 et dans le 2
> > > cas si une case est cochée on ne peut plus la décocher.
> > > Peux-tu encore m'aider ???- Masquer le texte des messages précé dents -

> > > - Afficher le texte des messages précédents -

> > Bonjour,
> > Comment fairepour bloquer la saisie dans le sous formulaire qui est
> > validé ?? peut être verouillant l'ensemble du sous formulaire
> > concerné ? as tu une idée ? De toute façon merci pour ton aide.
> > Christian

> > Selon : Bonjour ou bonsoir

> > En continuant l'exemple précédent, dans lequel j'inclue un sous-f ormulaire,
> > voici le code VBA du sous-formulaire

> > Private Sub Form_Dirty(Cancel As Integer)
> >     Cancel = Me.Parent.Dev_Ok
> > End Sub

> > Cdt, Blaise
> > ----   ----   ----- Masquer le texte des messages précédents -

> > - Afficher le texte des messages précédents -

> Bonjour,
> Ton code fonctionne mais il verrouille les enregistrements de tous le
> devis
> Pierre de 3 stone m'a donné ce code :
> Me!NomDuControlSousForm.Form.AllowEdits = Not Me.[Devis accepté]
> Il fonctionne mais il ne verrouille pas le dernier enregistrement

> Merci pour ton aide je vais bien finir par y arriver- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -



dans les propriété du formulaie principal sur activation
Christian
Avatar
Blaise Cacramp
Selon : Bonjour ou bonsoir

On reprend à zéro et, stp, tu nous expliques clairement ton cas de figure

Cdt, Blaise
---- ---- ----
Avatar
luchr
On 24 juil, 16:04, "Blaise Cacramp" wrote:
Selon : Bonjour ou bonsoir

On reprend à zéro et, stp, tu nous expliques clairement ton cas de fi gure

Cdt, Blaise
----   ----   ----



Bonjour,
J'ai un formulaire pour établir des devis, le Form principale est
relié à une table "client", en clé primaire un N° auto qui est le N °
du devis. Ce formulaire a un sous Form relié à une table
"Nomenclature" dans lequel je rentre les articles du devis.
Je souhaite quand un devis est accepté pouvoir verrouiller (et
deverrouiller) le sous formulaire pour éviter tout risque d'erreur de
saisie.
J'ai dans le Form principale un champ oui/non [Devis accepté]
Pierre de 3stone m'a donné un code qui marche presque :

Dim boVerrou As Boolean
boVerrou = Not Me.[Devis accepté]

If Not Me.NewRecord Then
With Me!NomControlSousForm.Form
.AllowEdits = boVerrou
.AllowAdditions = boVerrou
End With
End If

Il verrouille bien les enregistrement lorsque [Devis accepté] est
coché et il ne permet plus de saisir un nouvel enregistrement dans les
Sous Form verrouillés.
Mais il reste un Bug. Quand je vais sur un nouvel en registrement du
Form principal j'ai un message d'erreur :
"Erreur 94" " Utilisation incorect de Null"
En accèdant au débogage, j'ai la ligne "boVerrou = Not Me.[Devis
accepté]" surligné en jaune.
Si tu as une idée ...
Merci d'avance
Christian
Avatar
3stone
Salut,

luchr wrote:
[...]
Pierre de 3stone m'a donné un code qui marche presque :




Faudrait savoir, soit tu en parles ici (aucun problème),
soit tu continues sur mon site...
mais les deux, c'est prendre les gens pour des imb***** :-((

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
Avatar
Blaise Cacramp
Selon : Bonjour ou bonsoir

Comme de fait. Je me demandais pourquoi luchr avait des infos de 3stone
sans les voir ici même..
boVerrou = Not nz ( Me.[Devis accepté] ; false ; Me.[Devis accepté] )


Cdt, Blaise
---- ---- ----

"3stone" a écrit dans le message de news:
O6%
Salut,

luchr wrote:
[...]
Pierre de 3stone m'a donné un code qui marche presque :




Faudrait savoir, soit tu en parles ici (aucun problème),
soit tu continues sur mon site...
mais les deux, c'est prendre les gens pour des imb***** :-((

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)




Avatar
luchr
On 25 juil, 15:23, "Blaise Cacramp" wrote:
Selon : Bonjour ou bonsoir

Comme de fait.  Je me demandais pourquoi luchr avait des infos de 3ston e
sans les voir ici même..
boVerrou = Not nz ( Me.[Devis accepté] ; false ; Me.[Devis accepté] )

Cdt, Blaise
----   ----   ----

"3stone" a écrit dans le message de news:
O6%



> Salut,

> luchr wrote:
> [...]
>> Pierre de 3stone m'a donné un code qui marche presque :

> Faudrait savoir, soit tu en parles ici (aucun problème),
> soit tu continues sur mon site...
> mais les deux, c'est prendre les gens pour des imb***** :-((

> --
> A+
> Pierre (3stone) Access MVP
> Perso:http://www.3stone.be/
> MPFA:http://www.mpfa.info/ (infos générales)- Masquer le texte de s messages précédents -

- Afficher le texte des messages précédents -



Blaise,
Bonjour. je viens d'adresser un message à Pierre pour lui transmettre
mes excuses ce que je fais aussi auprès de toi.
En effet si je ne suis pas familiarisé avec le VBA je ne le suis pas
non plus avec ces sites. Et je ne souhaite surtout pas te blesser
après le mal que tu te donne.
Je pensais que j'étais sur des sites d'échanges et que le travail de
l'un pouvait aider le travail de l'autre.
Alors encore une fois MILLE EXCUSES.

Cela dit je ne sais pas comment intégrer la ligne de code que tu m'as
communiqué
Cordialement
Christian
Avatar
Blaise Cacramp
Selon : Bonjour ou bonsoir

La ligne remplace celle de 3stone, tout simplement., et corrige l'erreur du
Null


Cdt, Blaise
---- ---- ----


"luchr" a écrit dans le message de news:

On 25 juil, 15:23, "Blaise Cacramp" wrote:
Selon : Bonjour ou bonsoir

Comme de fait. Je me demandais pourquoi luchr avait des infos de 3stone
sans les voir ici même..
boVerrou = Not nz ( Me.[Devis accepté] ; false ; Me.[Devis accepté] )

Cdt, Blaise
---- ---- ----

"3stone" a écrit dans le message de news:
O6%



> Salut,

> luchr wrote:
> [...]
>> Pierre de 3stone m'a donné un code qui marche presque :

> Faudrait savoir, soit tu en parles ici (aucun problème),
> soit tu continues sur mon site...
> mais les deux, c'est prendre les gens pour des imb***** :-((

> --
> A+
> Pierre (3stone) Access MVP
> Perso:http://www.3stone.be/
> MPFA:http://www.mpfa.info/ (infos générales)- Masquer le texte des
> messages précédents -

- Afficher le texte des messages précédents -



Blaise,
Bonjour. je viens d'adresser un message à Pierre pour lui transmettre
mes excuses ce que je fais aussi auprès de toi.
En effet si je ne suis pas familiarisé avec le VBA je ne le suis pas
non plus avec ces sites. Et je ne souhaite surtout pas te blesser
après le mal que tu te donne.
Je pensais que j'étais sur des sites d'échanges et que le travail de
l'un pouvait aider le travail de l'autre.
Alors encore une fois MILLE EXCUSES.

Cela dit je ne sais pas comment intégrer la ligne de code que tu m'as
communiqué
Cordialement
Christian
Avatar
luchr
On 27 juil, 17:50, "Blaise Cacramp" wrote:
Selon : Bonjour ou bonsoir

La ligne remplace celle de 3stone, tout simplement., et corrige l'erreur du
Null

Cdt, Blaise
----   ----   ----

"luchr" a écrit dans le message de news:

On 25 juil, 15:23, "Blaise Cacramp" wrote:





> Selon : Bonjour ou bonsoir

> Comme de fait. Je me demandais pourquoi luchr avait des infos de 3stone
> sans les voir ici même..
> boVerrou = Not nz ( Me.[Devis accepté] ; false ; Me.[Devis accept é] )

> Cdt, Blaise
> ---- ---- ----

> "3stone" a écrit dans le message de news:
> O6%

> > Salut,

> > luchr wrote:
> > [...]
> >> Pierre de 3stone m'a donné un code qui marche presque :

> > Faudrait savoir, soit tu en parles ici (aucun problème),
> > soit tu continues sur mon site...
> > mais les deux, c'est prendre les gens pour des imb***** :-((

> > --
> > A+
> > Pierre (3stone) Access MVP
> > Perso:http://www.3stone.be/
> > MPFA:http://www.mpfa.info/(infos générales)- Masquer le texte des
> > messages précédents -

> - Afficher le texte des messages précédents -

Blaise,
Bonjour. je viens d'adresser un message à Pierre pour lui transmettre
mes excuses ce que je fais aussi auprès de toi.
En effet si je ne suis pas familiarisé avec le VBA je ne le suis pas
non plus avec ces sites. Et je ne souhaite surtout pas te blesser
après le mal que tu te donne.
Je pensais que j'étais sur des sites d'échanges et que le travail de
l'un pouvait aider le travail de l'autre.
Alors encore une fois MILLE EXCUSES.

Cela dit je ne sais pas comment intégrer la ligne de code que tu m'as
communiqué
Cordialement
Christian- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -



Merci beaucoup ça fonctionne
Et encore désolé pour ma maladresse
Cordialement
Christian
1 2 3