AccessTr.neT

arkadaşlar sayın sledgeab aşağıdaki kod ile ilgili yardımcı olmuştu.

https://accesstr.net/konu-webden-bilgi-a...ght=matris

yine teşekkür ediyorum kendisine.
aşağıdaki kodlarda mükerrer kayıt varsa uyarı veriyor ve cevabıma göre güncelleme yapıyor. bana soru sormadan kayıt yoksa eklesin varsa güncellesin istiyorum. acaba hangi satırı silmem gerekir?

Private Sub Komut1092_Click()

On Error Resume Next

    Dim IE As Object

    Dim HTML_Body As Object, HTML_Tables As Object, MyTable As Object

    Dim HTML_TableRows As Object

    Dim RetVal As Variant, X, A As Integer, SATIRSAYISI As Integer

    

    Set IE = Me.WebBrowser1

    Set HTML_Body = IE.Document.All

    Set HTML_Tables = HTML_Body.tags("Table")

    Set MyTable = HTML_Tables(13)

    Set HTML_TableRows = MyTable.GetElementsByTagName("tr")

    

        For Each MyRow In HTML_TableRows

            X = X + 1

        Next

        

        SATIRSAYISI = (X - 1) / 1 '(X - 18) / 2

        

        ReDim Sorgu(18, SATIRSAYISI - 1)

        

        X = 0

        For X = 0 To SATIRSAYISI - 1

            A = 1 + (1 * X)

                                 

            Sorgu(0, X) = MyTable.Rows(A).Cells(0).innerText

            Sorgu(1, X) = MyTable.Rows(A).Cells(1).innerText

            Sorgu(2, X) = MyTable.Rows(A).Cells(3).innerText

            Sorgu(3, X) = MyTable.Rows(A).Cells(6).innerText

            Sorgu(4, X) = MyTable.Rows(A).Cells(7).innerText

            Sorgu(5, X) = MyTable.Rows(A).Cells(8).innerText

            Sorgu(6, X) = MyTable.Rows(A).Cells(9).innerText

            Sorgu(7, X) = MyTable.Rows(A).Cells(10).innerText

            Sorgu(8, X) = MyTable.Rows(A).Cells(11).innerText

            Sorgu(9, X) = MyTable.Rows(A).Cells(12).innerText

            Sorgu(10, X) = MyTable.Rows(A).Cells(13).innerText

            Sorgu(11, X) = MyTable.Rows(A).Cells(14).innerText

            Sorgu(12, X) = MyTable.Rows(A).Cells(15).innerText

            Sorgu(13, X) = MyTable.Rows(A).Cells(16).innerText

            Sorgu(14, X) = MyTable.Rows(A).Cells(17).innerText

            Sorgu(15, X) = MyTable.Rows(A).Cells(18).innerText

            Sorgu(16, X) = MyTable.Rows(A).Cells(19).innerText

            Sorgu(17, X) = MyTable.Rows(A).Cells(20).innerText



         Next X

         

strSQL = "SELECT * FROM T_VERITABLOSU "

Set rstkayit = New ADODB.Recordset

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



 X = 0

    

    For X = 0 To SATIRSAYISI - 1



With rstkayit

            .Find "[ISEMRINO]='" & Sorgu(0, X) & "'"

    If Not rstkayit.EOF Then

    If MsgBox("" & Sorgu(0, X) & " . AY VERİSİ DAHA ÖNCEDEN KAYIT EDİLMİŞ.Metin Güncellensin mi?", 51, "Kaydediliyor....") = 6 Then



            .Fields("ISEMRINO") = Sorgu(0, X)

            .Fields("SEFLIKKODU") = Sorgu(1, X)

            .Fields("ILCEKODU") = Sorgu(2, X)

            .Fields("MAHALLE") = Sorgu(3, X)

            .Fields("SOKAK") = Sorgu(4, X)

            .Fields("BINANO") = Sorgu(5, X)

            .Fields("CAGRITURU") = Sorgu(6, X)

            .Fields("CEVAP") = Sorgu(7, X)

            .Fields("KAYITTARIHI") = Sorgu(8, X)

            .Fields("FAALIYETTARIHI") = Sorgu(9, X)

            .Fields("FAALIYETKODU") = Sorgu(10, X)

            .Fields("SIKAYETSAHIBI") = Sorgu(11, X)

            .Fields("EVTEL") = Sorgu(12, X)

            .Fields("CEPTEL") = Sorgu(13, X)

            .Fields("ISTEL") = Sorgu(14, X)

            .Fields("EPOSTA") = Sorgu(15, X)

            .Fields("FAXNO") = Sorgu(16, X)

            .Fields("GERIBILDIRIM") = Sorgu(17, X)

    .Update

    Else

    Exit Sub

    End If

    Else

    .AddNew

            .Fields("ISEMRINO") = Sorgu(0, X)

            .Fields("SEFLIKKODU") = Sorgu(1, X)

            .Fields("ILCEKODU") = Sorgu(2, X)

            .Fields("MAHALLE") = Sorgu(3, X)

            .Fields("SOKAK") = Sorgu(4, X)

            .Fields("BINANO") = Sorgu(5, X)

            .Fields("CAGRITURU") = Sorgu(6, X)

            .Fields("CEVAP") = Sorgu(7, X)

            .Fields("KAYITTARIHI") = Sorgu(8, X)

            .Fields("FAALIYETTARIHI") = Sorgu(9, X)

            .Fields("FAALIYETKODU") = Sorgu(10, X)

            .Fields("SIKAYETSAHIBI") = Sorgu(11, X)

            .Fields("EVTEL") = Sorgu(12, X)

            .Fields("CEPTEL") = Sorgu(13, X)

            .Fields("ISTEL") = Sorgu(14, X)

            .Fields("EPOSTA") = Sorgu(15, X)

            .Fields("FAXNO") = Sorgu(16, X)

            .Fields("GERIBILDIRIM") = Sorgu(17, X)



    .Update

End If



End With

Next



   

    Set rstkayit = Nothing

   Me![T_VERITABLOSU_alt_formu].Requery

    

        GoTo SafeExit:

'ErrHandler:

SafeExit:

    Set HTML_Body = Nothing

    Set HTML_Tables = Nothing

    Set MyTable = Nothing

    Set HTML_TableRows = Nothing

    Set HTML_TableDivisions = Nothing

    Set IE = Nothing

End Sub

If MsgBox("" & Sorgu(0, X) & " . AY VERİSİ DAHA ÖNCEDEN KAYIT EDİLMİŞ.Metin Güncellensin mi?", 51, "Kaydediliyor....") = 6 Then

ile

end if

kodlarını sil

else without if
hatası verdi. ve 1. mesajdaki koddaki 82. satırdaki elseyi seçili hale getirdi.

kodda iki tane end if var, hangisini sildinse ekleyip diğer end if'i sil

1. mesajdaki kodda bulunan 58, 79, 80 ve 81. satırları sildim hata vermeden çalıştı. doğrularını mı sildim acaba?

webden bilgi alma linkindeki sorunuza çözüm bulmak için oluşturduğum deneme.htm dosyasını sildiğim için malesef deneme yapamıyorum.

"Hata vermeden çalıştı" kelimeleri ile sorunuzun çözüldüğü anlaşılıyor.

Ayrıca linkteki 55. mesajdaki son cümleyi tekrar okumanızda fayda var.

Konu taşınmıştır.