Avatar billede celal Nybegynder
10. marts 2003 - 11:14 Der er 3 kommentarer og
1 løsning

Fejl ved Export af Fil

Når jeg prøver at exportere fra en tabel får jeg denne fejl meddelelse: "Can´t Update. Database or Object is read-only"

Jeg ved at fejlen opstår når jeg kommer til dette kode: DoCmd.TransferText acExportFixed, "BCAbon_Faktura Eksportspecifikation", "BCAbon_Ordre_linier", PrintFil, False, ""

Nogen som kan fortælle mig hvad der er galt?
Avatar billede celal Nybegynder
10. marts 2003 - 11:17 #1
Når jeg prøver at Eksportere tabelen manuelt, så virker det fint nok... Min ikke via min funktion
Avatar billede celal Nybegynder
10. marts 2003 - 11:19 #2
Min funktion ser således ud:

Private Sub Fakturagrundlag_Click()
On Error GoTo Err_Fakturagrundlag_Click

Dim strWhere As String
Dim PrintFil As String
Dim dbs As DATABASE
Dim SletTemp As QueryDef
Dim InsertTemp As QueryDef
    DoCmd.Hourglass True
    If IsNull(Me!PrintFil) Then
        PrintFil = "c:\imp\nyprinter.out"
    Else
        PrintFil = Me!PrintFil
    End If
    strWhere = ""
    If Me!Dubletkontrol = 2 Then
        strWhere = " where MA50006='50'" 'SBI abonnementer er type 50
    End If
    Set dbs = CurrentDb
    With dbs
        ' Opret et midlertidigt QueryDef. Slet ordrelinietabeller.
        Set SletTemp = .CreateQueryDef("", "delete * from BCAbon_Ordre_linier")
        SletTemp.Execute
        SletTemp.SQL = "delete * from BCAbon_Ordre_linier_uden_dubletter"
        SletTemp.Execute
        ' Indsæt nye ordrelinier
        Set InsertTemp = .CreateQueryDef("", "insert into BCAbon_Ordre_linier select * from BCAbon_Faktura")
        InsertTemp.Execute
        ' Udfør dubletkontrol i ordregrundlag.
        If Me!Dubletkontrol >= 2 Then
            ' Dubletter skal slettes.
            InsertTemp.SQL = "insert into BCAbon_Ordre_linier_uden_dubletter select * from BCAbon_Ordre_linier " & strWhere
            InsertTemp.Execute
            SletTemp.SQL = "delete * from BCAbon_Ordre_linier " & strWhere
            SletTemp.Execute
            InsertTemp.SQL = "insert into BCAbon_Ordre_linier select * from BCAbon_Ordre_linier_uden_dubletter"
            InsertTemp.Execute
        End If
        .Close
    End With
    DoCmd.TransferText acExportFixed, "BCAbon_Faktura Eksportspecifikation", "BCAbon_Ordre_linier", PrintFil, False, ""
    DoCmd.Hourglass False
Exit_Fakturagrundlag_Click:
    Exit Sub

Err_Fakturagrundlag_Click:
    MsgBox Err.Description
    Resume Exit_Fakturagrundlag_Click
   
End Sub
Avatar billede juks Novice
10. marts 2003 - 11:30 #3
Avatar billede celal Nybegynder
10. marts 2003 - 13:13 #4
Okay, tak for hælpen
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester