merhaba arkadaşlar.

resimdeki siteden ekilen ürünlerin isimleri ve üretim miktarlarını almaya çalışıyorum. aşağıdaki if döngüsü ile otomatik durdurmayı denedim ama komut veri bittiğinde durmuyor sürekli yeni kayda gidiyor. ilginize teşekkürler..[/vb]

Function Aktar()
On Error Resume Next
Dim IE As Object
Set IE = Me.WebBrowser1

Dim k As Integer

k=me.say

If IE.Document.All.tags("table").Item(4).Rows(k).Cells(3).innerText > 1 Then
Me.cksurunadi = IE.Document.All.tags("table").Item(4).Rows(k).Cells(0).innerText
Me.ckskuru = IE.Document.All.tags("table").Item(4).Rows(k).Cells(1).innerText
Me.ckssulu = IE.Document.All.tags("table").Item(4).Rows(k).Cells(2).innerText
Me.ckstoplam = IE.Document.All.tags("table").Item(4).Rows(k).Cells(3).innerText
Me.ckssuluhesap = Me.cksurunadi.Column(1) * Me.ckssulu
Me.ckskuruhesap = Me.cksurunadi.Column(2) * Me.ckskuru
me.say=me.say+1
Call Komut20_Click
Call tekrar
End If

End Function

Private Sub tekrar()
Call Aktar
End Sub

Private Sub Komut20_Click()
On Error GoTo Err_Komut20_Click


DoCmd.GoToRecord , , acNext

Exit_Komut20_Click:
Exit Sub

Err_Komut20_Click:
MsgBox Err.Description
Resume Exit_Komut20_Click

End Sub