Office Access 2007, Office Access 2003 veya Access 2002'de bir Excel çalýþma kitabýna baðlantý içeren tablolardaki verileri deðiþtiremiyor, ekleyemiyor veya silemiyorsunuz

• Excel çalýþma kitabýna baðlantý içeren tablolardan veri almak üzere bir sorgu oluþturursunuz.
• Excel çalýþma kitabýna baðlantý içeren tablolardaki verilere eriþen bir form oluþturursunuz.
• Excel çalýþma kitabýna baðlantý içeren tablolarý program yardýmýyla güncelleþtirmek üzere DAO veya ADO kullanýrsýnýz.

Üste

• Office Access 2007 kullanýyorsunuz.
• Microsoft Office 2003 Service Pack 2 (SP2) veya Office 2003 SP2 sonrasýnda yayýmlanmýþ bir Access 2003 güncelleþtirmesi yüklediniz.
  
  Microsoft Office 2003 Service Pack 2 hakkýnda daha fazla bilgi için, Microsoft Bilgi Bankasý'ndaki makaleyi görüntülemek üzere aþaðýdaki makale numarasýný týklatýn:
  887616  (http://support.microsoft.com/kb/887616/ ) Office 2003 Service Pack 2'nin açýklamasý (Bu baðlantý, bir kýsmý veya tamamý Ýngilizce olan içeriðe iþaret edebilir.)
• 18 Ekim 2005 tarihli Access 2002 güncelleþtirmesini (KB904018) yüklediniz.
  
  Access 2002 güncelleþtirmesi (KB904018) hakkýnda daha fazla bilgi için, Microsoft Bilgi Bankasý'ndaki makaleyi görüntülemek üzere aþaðýdaki makale numarasýný týklatýn:
  904018  (http://support.microsoft.com/kb/904018/ ) Access 2002 güncelleþtirmesi: 18 Ekim 2005'in açýklamasý (Bu baðlantý, bir kýsmý veya tamamý Ýngilizce olan içeriðe iþaret edebilir.)
• Microsoft Office 2003 Service Pack 2 (SP2), Office 2003 SP2 sonrasýnda yayýmlanan herhangi bir Access 2003 güncelleþtirmesi veya 18 Ekim 2005 tarihli Access 2002 güncelleþtirmesi (KB904018) ya da sonrasýný içeren bir Access çalýþma zamaný uygulamasý yüklediniz.
  Office güncelleþtirme dosyalarýný bir Access çalýþma zamaný uygulamasýna ekleme hakkýnda daha fazla bilgi için, Microsoft Bilgi Bankasý'ndaki makaleyi görüntülemek üzere aþaðýdaki makale numarasýný týklatýn:
  916176  (http://support.microsoft.com/kb/916176/ ) Access 2003 veya Access 2002'de bir uygulama için yükleme paketi oluþturulduðunda sihirbaz Access'in yayýmlanan sürümünde bulunan çalýþma zamaný dosyalarýný kullanýyor (Bu baðlantý, bir kýsmý veya tamamý Ýngilizce olan içeriðe iþaret edebilir.)

Üste

Üste

Yöntem 1: Microsoft Excel kullanýn

Üste

Yöntem 2: Office Access 2007, Access 2003 veya Access 2002 kullanýn

Public Sub WorkArounds()
On Error GoTo Leave

    Dim strSQL, SQL As String
    Dim Db As ADODB.Connection
    Set Db = New ADODB.Connection
    Db.CursorLocation = adUseClient
    Db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=<AccessYolu>"
    'Not: Office Access 2007'de, aþaðýdaki kod satýrýný kullanýn:
    'Db.Open "PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source=<AccessYolu>"
    SQL = "<Sorgum>"
    CopyRecordSetToXL SQL, Db
    Db.Close
    MsgBox "Access verileri Excel dosyasýna baþarýyla verdi.", vbInformation, "Verme Ýþlemi Baþarýlý Oldu."
    Exit Sub
Leave:
        MsgBox Err.Description, vbCritical, "Hata"
        Exit Sub
End Sub

Private Sub CopyRecordSetToXL(SQL As String, con As ADODB.Connection)
    Dim rs As New ADODB.Recordset
    Dim x
    Dim i As Integer, y As Integer
    Dim xlApp As Excel.Application
    Dim xlwbBook As Excel.Workbook, xlwbAddin As Excel.Workbook
    Dim xlwsSheet As Excel.Worksheet
    Dim rnData As Excel.Range
    Dim stFile As String, stAddin As String
    Dim rng As Range
    stFile = "<ExcelYolu>"
    'Excel.exe adlý COM Nesnesi ile yeni bir oturum örneði oluþtur.
    Set xlApp = New Excel.Application
    Set xlwbBook = xlApp.Workbooks.Open(stFile)
    Set xlwsSheet = xlwbBook.Worksheets("<ÇalýþmaSayfalarý>")
    xlwsSheet.Activate
    'Verilerin girileceði ilk hücre alýnýyor.
    xlwsSheet.Cells.SpecialCells(xlCellTypeLastCell).Select
    y = xlApp.ActiveCell.Column - 1
    xlApp.ActiveCell.Offset(1, -y).Select
    x = xlwsSheet.Application.ActiveCell.Cells.Address
    'SQL sorgusuna baðlý olarak kayýt kümesi açýlýyor ve veriler Excel çalýþma sayfasýna kaydediliyor.
    rs.CursorLocation = adUseClient
    If rs.State = adStateOpen Then
        rs.Close
    End If
    rs.Open SQL, con
    If rs.RecordCount > 0 Then
        rs.MoveFirst
        x = Replace(x, "$", "")
        y = Mid(x, 2)
        Set rng = xlwsSheet.Range(x)
        xlwsSheet.Range(x).CopyFromRecordset rs
    End If
    xlwbBook.Close True
    xlApp.Quit
    Set xlwsSheet = Nothing
    Set xlwbBook = Nothing
    Set xlApp = Nothing

End Sub

• <AccessYolu>
• <ExcelYolu>
• <Sorgum>
  <Sorgum>, Access veritabanýndaki tablolarda çalýþtýrdýðýnýz sorgunun yertutucusudur. Sorgunun sonucu Excel çalýþma kitabýna verilir.
• <ÇalýþmaSayfalarý>
  <ÇalýþmaSayfalarý>, sonucu vermek istediðiniz Excel çalýþma kitabýnýn yertutucusudur.

Üste