Discussion :

[borisp]

Bonjour le forum,

Sur un formulaire de modification (ou des données de ma table sont chargés à partir d'un numéro de dossier), je souhaite dans mon bouton enregistrer, enregistrer l'enregistrement modifié et supprimer l'ancien (pour ne pas faire de doublons). Je ne peux pas réécrire dessus avec les maccros proposés car j'ai des calculs au sein de ce formulaire donc suis obligé de passer par le code. Cependant, je ne sais pas ou situer le code pour effacer l'enregistrement ancien désormais mis à jour. Voici mon code :

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
26
27
28
29
30
31
32
33
34
35
36
37
38
Private Sub bout_enregistrer_Click()
 
 
Dim COUTS_REELS As New ADODB.Recordset
COUTS_REELS.Open "COUTS_REELS", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
'COUTS_REELS.Delete 'supprime l'ancien enregistrement
COUTS_REELS.AddNew  'créé nouvel enregistrement avec stockage nouvelles données
 
COUTS_REELS![NUMERO_DOSSIER] = Me.NUM_DOSSIER_2.Value
 
COUTS_REELS![MATRICULE] = Me.MATRICULE.Value
 
COUTS_REELS![NOM_PRENOM] = Me.NOM_PRENOM.Value
 
COUTS_REELS!...
 
...
 
 
  MsgBox "Modification effectuée"
On Error GoTo bout_enregistrer_Click_Err
 
    'DoCmd.GoToRecord acForm, "MODIF_COUTS_REELS", acNext
 
COUTS_REELS.Update
 
 
DoCmd.Close acForm, "MODIF_COUTS_REELS"  ' Fermeture du formulaire
bout_enregistrer_Click_Exit:
    Exit Sub
bout_enregistrer_Click_Err:
    MsgBox Error$
    Resume bout_enregistrer_Click_Exit
 
 
    Else
 
 End Sub

Je pensais simplement mettre COUTS_REELS.Delete, mais je ne sais pas ou le mettre.

Merci d'avance pour votre aide !

[bernardmichel]

bjr,
Pourquoi ne pas simplement ouvrir un recordset contenant uniquement la ligne à modifier et inclure tes calculs dans le code ?

[borisp]

Je peux essayer mais je cette solution me paraissait plus facile, je ne connais pas bien le code et je ne sais pas lequel mettre pour modifier une seule ligne de ma table, celle de l'enregistrement en cours. Si vous pouvez m'éclairer ce serait top !

[bernardmichel]

En relisant - mieux - ton post, je ne comprends pas bien pourquoi, vu que tu es dans un formulaire, tu ne procèdes pas simplement à la modification en direct, avec - par exemple - une procédure "Après MAJ" qui recalcule simplement les différents champs de ton formulaire ?

[borisp]

Parce qu'en fait, l'utilisateur rentre des infos mois par mois et seulement le total est enregistré dans ma table. D'autres infos d'une autre table sont chargés sur le formulaire automatiquement (et non modifiables) en fonction d'un numéro.

Une image pour mieux comprendre :

[bernardmichel]

Pourquoi n'emploies-tu pas de sous-formulaire pour faire cela ?

[borisp]

pas bête j'avais pas pensé à cette possibilité
Tu proposes de mettre juste les mois dans le sous-formulaire c'est ca?

[bernardmichel]

Plus précisément, baser tes deux sous-formulaires (tels que l'image que tu as affiché) sur une table qui comprendrait au minimum:

• IdDossier (l'équivalent de ton "Dossier N°")
• Année (afin de pouvoir afficher telle ou telle année)
• JanvierCouts
• FevrierCouts
• ...
• JanvierFrais
• FévrierFrais
• ...

Ainsi, tu pourrais définir comme lien de parenté (Père-Fils) entre ton formulaire et tes sous-formulaires le Champ "IdDossier" du sous-form et le champ [Dossier N°] du formulaire principal

[borisp]

Merci pour ces réponses je vais tester ca!