Bonjour à tous,
Je suis nouvel utilisateur d'Access car je fais le suivi de projet de mon prédécesseur qui a mis au point un logiciel au sein de l'entreprise à l'aide d'Access. Aujourd'hui je suis confronté à un problème qui devient urgent, je ne parviens pas à faire la mise à jour de la base de données clients du logiciel, sensée se faire via un tableau Excel. Mon prédécesseur étant difficilement joignable, il m'a juste dit que les 2 tableaux devaient être identiques pour que la MaJ se fasse, condition qui est remplie...mais rien n'y fait, un message d'erreur apparaît quand j'essaie:
Le code utilisé est le suivant:
Je ne sais pas si mon message est assez clair, mais je suis complètement nouveau sur Access, je ne m'y mets que depuis que je dois faire le suivi de ce logiciel. Merci d'avance pour votre aide.
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 Private Sub MaJ_Liste_Clients_Click() On Error GoTo Err: Dim Nom_Fichier As String Nom_Fichier = LaunchCD(Me) If Nom_Fichier <> "" Then DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "Importation liste Clients", Nom_Fichier, True DoCmd.SetWarnings False DoCmd.OpenQuery "Ajout nouveaux Clients", acNormal DoCmd.OpenQuery "MaJ Liste Clients", acNormal DoCmd.RunSQL "DELETE * FROM [Importation liste Clients]" DoCmd.SetWarnings True MsgBox "Mise à Jour effectuée" End If Exit Sub Err: MsgBox "Une erreur est survenue : " & Chr(13) & Chr(13) & "Erreur N° : " & Err.Number & " : " & Err.Description & Chr(13) & Chr(13) & "Lors de l'exécution de l'application : " & Err.Source
Partager