Bonjour,
J'aurai besoin de votre aide sur un problème liée au déploiement de mon application. J'ai séparé ma base de donnée en deux, l'une contenant les tables et l'autre contenant les formulaires et requête.
Pour permettre aux utilisateurs de ne pas sauvegarder leurs données j'ai mis en place ce code :
Au chargement du formulaire
DoCmd.CopyObject , "Table_copy_Tpstrav", acTable, "T_Temps_de_travail"
A la fermeture du formulaire :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| cr = MsgBox("Voulez-vous enregistrer les modifications effectuées ?", vbYesNo + vbQuestion, "Annonce")
If cr = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL ("DROP TABLE Table_copy_tpstrav")
DoCmd.SetWarnings True
ElseIf cr = vbNo Then
MsgBox " Si vous changez le taux horaire celui-ci ne sera pas pris en compte", vbExclamation + vbOKOnly
DoCmd.SetWarnings False
DoCmd.CopyObject , "T_Temps_de_travail", acTable, "Table_copy_Tpstrav"
DoCmd.RunSQL ("DROP TABLE Table_copy_Tpstrav")
DoCmd.SetWarnings True
saveGamme
bouton_stop_tps_deplacement.Enabled = True
DoCmd.Close
Exit Sub
End If |
Voila le problème est que ce code marchait très bien avant la séparation en deux bases et maintenant le delete sur la table T_temps_de_travail supprime également les informations de la table Table_copy_Tpstrav
Est-ce que quelqu'un aurait une solution?
Merci
Partager