Opret post

Beskrivelse

Opret post i database

Tja... Det kan gøres som vist nedenfor:

Private Sub cmdOpret_Click()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("tblTidsreg")
    
    rs.AddNew
    rs("Dato") = Date
    rs("BrugerID") = 1
    rs("OpgaveID") = 1
    rs("Tid") = CDbl(txtOpgave)
    rs.Update
    
    rs.Close
End Sub

Øvelse

Opret en kopi af en af de tidligere databaser og kald den "Opret.mdb".

Lav en procedure, der opretter en post i tabellen.

Pak databasen sammen eller omdøb den og send den til mig.

Løsning

Hent mit forslag til løsningen her.

Koden ser sådan her ud:

Sub OpretKunde()     Dim db As Database     Dim rs As Recordset     Set db = CurrentDb     Set rs = db.OpenRecordset("Kunder")     rs.AddNew     rs("Firma") = "Ny kunde"     rs("Postnr") = 0     rs.Update     rs.Close     Set rs = Nothing     Set db = Nothing End Sub

Forrige Ret data

Næste Gennemløb af data

Brug for hjælp til VBA, VSTO eller SQL?

Scient Data tilbyder professionel IT-konsulentbistand

Kontakt Scient Data →