Bende doğru anladıysam alttaki kodlar işinizi görür.Benim yaptığım olay şöyle;accessteki notlar tablosunda öğrenci nolar varsa bu bu maraları excelden ilgili yerlere getirir.



not3 olacaksa koda ilave yapılacak.

Option Compare Database



Private Sub btnNotlargetir_Click()

  Call NotlarGetir("Not1", 1, "not1.xlsx") 'not1 excelden not getirme(1 demek Excel B sütunu icin),Not1=notlar tablosu Not1 alan adi accesin

  Call NotlarGetir("not2", 2, "not2.xlsx") 'not2 excelden not getirme(2 demek Excel C sütunu icin)

End Sub

Sub NotlarGetir(alanAd, alan2 As Byte, kitapAd As String)

    Dim con As ADODB.Connection

    Dim rs As ADODB.Recordset

    Dim sSql As String

    Dim yol As String

    Dim rs1 As ADODB.Recordset

    Dim conn As ADODB.Connection



    Set conn = CurrentProject.Connection

    Set rs1 = New ADODB.Recordset

    

    Set rs = New ADODB.Recordset

    Set con = New ADODB.Connection

    

    sSql = "select * from [Sayfa1$A2:C] where not isnull(f1)"

    

    yol = CurrentProject.Path & "\" & kitapAd

  

    con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & yol & ";extended properties=""excel 12.0;hdr=No;imex=1"""

  

    rs.CursorLocation = adUseClient

    rs.CursorType = adOpenKeyset

    rs.LockType = adLockOptimistic

    

    rs1.Open "[notlar]", conn, adOpenDynamic, adLockOptimistic, adCmdTable

    

    rs.Open sSql, con

    

    Do Until rs.EOF

        'not1 icin

        If alan2 = 1 Then CurrentDb.Execute "UPDATE [notlar] SET [" & alanAd & "] = " & rs(1) & " WHERE [Ögrencino] = " & rs(0) & ""

        'not2 icin

        If alan2 = 2 Then CurrentDb.Execute "UPDATE [notlar] SET [" & alanAd & "] = " & rs(2) & " WHERE [Ögrencino] = " & rs(0) & ""

        rs.MoveNext

        DoEvents

    Loop

    DoCmd.OpenTable "notlar"

    CurrentDb.TableDefs.Refresh

    rs.Close

    con.Close

    Set rs = Nothing

    Set con = Nothing

    rs1.Close

    conn.Close

    Set rs1 = Nothing

    Set conn = Nothing



End Sub