bloquer les zones de textes en écriture

Salut!
Je voudrais bloquer les zones de texte en écriture pour la visualisation d'enregistrement et la permettre lorsque l'on crée un nouvel enregistrement ou on le modifie. Comment faire? J'utilise le même formulaire pour la visualisation que pour l'enrgistrement.
Merci d'avance
SEB

La propriété NewRecord du formulaires te permettra de savoir si tu es en mode création ou pas. A partir de là, sur l'évenement On_Current, tu pourras bloquer tes champs

Avec un truc genre :

Code:

---

1 2 3 4

Dim Ctl As Control For each Ctl in me.Controls if TypeOf Ctl is TextBox then ctl.locked=Not me.NewRecord Next

---

Salut, regarde les propriétés

ModifAutorisée (AllowEdits)
SupprAutorisée (AllowDeletions)
AjoutAutorisé (AllowAdditions)
EntréeDonnées (DataEntry)


tu peux les gérer dynamiquement avec vba...

Ca bloque bien sur mes enregistrements quand je mais ton code ( Tofalu )
dans l'initialisation du formulaire. Par contre quand je le met dans l'ouverture d'un nouvel enregistrement ca bloque aussi mes zones de texte comment dois-je procéder? Je ne suis vraiment pas doué! ca doit être avec le

Code:

---

If TypeOf Ctl Is TextBox Then Ctl.Locked = Not Me.NewRecord

---

Merci d'avance encore une fois et désolé de poser des questions chiantes
Seb

L'évenement à utiliser à priori est form_current

ui mais ton premier code je le place après le form_current, je dois créer une Private Sub? parcqu'en faisant ca je bloque les enregistrements et l'ajout j'ai testé
Seb

Ca marche je ne suis pas doué j'avais pas enregistré la modification. Merci Tufalo pour tes renseignements, ca marche avec l'événement form_current
Seb

Je voudrais maintenant créé un bouton qui me permet de modifier un enregistrement, c'est à dire débloquer les zones de texte pour l'enregistrement sélectionné, est ce possible et comment?
Seb

Juste un petite remarque. Je ne sais pas comment tu génères le
NewRecord, mais si c'est par saisie directe voilà ce qui risquerait
de se passer:
L'utilisateur commence à saisir le NewRecord et Active un autre
enregistrement (sauf si tu l'en empêche ou que tu gère
l'enregistrement des données par code) et résultat (potentiel)
:arrow: Ton NewRec n'est plus un NewRec (Enregistré)
:arrow: Tu ne peux plus compléter la saisie de celui ci.

Voilà simplement pour dire que cela suppose d'autres "vérouillages"
annexes.

salut mes enregistrements sont bien bloqués et j'ai créé un bouton modification de l'enregistrement, j'ai tenté le code suivant pour permettre l'accés en écriture au différente zone de texte se l'enregistrement mais ca ne marche pas.

Code:

---

1 2 3 4 5 6

Private Sub Modif_Click() Dim Ctl As Control For Each Ctl In Me.Controls If TypeOf Ctl Is TextBox Then Ctl.Locked = Me.CurrentRecord Next End Sub

---

Si vous trouvez ce qui ne va pas!
Merci d'avance
Seb

déja dis ...

Private Sub Btn_Annuler_Lock_Click()
Dim Ctl As Control

For Each Ctl In Me.Controls
If Ctl.ControlType = acTextBox Then
Ctl.Locked = False
End If
Next Ctl
End Sub

Private Sub Form_Current()
Dim Ctl As Control

For Each Ctl In Me.Controls
If Ctl.ControlType = acTextBox Then
Ctl.Locked = True
End If
Next Ctl
End Sub