Champ numéro automatique d'office a chaque table [Résolu/Fermé]

Signaler
Messages postés
151
Date d'inscription
lundi 3 juillet 2017
Statut
Membre
Dernière intervention
25 août 2020
-
Messages postés
151
Date d'inscription
lundi 3 juillet 2017
Statut
Membre
Dernière intervention
25 août 2020
-
Bonjour,
Je souhaite que a chaque creation mes tables
soient initialiser avec un champ numéro automatique
dans ma base
merci d'avance
Cordialement

1 réponse

Messages postés
16008
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
13 juin 2021
867
bonjour, as-tu envisagé de créer un champ de ce type dans chaque table?
Messages postés
151
Date d'inscription
lundi 3 juillet 2017
Statut
Membre
Dernière intervention
25 août 2020

Re
pour cause de mise a jour plusieurs fois par jours
Avec cet macro qui supprime la table CLIENTS dans ma base MES OBJECTIFS
et exporter la feuille CLIENTS dans le fichier a jour PROJECTION vers ma base MES OBJECTIFS
je souhaite automatiser cette tache en un click
mais

je ne sais pas comment faire pour que ma nouvelle table soit créer avec a gauche un champ
numéro auto nommer ID?
Si tu a une solution merci d'avance
Cordialement

Public Const Fichier$ = "C:\Downloads\Excel_Table_Access\MES OBJECTIFS.accdb"

Sub Insertion_Donnees()
Dim acc As New Access.Application
Dim db As DAO.Database
Dim CheminBase As String
On Error Resume Next
CheminBase = ThisWorkbook.Path & "\MES OBJECTIFS.accdb"
Set db = OpenDatabase(CheminBase)
db.TableDefs.Delete "CLIENTS"
acc.OpenCurrentDatabase Fichier
acc.DoCmd.TransferSpreadsheet acImport, 8, "CLIENTS", "PROJECTION.xlsx", True, "A1:K14000"
acc.CloseCurrentDatabase
Set acc = Nothing
End Sub
Messages postés
16008
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
13 juin 2021
867 >
Messages postés
151
Date d'inscription
lundi 3 juillet 2017
Statut
Membre
Dernière intervention
25 août 2020

ne serait-ce pas mieux de vider la table CLIENTS sans la supprimer?
Messages postés
151
Date d'inscription
lundi 3 juillet 2017
Statut
Membre
Dernière intervention
25 août 2020
>
Messages postés
16008
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
13 juin 2021

Re
oui mais comment faire ?
Messages postés
16008
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
13 juin 2021
867 >
Messages postés
151
Date d'inscription
lundi 3 juillet 2017
Statut
Membre
Dernière intervention
25 août 2020

db.Execute "DELETE * FROM CLIENTS"
Messages postés
151
Date d'inscription
lundi 3 juillet 2017
Statut
Membre
Dernière intervention
25 août 2020

Re
ok merci beaucoup