webden mükerrer alınanlarda uyarı vermeden güncellesin
Tarih
02/11/2010 10:38
Konu Sahibi
kadirdursun
Yorumlar
6
Okunma
1642
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



kadirdursun

Kullanici Avatari
Özel Üye
K.... D....
1.242
12/01/2009
86
İstanbul
Ofis 2010 32 Bit
Bugün,14:22
Çözüldü 
arkadaşlar sayın sledgeab aşağıdaki kod ile ilgili yardımcı olmuştu.

http://www.accesstr.net/konu-webden-bilg...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!!!


http://www.isciler-iski.com
http://www.universiteliisciler.com

(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.059
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,20:58
Çö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

Kullanici Avatari
Özel Üye
K.... D....
1.242
12/01/2009
86
İstanbul
Ofis 2010 32 Bit
Bugün,14:22
Çö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!!!


http://www.isciler-iski.com
http://www.universiteliisciler.com

(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.059
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,20:58
Çözüldü 
kodda iki tane end if var, hangisini sildinse ekleyip diğer end if'i sil
Cevapla


kadirdursun

Kullanici Avatari
Özel Üye
K.... D....
1.242
12/01/2009
86
İstanbul
Ofis 2010 32 Bit
Bugün,14:22
Çö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!!!


http://www.isciler-iski.com
http://www.universiteliisciler.com

(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.059
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,20:58
Çö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
  webden veri alma, veri tabanına ekleme.... mbo69221088 15 228 Bugün, 00:08 mbo69221088
  Webden veri alma stringeer 11 238 08/12/2016, 09:26 stringeer
  Mükerrer Kayıt Hk. Serkan Çevik 2 79 01/12/2016, 22:37 Serkan Çevik
  Sorgudaki değişime göre formda uyarı vermek mehmetb84 4 145 16/11/2016, 23:08 mehmetb84
  uyarı mesajı kod sorunu dayko 2 89 19/10/2016, 14:56 dayko


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya