Update or CancelUpdate without Addnew or Edit. 3020

Det er her det går galt (se pil) og hvis jeg udstjerner den linie er det i den næste det går galt osv.:

......
    If strTemp <> "" Then
        'Kopier ønskede fil til Access-bibliotek folder
        FileCopy sSave, strTemp
        DoCmd.GoToRecord , , acNewRec
        Me![opretDato] = Date
--->    Me![opretInitialer] = getUser()
        Me![DokumenttypeID] = getDocType(fromExt)
        Me![Navn] = fromExt
        Me![Beskrivelse] = "Importeret dokument *** ÆNDRES ***"
        Me![dokument] = strTemp
        Me![KontaktpersonId] = kid
        Me![OpkaldsId] = oID
        tilknytok = TilknytTilKatalog(Me!ID, kid, "VælgMappe")
        Kill sSave 'slet original fil
    Else: MsgBox "Der blev ikke importeret filer fra " & frompath
    End If

Hard to say what the problem is.  If you dont find a solution I could maybe take a look at the dB for you.

ekspertenATsanthell.dk

AT = @

thanks for your interesse terry but im unfortunately (contract) not allowed to pass the code on to anyone.


regards Flemming

I understamd Flemming, but if its possible to send a small portion then you never know.
Difficult otherwise

youre right.

I tried to use another approach which solved my problem, I dont know why but it helped :-)

    Set rec = CurrentDb().OpenRecordset("Dokumenter", dbOpenDynaset)
    With rec
        .AddNew
        ![KontaktpersonId] = kid
        ![OpkaldsId] = oID
        ![opretDato] = Date
        ![opretInitialer] = getUser()
        ![redigerDato] = Now()
        ![redigerInitialer] = getUser()
        ![DokumenttypeID] = getDocType(fromExt)
        ![dokument] = strTemp
        ![Navn] = fromExt
        ![Beskrivelse] = "Importeret dokument *** ÆNDRES ***"
        tilknytok = TilknytTilKatalog(![ID], kid, "VælgMappe")
        .Update
    End With

smid et svar så vil jeg gerne have lov til at give point for din interesse for mit spørgsmål :-)

mvh Flemming

Dont worry about the points, just place an answwer yourself and get them back.

I rather surprise that you got the error using DoCmd.GoToRecord ...
Looking around the internet I've seen the same error using a recordset.

Will you try something for me?

In the original code instead of using ! use .

EG:
Me![opretDato] = Date
= Me.[opretDato] = Date

Hi Terry

Offcourse I will!

I have tried your proposed approach (. instead of !), but with the same result and the same error as described above.

regards Flemming