Discussion :

[seb59dk]

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

[Tofalu]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Faw]

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...

[seb59dk]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Tofalu]

L'évenement à utiliser à priori est form_current

[seb59dk]

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

[seb59dk]

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

[seb59dk]

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

[Faw]

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)
Ton NewRec n'est plus un NewRec (Enregistré)
Tu ne peux plus compléter la saisie de celui ci.

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

[seb59dk]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Vesta]

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