Discussion :

[JOHN14]

Bonjour à tous.

Le problème est simple : Sur un formulaire et je voudrais que lorsque je clique dessus un champ de l'enregistrement en cours prenne la valeur TRUE.

Code :

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

1
2
3
4
5
6
7
Private Sub btn_Clore_Click()
    With Me.Recordset
        .Edit
        !Est_Clos = True
        .Update
    End With
End Sub

L'ennui c'est : Quand j'arrive au niveau de ".Edit" j'ai le message d'erreur "Aucun enregistrement en cours. (Erreur 3021)".

Pourtant, je vois bien que l'enregistrement n'est pas nul puisque autres les valeurs s'affichent dans les autres champs du formulaire.

Cependant, lorsque je regarde les espions de "Me.Recordset" en mode debug je vois la bonne table dans les sources mais la valeur des champs affiche toujours :
"<Aucun enregistrement en cours.>"

Je ne comprends pas. Merci de votre aide.

Cordialement.

[nico84]

Bonjour,

Sauf erreur, le recordset est déjà édité par nature, il devrait donc suffire de taper

Code :

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

1
2
Est_Clos = True
refresh

Autre explication possible : le recordset est issu d'une requete complexe non éditable... Auquel cas aucun champ ne doit être modifiable dans la fenêtre !

[JOHN14]

Bonjour à tous.

Merci nico pour ta réponse.

En l'occurrence, je n'ai pas utilisé de requête. Le sous-formulaire est sourcé directement sur une table.
Bien sûr cette dernière est liée par jointure à la table du formulaire principal.

Par contre, il est nécessaire d'éditer le recordset avant de la modifier avec les instructions : ".Addnew" ou ".Edit" .
Mais les 2 notations fonctionnent : "Est_Clos" et "!Est_Clos" sont équivalents.

Cordialement

[nico84]

Par contre, il est nécessaire d'éditer le recordset avant de la modifier avec les instructions : ".Addnew" ou ".Edit" .

Addnew n'édite pas mais crée une nouvelle ligne
Edit n'a pas de sens sur le recordset en cours d'édition

btn_truc_click semble indiquer qu'il s'agit d'un bouton
Généralement les boutons sont dans le formulaire principal
Si c'est le cas la procédure doit appeler le recordset du sous-formulaire pour que cela fonctionne

[JOHN14]

Ok.

Addnew n'édite pas mais crée une nouvelle ligne
Edit n'a pas de sens sur le recordset en cours d'édition

Mais, il se trouve que cela ne fonctionnait pas sans ?!? Maintenant je l'ai retirer et cela fonctionne ?!?

Pour information, "btn_Clore" est un bouton bien sûr. Il est sur le sous-formulaire dont je veux modifier la table.

Décidément, ce n'est pas très clair pour moi.

Merci.