Lave modpost i regnskab

try using the After Insert event on the form along with DoCmd.RunSQL "INSERT INTO ...."

Jeg er ikke så stærk i dette, så jeg skal lige have det uddybet lidt.
Jeg ved ikke om det har noget at sige at det laves i access 2007

Here is a very simple example, hope it gives you some ideas.

Private Sub Form_AfterInsert()
Dim sSQL As String
Dim cDebet As Currency
Dim cKredit As Currency
Dim tKontoNr As String
Dim tModKonto As String


    'Default values are set to 0 in table design
    If Me.Debet = 0 Then
        cDebet = Me.Kredit
        cKredit = 0
        tKontoNr = "2000"
        tModKonto = "Bank"
    Else
        cKredit = Me.Debet
        cDebet = 0
        tKontoNr = "1000"
        tModKonto = "Bank"
    End If
   
    sSQL = "INSERT INTO tblKonto (BilagNr, KontoNr, tekst, Debet, Kredit, modkonto) VALUES(" & Me.BilagNr & ", '" & tKontoNr & "', '" & Me.Tekst & "', " & cDebet & ", " & cKredit & ", '" & tModKonto & "')"

    DoCmd.RunSQL sSQL
    Me.Requery
   
End Sub

You obviously need to enter the first line through a form and the code is for the after insert event for the form

can you use this?

Jeg får en fejl Outputtabel "tblKonto" blev ikke fundet.

Kan ikke lige se hvor det går galt

Min tabel som jeg skal gemme det i hedder Konto

You wrote

sSQL = "INSERT INTO tblKonto

so change tblKonto to Konto

Sorry, I wrote an example SQL you need to alter this to reflect the table/field names you have in your tbale

Det virker, men den kommer med en popup billed, hvor den spørg om man vil indsætte e post, kan det fjernes?

Yes you can use
DoCmd.SetWarnings False

just before DoCmd.RunSQL sSQL

then

DoCmd.SetWarnings True

after

did that hlep at all?

Ja det virker.
Jeg forsøgte med at kopier datoen med vider, ved bare at indføre den i sql'en, men kan ikke lige få det til at virke.

Feltet er defineret som dato felt

Skal den indsættes som noget specielt?

Date field is like a string which has to be encloded in single quotes

Kan du vise mig hvordan jeg skal skrive det?

something like this i guess

sSQL = "INSERT INTO tblKonto (BilagNr, KontoNr, tekst, Debet, Kredit, modkonto, datao) VALUES(" & Me.BilagNr & ", '" & tKontoNr & "', '" & Me.Tekst & "', " & cDebet & ", " & cKredit & ", '" & tModKonto & "', '" & me.dato &  "')"