Discussion :

[samlepiratepaddy]

Slt,
J'avais un post avec une excellente explication de PapyTurbo sur ce même problème mais hélas il a disparu !
J'ai un conflit d'écriture sur une Update, bien sur, et je me souviens qu'il fallait enregistrer l'enregistrement afin de ne pas avoir de conflit d'écriture avec le

DoCmd.Close

donc j'ai fais ça

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
Private Sub Raccroché_Click()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Dim confirmation As Integer
confirmation = MsgBox("Confirmez, votre prospect à raccroché ?", vbYesNo)
Select Case confirmation
Case vbYes
Me.RésultatAppel = "Raccroché"
Me.HeureFermetureForm = Now
DoCmd.OpenQuery "R_CalculDuréeAppelConfirmation"
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
 
DoCmd.Close
Case vbNo
Me.RésultatAppel = "Quelqu un répond"
End Select
End Sub

J'ai essayé plein de chose comme

Me.Refresh

DoCmd.RunCommand acCmdSaveRecord

plus ce qu'il y a au dessus mais rien y fait !
Le conflit persiste ?
Je ne place pas le Docmd.Domenu..... au bonne endroit ????
Quelqu'un a une idée?
Merci d'avance..................

[samlepiratepaddy]

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
Private Sub Raccroché_Click()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Dim confirmation As Integer
confirmation = MsgBox("Confirmez, votre prospect à raccroché ?", vbYesNo)
Select Case confirmation
Case vbYes
Me.HeureFermetureForm = Now
Me.RésultatAppel = "Raccroché"
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.OpenQuery "R_CalculDuréeAppelConfirmation"
DoCmd.Close
Case vbNo
Me.RésultatAppel = "Quelqu un répond"
End Select
End Sub

Quel idiot !
Faut sauvegarder AVANT de lancer l'Update !!!
Par moment pas net Sam !