Tilføje en ny record til en tabel via kode

Docmm.setwarnings false
docmd.runsql "Insert Into [DinTabel] ( ID, Felt2, felt3 ) Values (1000, 'la bla' 'ej')"
docmd.Setwarnings true

'thomasjepsen' Ja den virker i same db, hvad nu hvis koden ligger i tilsende opdatering (opdaterings db) og ændringerne skal lave i en anden db (back-end)

Dim dbs As Database
Set dbs = OpenDatabase("Db14.mdb")
'skal bruge en full path, hvis de ikke ligger i samme drev eller dir.
Docmm.setwarnings false
docmd.runsql "Insert Into [DinTabel] ( ID, Felt2, felt3 ) Values (1000, 'la bla' 'ej')"
docmd.Setwarnings true

Db14 skal udskiftes med navnet på din database.  :o)

'thomasjepsen' og 'henrik13' får fejl på følgende kode "compile error" og "user difened type not defined"?

Private Sub Command1_Click()

Dim dbs As Database
Set dbs = OpenDatabase("c:\company shared folders\shiptoolDATA.mdb")

DoCmd.SetWarnings False
DoCmd.RunSQL "Insert Into [tblUserData] ( fldUserID, fldUserName, fldUserPass ) Values ('Jan', 'la bla', 'ej')"
DoCmd.SetWarnings True
MsgBox "Opdateret", vbInformation, "Add user"


End Sub

for at bruge Henriks kode, skal du have en reference til Microsoft DAO 3.x Object Library.
(Tools->References i VBA-editoren)

'thomasjepsem' Fik fejlmeldingen væk og koden køres, men der kommer ingen record i tabellen [tblUserData], hvad mon det kan være

Ah, det er først nu, at jeg ser at Henriks kode slet ikke duer. Ideen er god nok, men med denne kode er det ikke i den eksterne database, at posten bliver tilføjet.
Prøv denne:

Private Sub Command1_Click()

Dim dbs As Database
Set dbs = OpenDatabase("c:\company shared folders\shiptoolDATA.mdb")

dbs.execute "Insert Into [tblUserData] ( fldUserID, fldUserName, fldUserPass ) Select 'Jan', 'la bla', 'ej'"

MsgBox dbs.recordsaffected & " poster blev tilføjet", vbInformation, "Add user"
End Sub

Tak til 'thomasjepsen' og 'henrik13' det funkede
JAN

'thomasjepsen' Hvis jeg nu skal have slettet en record før oprettese af ny record, hvordan ser koden ud?

Dim dbs As Database
Set dbs = OpenDatabase("c:\company shared folders\shiptoolDATA.mdb")

dbs.Execute "Insert Into [tblUserData] ( fldUserID, fldUserName, fldUserPass ) Select 'pvs', 'Peter Valdemar Stokbro', 'givape'"

If dbs.RecordsAffected = 0 Then

MsgBox "User allready added", vbInformation
Else

MsgBox dbs.RecordsAffected & " Record(s) were added", vbInformation, "Add user"
End If

DoCmd.Quit

Hvis fldUserID er unikt, så skal det se således ud:

Dim dbs As Database
Set dbs = OpenDatabase("c:\company shared folders\shiptoolDATA.mdb")

Dbs.execute "Delete From tblUserData Where fldUserID = 'pvs'"
dbs.Execute "Insert Into [tblUserData] ( fldUserID, fldUserName, fldUserPass ) Select 'pvs', 'Peter Valdemar Stokbro', 'givape'"

If dbs.RecordsAffected = 0 Then

MsgBox "User allready added", vbInformation
Else

MsgBox dbs.RecordsAffected & " Record(s) were added", vbInformation, "Add user"
End If

DoCmd.Quit