DoCmd.SelectObject acTable, "VotreTable", True
DoCmd.RunCommand acCmdNewObjectAutoForm

Sub NouvForm(ByVal NomTable As String)

Dim frm As Form
Set frm = CreateForm
With frm
.RecordSource = NomTable
.RecordsetType = 0
.Caption = NomTable
.DefaultView = 2
.ViewsAllowed = 2
.ScrollBars = 0
.NavigationButtons = True
End With
AjouterTB frm, NomTable
DoCmd.Restore
DoCmd.Close acForm, frm.Name, acSaveYes
End Sub

Sub AjouterTB(f As Form, s As String)
    Dim rs As Recordset
    Dim fld As Field
    Dim c As Control
    Dim l As Control
    Dim i As Long
    Set rs = CurrentDb.OpenRecordset(s, dbOpenSnapshot)
    For Each fld In rs.Fields
        Set c = CreateControl(f.Name, acTextBox, acDetail, "", fld.Name, 1440, 360 * i, 1440, 360)
        Set l = CreateControl(f.Name, acLabel, , c.Name, fld.Name, 0, 360 * i)
        i = i + 1
    Next
End Sub

Application.SetHiddenAttribute acTable, NomdeTaTable, True

Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("SELECT MAX([Nombre])AS Maximum FROM [Chiffre]")
Me!txt_1 = rst!Maximum 'txt_1 est une zone de texte
rst.Close

Sub lier()
Dim strMotPasse As String
Dim strCheminBd As String
Dim strNomTable As String
Dim strConnect As String
Dim oDb As DAO.Database
Dim oTbl As DAO.TableDef

' Définit mot passe, nom table, chemin base de données
strMotPasse = "pass"
strCheminBd = "c:\test.mdb"
strNomTable = "Table1"
' Instancie l'objet Database
Set oDb = CurrentDb
' Définit la chaîne de connexion permettant la liaison
strConnect = "MS Access;pwd=" & strMotPasse & ";DATABASE=" & strCheminBd
' Crée la nouvelle table
Set oTbl = oDb.CreateTableDef(strNomTable)
With oTbl
    .Connect = strConnect
    .SourceTableName = strNomTable
End With
' Ajoute la table à la base de données
oDb.TableDefs.Append oTbl: oDb.TableDefs.Refresh
End Sub

Sub lierToutes()
Dim strMotPasse As String
Dim strCheminBd As String
Dim strConnect As String
Dim strNomsTables() As String
Dim strTemp As String
Dim i As Integer
Dim oDb As DAO.Database
Dim oDbSource As DAO.Database
Dim oTbl As DAO.TableDef
Dim oTblSource As DAO.TableDef

' Définir mot passe et chemin base de données
strMotPasse = "pass"
strCheminBd = "c:\test.mdb"
' Définit la chaîne de connexion permettant la liaison des tables
strConnect = "MS Access;pwd=" & strMotPasse & ";DATABASE=" & strCheminBd
' Instancie l'objet Database de la base courante
Set oDb = CurrentDb
' Instancie l'objet Database de la base protégée
Set oDbSource = DBEngine.OpenDatabase(strCheminBd, True, True, strConnect)

' Parcourt l'ensemble des tables de la base de données protégée
' et stocke leur nom
For Each oTblSource In oDbSource.TableDefs
    ' Ignore les tables system
    If (oTblSource.Attributes And dbSystemObject) = 0 Then
        strTemp = strTemp & oTblSource.Name & "|"
    End If
Next
' Ferme la base de données source (impératif pour la liaison)
oDbSource.Close: Set oDbSource = Nothing
' Parcourt le tableau de noms de tables
strNomsTables = Split(Left(strTemp, Len(strTemp) - 1), "|")
For i = 0 To UBound(strNomsTables)
  ' Crée une nouvelle table dans la base de données courante
  Set oTbl = oDb.CreateTableDef(strNomsTables(i))
  ' Lie les deux tables
  oTbl.Connect = strConnect
  oTbl.SourceTableName = strNomsTables(i)
  ' Ajoute la table à la base de données
  oDb.TableDefs.Append oTbl
Next i

' Rafraichit la liste des tables
oDb.TableDefs.Refresh
End Sub

rst.AddNew

Debug.print rst("Code Ville") ' <---' Vous obtenez le code qui est un NuméroAuto
' Ajout d'autres informations
rst("Nom Ville") = "TEST"
rst("Code postal") = "57000"
rst.Update

rst.AddNew
rst("Nom Ville") = "TEST"
rst("Code postal") = "57000"
rst.Update
Debug.Print rst("Code ville")

Private Sub Form_BeforeInsert(Cancel As Integer)
Dim rs As DAO.Recordset

Set rs = CurrentDb.OpenRecordset(Me.RecordSource, dbOpenSnapshot)

   If rs.EOF Then
   Me!Num = 1
   Else
   rs.MoveLast
   Me!Num = rs!Num + 1
   End If

rs.Close
Set rs = Nothing

End Sub

Public Function Init_numeroAuto()
Dim rs As DAO.Recordset
Dim i As Long

On Error Resume Next

Set rs = CurrentDb.OpenRecordset("Table1", dbOpenDynaset)

i = 1

   While Not (rs.EOF)
   rs.Edit
   rs!Num = i
   rs.Update
   
   rs.MoveNext
   i = i + 1
   Wend

rs.Close
Set rs = Nothing

End Function

Select Max(monchampAuto) From matable;

Select @@identity From maTable;

Function PurgeErreurs()
 
Dim tbl As TableDef
For Each tbl In CurrentDb.TableDefs
 If InStr(tbl.Name, "importerrors") or Instr(tbl.Name, "PasteErrors") Then
    Debug.Print "Effacement de " & tbl.Name
    CurrentDb.TableDefs.Delete tbl.Name
 End If
Next tbl
 
Set tbl = Nothing
 
End Function