Pa jel moguće da se nitko nije sreo s takvim problemom ili da ne zna rešenje?? Nemrem belivet... pomagajte...

poruka neme veze sa servis packom upit koji hoces da azuriras ne moze se azurirati.Pregledaj neku od knjiga za access .Postoji objasnjenje koje vrste upta se ne mogu azurirati .To je jednostavno tako pitanju su njcesce upiti sa total poljem ali mislim da ima jos nekih.

Hvala [tabi] na pokušaju... ali... i te kako je to vezano u SP2 za Office 2003. Pitanje sam "davno" postavio, a i ja sam se malo više pozabavio s tim problemom i evo što pronađoh:

SYMPTOMS
In Microsoft Office Access 2003 or in Microsoft Access 2002, you cannot change, add, or delete data in tables that are linked to a Microsoft Excel workbook.

Additionally, you may experience this behavior when any one of the following conditions is true:• You build a query to retrieve data from tables that are linked to an Excel workbook.
• You build a form that accesses data from tables that are linked to an Excel workbook.
• You use DAO or ADO to update tables programmatically that are linked to an Excel workbook.
You receive the following message when you perform a query to update records in a linked Excel workbook:
Operation must use an updateable query
You receive the following message when you use DAO to programmatically update tables that are linked to an Excel workbook:
Runtime Error '3027' Cannot update. Database or object is read-only.
When you try to update the linked data in ADO, the message is the same, but the error number may be similar to the following:
-2147217911 (80040e09)

Kao uzrok stavljau da je:

CAUSE
This expected behavior occurs when either of the following conditions is true: • You have installed Microsoft Office 2003 Service Pack 2 (SP2) or any Access 2003 updates that were released after Office 2003 SP2.

For more information about Microsoft Office 2003 Service Pack 2, click the following article number to view the article in the Microsoft Knowledge Base:
887616 (http://support.microsoft.com/kb/887616/) Description of Office 2003 Service Pack 2
• You have installed the update for Access 2002 (KB904018) that is dated October 18, 2005.

For more information about the update for Access 2002 (KB904018), click the following article number to view the article in the Microsoft Knowledge Base:
904018 (http://support.microsoft.com/kb/904018/) Description of the update for Access 2002: October 18, 2005


ako nekog interesira kompletno Microsoftovo pojašnjenje problema neka pogleda na http://support.microsoft.com/kb/904953/ (ne stavih link :-)))
s tim da zaključujem da nema (ne znam!!) rješenje, osim naravno ne instaliranje SP2 za Office 2003, odnosno zakrpe KB901018 za Xp office ukoliko KORISTITE LINKANE excel tablice koje popunjavate iz accessa, odnosno ono što oni nude kao rješenje: improt tablice u acces pa kasnije export ... što mi baš i nije neko rješenje....
i to je to...
Pozdrav ekipi

Zagorec, ja ti to rijesavam na sasvim drugi nacin.


1. Iz accessa otvorim excel tablicu
2. Citam tabelu u accesu i popunjavam celije u excelu

Pa eto ti i kod koji puni execel a mozes i obrnuto
Mozda ti pomogne

Tu dolje citam iz dvije tablice i punim u excel



PPDEF = Application.CurrentProject.Path
PPopen = PPDEF + "\prazna.xls"
dput = Dir(PPopen)


If Len(dput) < 3 Then
MsgBox "NE POSTOJI EXCEL TABLICA " + PPopen + " MORATE JE KREIRATI"
Exit Sub
End If

Set objexcel = CreateObject("Excel.Application")
objexcel.Workbooks.Open (PPopen)

objexcel.Application.Visible = True
'objexcel.Parent.Windows(1).Visible = True

Dim dato11 As Database
Dim rek11 As Recordset
Set dato11 = CurrentDb
Dim sqlupit11 As String
sqlupit11 = "select * from finstatement"
Set rek11 = dato11.OpenRecordset(sqlupit11)

kolona = 1

Do While Not rek11.EOF

objexcel.Cells(1, kolona).Value = rek11.Fields("CompanyName").Value
objexcel.Cells(2, kolona).Value = rek11.Fields("CurrencyUnit").Value
objexcel.Cells(3, kolona).Value = rek11.Fields("Currency").Value
objexcel.Cells(4, kolona).Value = rek11.Fields("startdate").Value
objexcel.Cells(5, kolona).Value = rek11.Fields("enddate").Value
objexcel.Cells(6, kolona).Value = rek11.Fields("version").Value


statid = rek11.Fields("statementid").Value


Dim dato2 As Database
Dim rek2 As Recordset
Set dato2 = CurrentDb
Dim sqlupit2 As String
sqlupit2 = "select * from finitem where statementid=" & statid
Set rek2 = dato2.OpenRecordset(sqlupit2)


red = 10

Do While Not rek2.EOF
objexcel.Cells(red, kolona).Value = "'" & rek2.Fields("accountid").Value
objexcel.Cells(red, kolona + 1).Value = rek2.Fields("Accountvalue").Value
red = red + 1
rek2.MoveNext
Loop
rek2.Close
Set dato2 = Nothing

kolona = kolona + 2
rek11.MoveNext
Loop


rek11.Close
Set dato11 = Nothing


objexcel.Application.Visible = False
' objexcel.Parent.Windows(1).Visible = False

objexcel.Application.DisplayAlerts = False

'objExcel.Workbooks(1).Save
odmjdefault = "FPuvozIPA_" + Format(DATUMOD, "mm") + "_" + Format(datumdo, "mm") + "_" + Format(datumdo, "yyyy")
odmj = InputBox("Unesi ime .XLS datoteke", "EXPORT PODATAKA", odmjdefault)


'odmj = ODMJDEFAULT
PPDEF = Application.CurrentProject.Path
ppexcel = PPDEF + "\" + odmj
dput = Dir(ppexcel)

If IsNull(odmj) Or odmj = "" Then
odmj = odmjdefault
End If

If Len(dput) < 3 Then

Else
Kill (ppexcel + "\" + odmj)
End If

objexcel.Workbooks(1).SaveAs PPDEF + "\" + odmj
objexcel.Application.Quit
objexcel.Application.DisplayAlerts = True

MsgBox "Podaci su prepisani u " + PPDEF + "\" + odmj + ".XLS"