CHARGE UNE TABLE ACCESS

---

Auteur : NDuf

Ecrire un message privé
Commentaire sur cette source (3)
Ajouter un commentaire et/ou une note

Private Sub Access()
dim Nomtable as recordset
dim dbb as database
dim chain as string
    'COPIE DANS ACCESS

    Chain = ("emplacement du fichier")
    If Right$(Chain, 1) <> "\" Then Chain = Chain & "\"
    Set dbb = DBEngine.Workspaces(0).OpenDatabase(Chain & "Nomfichieraccess.mdb")
    Set NomTable = dbb.OpenRecordset("NomTableAccess", dbOpenTable)
    NomTable.Index = "index à choisir"
    NomTable.Edit
      
    
    NomTable("Champ de la table access") =  valeur souhaitée ( exmple valeurtext de la form VB...
    
    
    
    
    
    
    NomTable.Update
    NomTable.Close
    Set NomTable = Nothing
   set dbb = nothing
      
      
End Sub