Add et delete de record qui s'affichent mal
Bonjour,
question sans doute dèjà 1000 fois posée, mais désolé je ne trouve pas la parade.
Le formulaire principal de mon application affiche des "Evènements", basés sur une table Events.
Via un formulaire appelé en cascade, j'importe des évènements complémentaires dans cette table Events, après les avoir effacés au préalable s'ils existent.
Le code fait donc des Delete des anciens records :
Code:
1 2 3 4 5 6 7
|
'Delete Linked Events
Entry_Events.FindFirst (Criteria_Events)
While Not Entry_Events.NoMatch
Entry_Events.Delete
Entry_Events.FindNext (Criteria_Events)
Wend |
et des ajouts de nouveaux :
Code:
1 2 3 4 5 6 7 8
| R_Imports.FindFirst (Criteria_Imports)
While Not R_Imports.NoMatch
R_Events.AddNew
'....
R_Events.Update
End If
R_Imports.FindNext (Criteria_Imports)
Wend |
En fin de proc je ferme bien tous les recordset et mets bien tous à Nothing.
Mon problème : Quand je reviens sur mon form principal "Events", les record supprimés apparaissent tous avec #delete dans les champs et les nouveaux records ne sont ni comptabilisés, ni visibles.
La méthode requery ne donne rien.
Fermer et rouvrir le formulaire ne donne rien.
Fermer l'application et la rouvrir rectifie l'ensemble.
Comment puis-je faire cela par code sans sortir ?
Faut-il prendre des précautions pour ne pas être dans le formulaire Event sur un record qui va être supprimé, comme par exemple fermer le formulaire et le rouvrir après l'import ?
Merci d'avance.