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