Hallo,
Ik heb een excel formulier waarvan ik data middels VBA exporteer naar een access tabel. Dit gaat goed.
Echter wil ik de data ook updaten op het moment dat de data op het formulier wijzigd behalve de primary key. Alleen nu krijg ik die code niet in elkaar hij blijft aangeven dat hij problemen heeft met de key.
Kan iemand mij helpen.
Dit is de code waarvan ik dacht dat het zou werken.
Set db = OpenDatabase("H:\Successionplanning Access Tool\test.mdb")
' open the database
Set rs = db.OpenRecordset("Test_Tabel_1", dbOpenTable)
' get all records in a table
With rs
.Index
.seekRange("I11").Value
.Edit ' update the record
'add values to each field in the record
.Fields("register_nr") = Range("I11").Value
.Fields("Naam") = Range("I9").Value
' add more fields if necessary...
.update ' stores the changes
End With
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
Ik heb een excel formulier waarvan ik data middels VBA exporteer naar een access tabel. Dit gaat goed.
Echter wil ik de data ook updaten op het moment dat de data op het formulier wijzigd behalve de primary key. Alleen nu krijg ik die code niet in elkaar hij blijft aangeven dat hij problemen heeft met de key.
Kan iemand mij helpen.
Dit is de code waarvan ik dacht dat het zou werken.
Set db = OpenDatabase("H:\Successionplanning Access Tool\test.mdb")
' open the database
Set rs = db.OpenRecordset("Test_Tabel_1", dbOpenTable)
' get all records in a table
With rs
.Index
.seekRange("I11").Value
.Edit ' update the record
'add values to each field in the record
.Fields("register_nr") = Range("I11").Value
.Fields("Naam") = Range("I9").Value
' add more fields if necessary...
.update ' stores the changes
End With
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing