Kod:
Private Sub Etiket79_Click()
On Error Resume Next
Dim IE As Object
Set IE = Me.WebBrowser1
Dim k As Integer
Dim Deger1, Deger2, Deger3, Deger4, Deger5, Deger6, Deger7, Deger8, Deger9, Deger10, Deger11, Deger12
Dim strSQL As String
strSQL = "SELECT * T_VERITABLOSU"
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
For k = 1 To 100
Deger1 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(0).innerText
Deger2 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(1).innerText
Deger3 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(2).innerText
Deger4 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(3).innerText
Deger5 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(4).innerText
Deger6 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(5).innerText
Deger7 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(6).innerText
Deger8 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(7).innerText
Deger9 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(8).innerText
Deger10 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(9).innerText
Deger11 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(10).innerText
Deger12 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(11).innerText
With rstkayit
.Find "[ISEMRINO]='" & Deger1 & "'"
If rstkayit.EOF Then
.AddNew
.Fields("ISEMRINO") = Deger1
.Fields("ILCE") = Deger2
.Fields("MAHALLE") = Deger3
.Fields("SOKAK") = Deger4
.Fields("BINANO") = Deger5
.Fields("ACIKLAMA") = Deger6
.Fields("CAGRITURU") = Deger7
.Fields("CEVAP") = Deger8
.Fields("KAYITTARIHI") = Deger9
.Fields("FAALIYETTARIHI") = Deger10
.Fields("FAALIYETKODU") = Deger11
.Fields("FAALIYETACIKLAMASI") = Deger12
.Update
Else
If MsgBox("" & Deger1 & " nolu işemri daha önceden kaydedilmiş, Veri Güncellensin mi?", vbYesNo, "Kaydediliyor...") = vbYes Then
.Fields("ISEMRINO") = Deger1
.Fields("ILCE") = Deger2
.Fields("MAHALLE") = Deger3
.Fields("SOKAK") = Deger4
.Fields("BINANO") = Deger5
.Fields("ACIKLAMA") = Deger6
.Fields("CAGRITURU") = Deger7
.Fields("CEVAP") = Deger8
.Fields("KAYITTARIHI") = Deger9
.Fields("FAALIYETTARIHI") = Deger10
.Fields("FAALIYETKODU") = Deger11
.Fields("FAALIYETACIKLAMASI") = Deger12
.Update
End If
End If
End With
Next
rstkayit.Close
End SubÖncelikle k değerini 1'den 100'e kadar döngüye sokmuşsun ama döngü içerisinde k'yı tekrar 1 artırmışsın.
For fonksiyonu zaten otomatik olarak k'nın değerini her seferinde 1 artıracaktır.
Kod:
For k = 1 To 100
...
k = k + 1
NextSen zaten böyle gitmesini istiyorsan step parametresini kullan.
Kod:
For k = 1 To 100 step 2
...
Next