hatam nerede? kayıt tabloda olmadığı halde "kayıt var" uyarısı veriyor ve ne hikmetse kayıt yapmıyor.[/vb]

Private Sub Komut579_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, Deger13, Deger14, Deger15, Deger16, Deger17, Deger18





    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(3).innerText

Deger4 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(6).innerText

Deger5 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(7).innerText

Deger6 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(8).innerText

Deger7 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(9).innerText

Deger8 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(10).innerText

Deger9 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(11).innerText

Deger10 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(12).innerText

Deger11 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(13).innerText

Deger12 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(14).innerText

Deger13 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(15).innerText

Deger14 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(16).innerText

Deger15 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(17).innerText

Deger16 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(18).innerText

Deger17 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(19).innerText

Deger18 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(20).innerText







Dim strSQL As String

strSQL = "SELECT * T_VERITABLOSU"

Set rstkayit = New ADODB.Recordset



rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

With rstkayit

            .Find "[ISEMRINO]='" & Deger1 & "'"

If Not rstkayit.EOF Then

            If MsgBox("" & Deger1 & " isimli," & Deger1 & "telefon numaralı tesisatçı daha önceden kaydedilmiş, Veri Güncellensin mi?", vbYesNo, "Kaydediliyor...") = vbYes Then

                .Fields("ISEMRINO") = Deger1

                .Fields("SEFLIKKODU") = Deger2

                .Fields("ILCEKODU") = Deger3

                .Fields("MAHALLE") = Deger4

                .Fields("SOKAK") = Deger5

                .Fields("BINANO") = Deger6

                .Fields("CAGRITURU") = Deger7

                .Fields("CEVAP") = Deger8

                .Fields("KAYITTARIHI") = Deger9

                .Fields("FAALIYETTARIHI") = Deger10

                .Fields("FAALIYETKODU") = Deger11

                .Fields("SIKAYETSAHIBI") = Deger12

                .Fields("EVTEL") = Deger13

                .Fields("CEPTEL") = Deger14

                .Fields("ISTEL") = Deger15

                .Fields("EPOSTA") = Deger16

                .Fields("FAXNO") = Deger17

                .Fields("GERIBILDIRIM") = Deger18

                .Update

 Else

Exit Sub

End If

Else

.AddNew

                .Fields("ISEMRINO") = Deger1

                .Fields("SEFLIKKODU") = Deger2

                .Fields("ILCEKODU") = Deger3

                .Fields("MAHALLE") = Deger4

                .Fields("SOKAK") = Deger5

                .Fields("BINANO") = Deger6

                .Fields("CAGRITURU") = Deger7

                .Fields("CEVAP") = Deger8

                .Fields("KAYITTARIHI") = Deger9

                .Fields("FAALIYETTARIHI") = Deger10

                .Fields("FAALIYETKODU") = Deger11

                .Fields("SIKAYETSAHIBI") = Deger12

                .Fields("EVTEL") = Deger13

                .Fields("CEPTEL") = Deger14

                .Fields("ISTEL") = Deger15

                .Fields("EPOSTA") = Deger16

                .Fields("FAXNO") = Deger17

                .Fields("GERIBILDIRIM") = Deger18

.Update

End If

End With











     

    Next

    

   rstkayit.Close





End Sub