Opdatere med recordsæt

DoCmd.RunSQL "UPDATE Tabel1 Set felt1 = 10"

Hvis et felt skal tildeles værdien af et felt i en formular, kan du bruge flg.:

DoCmd.RunSQL "UPDATE Tabel1 Set felt1 =" & Me.felt1

Kan man ikke gøre det på samme måde som med oprettelse, for jeg gør det på den måde du beskriver og det bliver let rodet når der er mange ting med

You need to find the record whicg you want to update and then remove

rs.addnew 'This ADDS a record!

Hvis du blot skal redigere en record, ser koden således ud:

Sub GemChauf(ChaufførNavn, IkkeAnsat, AfdelingsID)
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Dim Ssql As String
Ssql = "Tbl_Chauffør"
Set rs = db.OpenRecordset(Ssql)

    rs.Edit
    rs!ChaufførNavn = ChaufførNavn
    rs!AnsatAfdeling = AfdelingsID
    rs!IkkeAnsat = IkkeAnsat
    rs!OprettelsesBruger = GetCurrentUserName
    rs!Datooprettelse = Now()
    rs.Update
rs.Close
End Sub

/Thomas

Thomas -> Hvordan ved den hvad record den skal opdatere?
Kan det ikke passe at i ssql sætningen skal se således ud: Select * from Tbl_Chauffør Where ID = ID?

nå, sorry....jo, du skal selvfølgelig netop sørge for at finde frem til den rigtige record.
Derfor kan du f.eks. medtage ChaufførID som paramter:

Sub GemChauf(ChaufførID as long, ChaufførNavn as string, IkkeAnsat, AfdelingsID as long)
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Dim Ssql As String
Ssql = "Select * from Tbl_Chauffør Where ID = " & ChaufførID
Set rs = db.OpenRecordset(Ssql)

    rs.Edit
    rs!ChaufførNavn = ChaufførNavn
    rs!AnsatAfdeling = AfdelingsID
    rs!IkkeAnsat = IkkeAnsat
    rs!OprettelsesBruger = GetCurrentUserName
    rs!Datooprettelse = Now()
    rs.Update
rs.Close
End Sub

rs.findfirst "ID = " & ID

Perfekt Thomas, det virker som det skal, og jeg undgik syntakt problemer med den anden metode. Points til dig

Selv tak :o)