Discussion :

[LJubi]

Bonjour,

On reprend du collier. Voici ce que j'ai fait pour ajouter la fonction "Updated" en utilisant l'assistant.

[fsmrel]

Bonjour LJubi,

Et les guillemets ? "[Numero Dossier]"

[LJubi]

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.

[fsmrel]

Certes, pour un formulaire donné, on peut contrôler les opérations vis-à-vis de la table, mais en dehors de ce formulaire, on peut contourner comme on veut, d'où l'intérêt des triggers si l'on se place à un niveau plus général, je sens toutefois que, pour le moment, ces derniers vous agacent un tantinet, et je vous comprends...

En tout cas, bonne route !

[LJubi]

Bonjour,

Ç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 :

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

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

[LJubi]

Ne m'en veuillez pas, je suis débordée aujourd'hui et je fais tout à la vitesse Grand V . Donc...

Ça marche, c'est confirmé !!!!

Je vous promets d'être plus Zen la prochaine fois...

Le code final (celui même qui m'a été suggéré) :

Code :

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

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