Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
02/11/2010 10:38
Konu Sahibi
kadirdursun
Yorumlar
6
Okunma
2089
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

kadirdursun

Gümüş Üye
Kullanici Avatari
Gümüş Üye
K.... D....
1.282
12/01/2009
86
İstanbul
Ofis 2010 32 Bit
21/09/2017,12:03
Çözüldü 
arkadaşlar sayın sledgeab aşağıdaki kod ile ilgili yardımcı olmuştu.

https://www.accesstr.net/konu-webden-bil...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?

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
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)
Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.797
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,00:06
Çözüldü 

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


ile

Visual Basic Code
end if


kodlarını sil


Cevapla

kadirdursun

Gümüş Üye
Kullanici Avatari
Gümüş Üye
K.... D....
1.282
12/01/2009
86
İstanbul
Ofis 2010 32 Bit
21/09/2017,12:03
Çözüldü 
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

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.797
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,00:06
Çözüldü 
kodda iki tane end if var, hangisini sildinse ekleyip diğer end if'i sil


Cevapla

kadirdursun

Gümüş Üye
Kullanici Avatari
Gümüş Üye
K.... D....
1.282
12/01/2009
86
İstanbul
Ofis 2010 32 Bit
21/09/2017,12:03
Çözüldü 
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

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.797
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,00:06
Çözüldü 
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


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Webden Resim Çağırma estapan 6 258 09/09/2017, 21:57 estapan
Çözüldü ListBox'a Eklenen Veriyi Kontrol Etme ve Mükerrer Engelleme dufrety 13 766 21/02/2017, 10:35 dufrety
Çözüldü Access Uyarı Mesajı raburabu 3 306 23/01/2017, 15:26 raburabu
Çözüldü Mükerrer Kayıtları Farklı Sütuna Taşıma rmznaydemr 2 372 18/01/2017, 00:25 ozanakkaya
Çözüldü mükerrer Kayıt taha1234 7 624 25/12/2016, 03:17 taha1234

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.