Champ numéro automatique d'office a chaque table

Résolu
pyrus2047 Messages postés 153 Date d'inscription   Statut Membre Dernière intervention   -  
pyrus2047 Messages postés 153 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
Je souhaite que a chaque creation mes tables
soient initialiser avec un champ numéro automatique
dans ma base
merci d'avance
Cordialement

A voir également:

1 réponse

yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
bonjour, as-tu envisagé de créer un champ de ce type dans chaque table?
0
pyrus2047 Messages postés 153 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > pyrus2047 Messages postés 153 Date d'inscription   Statut Membre Dernière intervention  
 
ne serait-ce pas mieux de vider la table CLIENTS sans la supprimer?
0
pyrus2047 Messages postés 153 Date d'inscription   Statut Membre Dernière intervention   > yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention  
 
Re
oui mais comment faire ?
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > pyrus2047 Messages postés 153 Date d'inscription   Statut Membre Dernière intervention  
 
db.Execute "DELETE * FROM CLIENTS"
0
pyrus2047 Messages postés 153 Date d'inscription   Statut Membre Dernière intervention  
 
Re
ok merci beaucoup
0