Champ numéro automatique d'office a chaque table
Résolu
pyrus2047
Messages postés
156
Statut
Membre
-
pyrus2047 Messages postés 156 Statut Membre -
pyrus2047 Messages postés 156 Statut Membre -
Bonjour,
Je souhaite que a chaque creation mes tables
soient initialiser avec un champ numéro automatique
dans ma base
merci d'avance
Cordialement
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
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
bonjour, as-tu envisagé de créer un champ de ce type dans chaque table?-
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 -
-
