Modifier un seul enregistrement formuliare tabulaire

Bonjour à tous et à toutes,

J'ai un formulaire en mode tabulaire pour le suivi des cotisations d'adhérents.
Sur activation j'ai ceci :

Code:

---

1 2 3 4 5

Private Sub Form_Current()   Me.AllowEdits = False   End Sub

---

Je ne peux donc modifier intempestivement une donnée du formulaire.

J'ai un bouton "Modifier" avec ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Modification1_Click()   Dim Ctl As Control For Each Ctl In Me.Détail.Controls If (Ctl.ControlType = acTextBox) Or (Ctl.ControlType = acComboBox) Or (Ctl.ControlType = acCheckBox) Then Ctl.Locked = False End If Next Ctl   End Sub

---

Avec cette procédure, je débloque TOUS les contrôles du formulaire.
Or je ne voudrais débloquer que les seuls contrôles de l'enregistrement sélectionné.
Comment procéder et quel code associer à un bouton "Valider la modification actuelle" avant de pouvoir passer à un autre enregistrement ?

Merci de votre aide.

A+

c15

Bonjour,

Dans ce genre de situation, je ne permets pas une modification "globale" de tous les champs.

J'autorise la modification d'une zone de texte en double-cliquant dessus et re-vérouille la zone de texte après mise à jour.

Cordialement.

Bonsoir,

Pour être plus précis j'ai un grand nombre de case à cocher correspondant aux cotisations à payer et autant de zones de texte correspondant aux cotisations dues.
Quand je coche une Cac la cotisation due correspondante passe à 0.

Par contre j'ai un souci avec les procédures rappelées dans le post ci-dessous.
En effet, le code du bouton "Modifier" ne m'autorise pas les modifs quel que soit l'enregistrement

Merci de ton aide.
A+
C15

Bonjour,

Je ne comprends pas ce qui se passe.
Tu dis que :

Citation:

---

Avec cette procédure, je débloque TOUS les contrôles du formulaire.

---

Et après :

Citation:

---

En effet, le code du bouton "Modifier" ne m'autorise pas les modifs quel que soit l'enregistrement

---

On peut avoir un aperçu du formulaire et sa source s'il te plait.

Cordialement.

Bonjour,

J'ai vérifié tout cela et adresse en PJ le formulaire incriminé.

Je crois avoir compris, il est basé sur une requête analyse croisée.
sa source :

Code:

---

1 2 3 4 5 6 7

TRANSFORM Sum(T_Cotisation.Cotisation_Du) AS SommeDeCotisation_Du SELECT [T Adhérents].N°Adherent, [T Adhérents].Nom, [T Adhérents].Prenom, [T Adhérents].MiseAJour, [T Adhérents].DateAdhesion, [0_R_COTISATIONS_ANNEE_0_+_4_SUIVANTES].Total, [T Adhérents].Adherent FROM ([T Adhérents] INNER JOIN [0_R_COTISATIONS_ANNEE_0_+_4_SUIVANTES] ON [T Adhérents].N°Adherent = [0_R_COTISATIONS_ANNEE_0_+_4_SUIVANTES].N°Adherent) INNER JOIN T_Cotisation ON [T Adhérents].N°Adherent = T_Cotisation.T_Adherent_FK WHERE ((([T Adhérents].Adherent)=True)) GROUP BY [T Adhérents].N°Adherent, [T Adhérents].Nom, [T Adhérents].Prenom, [T Adhérents].MiseAJour, [T Adhérents].DateAdhesion, [0_R_COTISATIONS_ANNEE_0_+_4_SUIVANTES].Total, [T Adhérents].Adherent ORDER BY [T Adhérents].Nom, [T Adhérents].Prenom PIVOT T_Cotisation.Cotisation_An;

---

C'est sans doute pour cela que je ne peux modifier les enregistrements via le code suivant associé à mon bouton "Modifier"

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Modification1_Click()   Me.AllowEdits = True Dim Ctl As Control For Each Ctl In Me.Détail.Controls If (Ctl.ControlType = acTextBox) Or (Ctl.ControlType = acComboBox) Or (Ctl.ControlType = acCheckBox) Then Ctl.Locked = False End If Next Ctl End Sub

---

Pour info cela fonctionne bien sur le contrôle test mis en en-tête de formulaire mais pas sur les autres.
Le but recherché : je coche la case C2017 pour valider la réception de la cotisation et la zone de texte Du_2017 passe à 0

Code:

---

1 2 3

Private Sub C2017_Click() Me.Du_2017.Value = 0 End Sub

---

Y a t il un moyen de contourne le problème ?
En effet j'ai bien des formulaires uniques associés à chaque adhérent, mais par exemple suite à l'assemblée générale l'on doit enregistrer toutes les cotisations reçues un formulaire tabulaire est nettement plus pratique.

Bonjour,

Oui, effectivement si ton formulaire est basé sur une requête analyse croisée, tu ne peux pas mettre à jour directement les données.

Mais si l'opération consiste à mettre à jour les enregistrements d'une table, il (suffirait) de faire une requête mise à jour (ou peut-être ajout, vu que si j'ai bien compris tu as modifié la structure de ta base). Cela ne devrait pas être difficile, vu que tu as le numéro de référence de ton adhérent dans le formulaire en question.

Cordialement.

Bonjour,

J'avoue ne pas trop comprendre comment une requête mise à jour me permettrait de résoudre mon problème.

Je reprécise mon besoin :
faire un formulaire où, adhérent par adhérent, j'ai les cotisations à payer (C1983 à C2035) qui sont des cases à cocher, et les cotisations dues (Du1983 à 2035) zones de texte où apparaissent soit 25 soit 0 si c'est payé (c'est en cliquant sur C2017 que la Du2017 passe à 0)
Ce formulaire devrait être présenté comme l'exemple joint (basé sur une structure différente de ma base)

Cela pourrait être fait à partir de ceci

Code:

---

1 2

SELECT [T Adhérents].N°Adherent, [T Adhérents].Nom, [T Adhérents].Prenom, [T Adhérents].DateAdhesion, [T Adhérents].Adherent, T_Cotisation.Cotisation_An, T_Cotisation.Cotisation, T_Cotisation.Cotisation_Du FROM [T Adhérents] INNER JOIN T_Cotisation ON [T Adhérents].N°Adherent=T_Cotisation.T_Adherent_FK;

---

Sauf que j'ai autant de lignes par adhérent que d'années d'adhésion.

Sans doute faut-il passer par une autre requête pour qu'à chaque année (T_Cotisation.Cotisation_An) corresponde 1 colonne.

Merci de ton aide.
A+

C15

Bonjour,

Je vais clore cette discussion et essayer de reposer le problème sous une autre forme

Merci