Dim rstkayit As ADODB.Recordset
Dim lR As Long
Dim lR1 As Long
Dim ObjElement As HTMLObjectElement
Set rstkayit = New ADODB.Recordset
rstkayit.Open "SELECT * FROM ogrenciler", CurrentProject.Connection, adOpenStatic, adLockOptimistic
Set ObjElement = WebBrowser1.Document.all().tags("table").Item(35)
lR = ObjElement.rows.length - 1
For lR1 = 1 To lR
With rstkayit
.AddNew
.Fields("tckimlik") = ObjElement.rows(lR1).cells(1).innerText
.Fields("adı") = ObjElement.rows(lR1).cells(2).innerText
.Fields("soyadı") = ObjElement.rows(lR1).cells(3).innerText
.Fields("okulno") = ObjElement.rows(lR1).cells(4).innerText
.Fields("sınıfı") = ObjElement.rows(lR1).cells(5).innerText
.Fields("durumu") = ObjElement.rows(lR1).cells(6).innerText
.Fields("kurumkodu") = Mid(Right(WebBrowser1.Document.all.Item("IOMPageHeader1_lblKurumIlIlce").innerText, 8), 1, 6)
.Update
End With
Next lR1
ben bu şekilde öğrenci listelerini alıyorum ancak toplu not veren Html sayfası varsa bu işe yarar kodun çalışabilmesi için referanslardan microsoft Html object seçmen gerekiyor
meşhur çin atasözü "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz