AMNESIA !!! ARG }(

<Programkode>
Option Compare Database
Option Explicit
Public MedArb As Long
Public wkDato As Date, Starttid As Date, Sluttid As Date, ForbrugtTid As Integer, Kode As Integer, PoliceID As Long

Sub OpretLog(ByVal Kundenummer As String, ByVal PoliceID As String, ByVal Medarbejder As Integer, ByVal Kode As Integer, _
ByVal Tekst As String, ByVal Dato As Date, ByVal Starttid As Date, ByVal Sluttid As Date, ByVal ForbrugtTid As Long, _
  ByVal Opgave As Integer, ByVal Rykker As Boolean, ByVal Rykkerdato As Date, ByVal Faktureres As Boolean, _
  ByVal FaktureresInternt As Boolean, ByVal Begrundelse As String, ByVal FaktDato As Date)
   
    Dim dbs As Database
    Dim rst As Recordset

    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset(\"Aktiviteter\", dbOpenDynaset)
   
    With rst
        .AddNew
        !PoliceID = PoliceID
        !Kundenummer = Kundenummer
        !Udført = MedArb
        !Aktivitetskode = Kode
        !Arbejdsbeskrivelse = Tekst
        !Arbejdsdato = Dato
        !TidFra = Starttid
        !TidTil = Sluttid
        !ForbrugtTid = ForbrugtTid
        !STATUS = Opgave
        ![På Rykkerliste] = Rykker
        !Rykkerdato = Rykkerdato
        ![Til Fakturering] = Faktureres
        !IntFakt = FaktureresInternt
        !Begrundelse = Begrundelse
        !FaktDato = FaktDato
        .Update
        .Close
    End With
   
    Set dbs = Nothing

End Sub
</Programkode>

}(