Skip to main content

AccessTr.neT


webden mükerrer alınanlarda uyarı vermeden güncellesin

webden mükerrer alınanlarda uyarı vermeden güncellesin

Çözüldü #1
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
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Son Düzenleme: 02/11/2010, 10:39, Düzenleyen: kadirdursun.
Cevapla
Çözüldü #2
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
Cevapla
Çözüldü #3
else without if
hatası verdi. ve 1. mesajdaki koddaki 82. satırdaki elseyi seçili hale getirdi.
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla
Çözüldü #4
kodda iki tane end if var, hangisini sildinse ekleyip diğer end if'i sil
Cevapla
Çözüldü #5
1. mesajdaki kodda bulunan 58, 79, 80 ve 81. satırları sildim hata vermeden çalıştı. doğrularını mı sildim acaba?
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla
Çözüldü #6
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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task