1 pièce(s) jointe(s)
Déverrouiller un champ de formulaire seulement à l'ajout d'un nouvel enregistrement (C'est lundi...)
Bonjour,
On reprend du collier. Voici ce que j'ai fait pour ajouter la fonction "Updated" en utilisant l'assistant.
Déverrouiller un champ de formulaire seulement à l'ajout d'un nouvel enregistrement (Eurêka !)
Bonjour Jeannot45,
Ça marche ! J'avais essayé quelque chose de très similaire et je n'avais pas réussi parce que je me gourais dans la syntaxe. Merci encore !
Merci aussi à Fsmrel d'avoir tant essayé !
Je reviendrai sûrement sur ce forum qui est vraiment de haut calibre !
À bientôt !
LJubi.;):applo::bravo:
Déverrouiller un champ de formulaire seulement à l'ajout d'un nouvel enregistrement (Fausse alerte...)
Bonjour,
:roll: Ça ne marche pas tout à fait. Je n'arrive pas à trouver l'événement approprié pour remettre mon champ [Numero dossier] à locked. J'ai essayé "LostFocus()" mais ça le reverrouille trop tôt et je ne peux inscrire mon numéro de dossier.
Mon code donne ceci :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| Option Compare Database
Option Explicit
Private Sub Commande79_Click()
' Atteint un nouvel enregistrement
DoCmd.GoToRecord , , acNewRec
With Me.[Numero dossier]
' Déverrouillage du champ
.Locked = False
' Positionne le focus sur le champ
.SetFocus
End With
End Sub
J'AI MIS CETTE PORTION EN COMMENTAIRES, parce que le champ [Numero dossier] restait débarré même après l'ajout du numéro de dossier.
--------------------------------------------
'Private Sub NumeroDossier_AfterUpdate()
' Reverrouillage du champ
'Me.[Numero dossier].Locked = True
'End Sub
---------------------------------------------
Private Sub Commande79_LostFocus()
' Reverrouillage du champ
Me.[Numero dossier].Locked = True
End Sub |
Déverrouiller un champ de formulaire seulement à l'ajout d'un nouvel enregistrement (Bon, bon, bon...)
Ne m'en veuillez pas, je suis débordée aujourd'hui et je fais tout à la vitesse Grand V :fou: :lefou:. Donc...
Ça marche, c'est confirmé !!!!:lahola:
Je vous promets d'être plus Zen la prochaine fois...:sleep::zen:
Le code final (celui même qui m'a été suggéré) :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Option Compare Database
Option Explicit
Private Sub Commande79_Click()
' Atteint un nouvel enregistrement
DoCmd.GoToRecord , , acNewRec
With Me.[Numero dossier]
' Déverrouillage du champ
.Locked = False
' Positionne le focus sur le champ
.SetFocus
End With
End Sub
Private Sub Numero_dossier_AfterUpdate()
' Reverrouillage du champ
Me.Numero_dossier.Locked = True
End Sub |