AccessTr.neT

Bul · 13/09/2010, 09:22

aşağıdaki kodda "method or data member not found" diye bir hata veriyor.
sebebi nedir?

Kod:

Private Sub Komut579_Click()

On Error Resume Next

Dim IE As Object

Set IE = Me.WebBrowser1

 

Me.Metin1 = IE.Document.All.tags("table").Item(13).Rows(1).Cells(0).innerText

Me.Metin2 = IE.Document.All.tags("table").Item(13).Rows(1).Cells(1).innerText

Me.Metin3 = IE.Document.All.tags("table").Item(13).Rows(1).Cells(3).innerText

Me.Metin4 = IE.Document.All.tags("table").Item(13).Rows(1).Cells(6).innerText

Me.Metin5 = IE.Document.All.tags("table").Item(13).Rows(1).Cells(7).innerText

Me.Metin6 = IE.Document.All.tags("table").Item(13).Rows(1).Cells(8).innerText

Me.Metin7 = IE.Document.All.tags("table").Item(13).Rows(1).Cells(9).innerText

Me.Metin8 = IE.Document.All.tags("table").Item(13).Rows(1).Cells(10).innerText

Me.Metin9 = IE.Document.All.tags("table").Item(13).Rows(1).Cells(11).innerText

Me.Metin10 = IE.Document.All.tags("table").Item(13).Rows(1).Cells(12).innerText

Me.Metin11 = IE.Document.All.tags("table").Item(13).Rows(1).Cells(13).innerText

Me.Metin12 = IE.Document.All.tags("table").Item(13).Rows(1).Cells(14).innerText

Me.Metin13 = IE.Document.All.tags("table").Item(13).Rows(1).Cells(15).innerText

Me.Metin14 = IE.Document.All.tags("table").Item(13).Rows(1).Cells(16).innerText

Me.Metin15 = IE.Document.All.tags("table").Item(13).Rows(1).Cells(17).innerText

Me.Metin16 = IE.Document.All.tags("table").Item(13).Rows(1).Cells(18).innerText

Me.Metin17 = IE.Document.All.tags("table").Item(13).Rows(1).Cells(19).innerText

Me.Metin18 = IE.Document.All.tags("table").Item(13).Rows(1).Cells(20).innerText

Me.Metin19 = IE.Document.All.tags("table").Item(13).Rows(2).Cells(0).innerText

Me.Metin20 = IE.Document.All.tags("table").Item(13).Rows(2).Cells(1).innerText

Me.Metin21 = IE.Document.All.tags("table").Item(13).Rows(2).Cells(3).innerText

Me.Metin22 = IE.Document.All.tags("table").Item(13).Rows(2).Cells(6).innerText

Me.Metin23 = IE.Document.All.tags("table").Item(13).Rows(2).Cells(7).innerText

Me.Metin24 = IE.Document.All.tags("table").Item(13).Rows(2).Cells(8).innerText

Me.Metin25 = IE.Document.All.tags("table").Item(13).Rows(2).Cells(9).innerText

Me.Metin26 = IE.Document.All.tags("table").Item(13).Rows(2).Cells(10).innerText

Me.Metin27 = IE.Document.All.tags("table").Item(13).Rows(2).Cells(11).innerText

Me.Metin28 = IE.Document.All.tags("table").Item(13).Rows(2).Cells(12).innerText

Me.Metin29 = IE.Document.All.tags("table").Item(13).Rows(2).Cells(13).innerText

Me.Metin30 = IE.Document.All.tags("table").Item(13).Rows(2).Cells(14).innerText

Me.Metin31 = IE.Document.All.tags("table").Item(13).Rows(2).Cells(15).innerText

Me.Metin32 = IE.Document.All.tags("table").Item(13).Rows(2).Cells(16).innerText

Me.Metin33 = IE.Document.All.tags("table").Item(13).Rows(2).Cells(17).innerText

Me.Metin34 = IE.Document.All.tags("table").Item(13).Rows(2).Cells(18).innerText

Me.Metin35 = IE.Document.All.tags("table").Item(13).Rows(2).Cells(19).innerText

Me.Metin36 = IE.Document.All.tags("table").Item(13).Rows(2).Cells(20).innerText

Me.Metin37 = IE.Document.All.tags("table").Item(13).Rows(3).Cells(0).innerText

Me.Metin38 = IE.Document.All.tags("table").Item(13).Rows(3).Cells(1).innerText

Me.Metin39 = IE.Document.All.tags("table").Item(13).Rows(3).Cells(3).innerText

Me.Metin40 = IE.Document.All.tags("table").Item(13).Rows(3).Cells(6).innerText

Me.Metin41 = IE.Document.All.tags("table").Item(13).Rows(3).Cells(7).innerText

Me.Metin42 = IE.Document.All.tags("table").Item(13).Rows(3).Cells(8).innerText

Me.Metin43 = IE.Document.All.tags("table").Item(13).Rows(3).Cells(9).innerText

Me.Metin44 = IE.Document.All.tags("table").Item(13).Rows(3).Cells(10).innerText

Me.Metin45 = IE.Document.All.tags("table").Item(13).Rows(3).Cells(11).innerText

Me.Metin46 = IE.Document.All.tags("table").Item(13).Rows(3).Cells(12).innerText

Me.Metin47 = IE.Document.All.tags("table").Item(13).Rows(3).Cells(13).innerText

Me.Metin48 = IE.Document.All.tags("table").Item(13).Rows(3).Cells(14).innerText

Me.Metin49 = IE.Document.All.tags("table").Item(13).Rows(3).Cells(15).innerText

Me.Metin50 = IE.Document.All.tags("table").Item(13).Rows(3).Cells(16).innerText

Me.Metin51 = IE.Document.All.tags("table").Item(13).Rows(3).Cells(17).innerText

Me.Metin52 = IE.Document.All.tags("table").Item(13).Rows(3).Cells(18).innerText

Me.Metin53 = IE.Document.All.tags("table").Item(13).Rows(3).Cells(19).innerText

Me.Metin54 = IE.Document.All.tags("table").Item(13).Rows(3).Cells(20).innerText

Me.Metin55 = IE.Document.All.tags("table").Item(13).Rows(4).Cells(0).innerText

Me.Metin56 = IE.Document.All.tags("table").Item(13).Rows(4).Cells(1).innerText

Me.Metin57 = IE.Document.All.tags("table").Item(13).Rows(4).Cells(3).innerText

Me.Metin58 = IE.Document.All.tags("table").Item(13).Rows(4).Cells(6).innerText

Me.Metin59 = IE.Document.All.tags("table").Item(13).Rows(4).Cells(7).innerText

Me.Metin60 = IE.Document.All.tags("table").Item(13).Rows(4).Cells(8).innerText

Me.Metin61 = IE.Document.All.tags("table").Item(13).Rows(4).Cells(9).innerText

Me.Metin62 = IE.Document.All.tags("table").Item(13).Rows(4).Cells(10).innerText

Me.Metin63 = IE.Document.All.tags("table").Item(13).Rows(4).Cells(11).innerText

Me.Metin64 = IE.Document.All.tags("table").Item(13).Rows(4).Cells(12).innerText

Me.Metin65 = IE.Document.All.tags("table").Item(13).Rows(4).Cells(13).innerText

Me.Metin66 = IE.Document.All.tags("table").Item(13).Rows(4).Cells(14).innerText

Me.Metin67 = IE.Document.All.tags("table").Item(13).Rows(4).Cells(15).innerText

Me.Metin68 = IE.Document.All.tags("table").Item(13).Rows(4).Cells(16).innerText

Me.Metin69 = IE.Document.All.tags("table").Item(13).Rows(4).Cells(17).innerText

Me.Metin70 = IE.Document.All.tags("table").Item(13).Rows(4).Cells(18).innerText

Me.Metin71 = IE.Document.All.tags("table").Item(13).Rows(4).Cells(19).innerText

Me.Metin72 = IE.Document.All.tags("table").Item(13).Rows(4).Cells(20).innerText

Me.Metin73 = IE.Document.All.tags("table").Item(13).Rows(5).Cells(0).innerText

Me.Metin74 = IE.Document.All.tags("table").Item(13).Rows(5).Cells(1).innerText

Me.Metin75 = IE.Document.All.tags("table").Item(13).Rows(5).Cells(3).innerText

Me.Metin76 = IE.Document.All.tags("table").Item(13).Rows(5).Cells(6).innerText

Me.Metin77 = IE.Document.All.tags("table").Item(13).Rows(5).Cells(7).innerText

Me.Metin78 = IE.Document.All.tags("table").Item(13).Rows(5).Cells(8).innerText

Me.Metin79 = IE.Document.All.tags("table").Item(13).Rows(5).Cells(9).innerText

Me.Metin80 = IE.Document.All.tags("table").Item(13).Rows(5).Cells(10).innerText

Me.Metin81 = IE.Document.All.tags("table").Item(13).Rows(5).Cells(11).innerText

Me.Metin82 = IE.Document.All.tags("table").Item(13).Rows(5).Cells(12).innerText

Me.Metin83 = IE.Document.All.tags("table").Item(13).Rows(5).Cells(13).innerText

Me.Metin84 = IE.Document.All.tags("table").Item(13).Rows(5).Cells(14).innerText

Me.Metin85 = IE.Document.All.tags("table").Item(13).Rows(5).Cells(15).innerText

Me.Metin86 = IE.Document.All.tags("table").Item(13).Rows(5).Cells(16).innerText

Me.Metin87 = IE.Document.All.tags("table").Item(13).Rows(5).Cells(17).innerText

Me.Metin88 = IE.Document.All.tags("table").Item(13).Rows(5).Cells(18).innerText

Me.Metin89 = IE.Document.All.tags("table").Item(13).Rows(5).Cells(19).innerText

Me.Metin90 = IE.Document.All.tags("table").Item(13).Rows(5).Cells(20).innerText

Me.Metin91 = IE.Document.All.tags("table").Item(13).Rows(6).Cells(0).innerText

Me.Metin92 = IE.Document.All.tags("table").Item(13).Rows(6).Cells(1).innerText

Me.Metin93 = IE.Document.All.tags("table").Item(13).Rows(6).Cells(3).innerText

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

Me.Metin95 = IE.Document.All.tags("table").Item(13).Rows(6).Cells(7).innerText

Me.Metin96 = IE.Document.All.tags("table").Item(13).Rows(6).Cells(8).innerText

Me.Metin97 = IE.Document.All.tags("table").Item(13).Rows(6).Cells(9).innerText

Me.Metin98 = IE.Document.All.tags("table").Item(13).Rows(6).Cells(10).innerText

Me.Metin99 = IE.Document.All.tags("table").Item(13).Rows(6).Cells(11).innerText

Me.Metin100 = IE.Document.All.tags("table").Item(13).Rows(6).Cells(12).innerText

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

Me.Metin102 = IE.Document.All.tags("table").Item(13).Rows(6).Cells(14).innerText

Me.Metin103 = IE.Document.All.tags("table").Item(13).Rows(6).Cells(15).innerText

Me.Metin104 = IE.Document.All.tags("table").Item(13).Rows(6).Cells(16).innerText

Me.Metin105 = IE.Document.All.tags("table").Item(13).Rows(6).Cells(17).innerText

Me.Metin106 = IE.Document.All.tags("table").Item(13).Rows(6).Cells(18).innerText

Me.Metin107 = IE.Document.All.tags("table").Item(13).Rows(6).Cells(19).innerText

Me.Metin108 = IE.Document.All.tags("table").Item(13).Rows(6).Cells(20).innerText

Me.Metin109 = IE.Document.All.tags("table").Item(13).Rows(7).Cells(0).innerText

Me.Metin110 = IE.Document.All.tags("table").Item(13).Rows(7).Cells(1).innerText

Me.Metin111 = IE.Document.All.tags("table").Item(13).Rows(7).Cells(3).innerText

Me.Metin112 = IE.Document.All.tags("table").Item(13).Rows(7).Cells(6).innerText

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

Me.Metin114 = IE.Document.All.tags("table").Item(13).Rows(7).Cells(8).innerText

Me.Metin115 = IE.Document.All.tags("table").Item(13).Rows(7).Cells(9).innerText

Me.Metin116 = IE.Document.All.tags("table").Item(13).Rows(7).Cells(10).innerText

Me.Metin117 = IE.Document.All.tags("table").Item(13).Rows(7).Cells(11).innerText

Me.Metin118 = IE.Document.All.tags("table").Item(13).Rows(7).Cells(12).innerText

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

Me.Metin120 = IE.Document.All.tags("table").Item(13).Rows(7).Cells(14).innerText

Me.Metin121 = IE.Document.All.tags("table").Item(13).Rows(7).Cells(15).innerText

Me.Metin122 = IE.Document.All.tags("table").Item(13).Rows(7).Cells(16).innerText

Me.Metin123 = IE.Document.All.tags("table").Item(13).Rows(7).Cells(17).innerText

Me.Metin124 = IE.Document.All.tags("table").Item(13).Rows(7).Cells(18).innerText

Me.Metin125 = IE.Document.All.tags("table").Item(13).Rows(7).Cells(19).innerText

Me.Metin126 = IE.Document.All.tags("table").Item(13).Rows(7).Cells(20).innerText

Me.Metin127 = IE.Document.All.tags("table").Item(13).Rows(8).Cells(0).innerText

Me.Metin128 = IE.Document.All.tags("table").Item(13).Rows(8).Cells(1).innerText

Me.Metin129 = IE.Document.All.tags("table").Item(13).Rows(8).Cells(3).innerText

Me.Metin130 = IE.Document.All.tags("table").Item(13).Rows(8).Cells(6).innerText

Me.Metin131 = IE.Document.All.tags("table").Item(13).Rows(8).Cells(7).innerText

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

Me.Metin133 = IE.Document.All.tags("table").Item(13).Rows(8).Cells(9).innerText

Me.Metin134 = IE.Document.All.tags("table").Item(13).Rows(8).Cells(10).innerText

Me.Metin135 = IE.Document.All.tags("table").Item(13).Rows(8).Cells(11).innerText

Me.Metin136 = IE.Document.All.tags("table").Item(13).Rows(8).Cells(12).innerText

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

Me.Metin138 = IE.Document.All.tags("table").Item(13).Rows(8).Cells(14).innerText

Me.Metin139 = IE.Document.All.tags("table").Item(13).Rows(8).Cells(15).innerText

Me.Metin140 = IE.Document.All.tags("table").Item(13).Rows(8).Cells(16).innerText

Me.Metin141 = IE.Document.All.tags("table").Item(13).Rows(8).Cells(17).innerText

Me.Metin142 = IE.Document.All.tags("table").Item(13).Rows(8).Cells(18).innerText

Me.Metin143 = IE.Document.All.tags("table").Item(13).Rows(8).Cells(19).innerText

Me.Metin144 = IE.Document.All.tags("table").Item(13).Rows(8).Cells(20).innerText

Me.Metin145 = IE.Document.All.tags("table").Item(13).Rows(9).Cells(0).innerText

Me.Metin146 = IE.Document.All.tags("table").Item(13).Rows(9).Cells(1).innerText

Me.Metin147 = IE.Document.All.tags("table").Item(13).Rows(9).Cells(3).innerText

Me.Metin148 = IE.Document.All.tags("table").Item(13).Rows(9).Cells(6).innerText

Me.Metin149 = IE.Document.All.tags("table").Item(13).Rows(9).Cells(7).innerText

Me.Metin150 = IE.Document.All.tags("table").Item(13).Rows(9).Cells(8).innerText

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

Me.Metin152 = IE.Document.All.tags("table").Item(13).Rows(9).Cells(10).innerText

Me.Metin153 = IE.Document.All.tags("table").Item(13).Rows(9).Cells(11).innerText

Me.Metin154 = IE.Document.All.tags("table").Item(13).Rows(9).Cells(12).innerText

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

Me.Metin156 = IE.Document.All.tags("table").Item(13).Rows(9).Cells(14).innerText

Me.Metin157 = IE.Document.All.tags("table").Item(13).Rows(9).Cells(15).innerText

Me.Metin158 = IE.Document.All.tags("table").Item(13).Rows(9).Cells(16).innerText

Me.Metin159 = IE.Document.All.tags("table").Item(13).Rows(9).Cells(17).innerText

Me.Metin160 = IE.Document.All.tags("table").Item(13).Rows(9).Cells(18).innerText

Me.Metin161 = IE.Document.All.tags("table").Item(13).Rows(9).Cells(19).innerText

Me.Metin162 = IE.Document.All.tags("table").Item(13).Rows(9).Cells(20).innerText

Me.Metin163 = IE.Document.All.tags("table").Item(13).Rows(10).Cells(0).innerText

Me.Metin164 = IE.Document.All.tags("table").Item(13).Rows(10).Cells(1).innerText

Me.Metin165 = IE.Document.All.tags("table").Item(13).Rows(10).Cells(3).innerText

Me.Metin166 = IE.Document.All.tags("table").Item(13).Rows(10).Cells(6).innerText

Me.Metin167 = IE.Document.All.tags("table").Item(13).Rows(10).Cells(7).innerText

Me.Metin168 = IE.Document.All.tags("table").Item(13).Rows(10).Cells(8).innerText

Me.Metin169 = IE.Document.All.tags("table").Item(13).Rows(10).Cells(9).innerText

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

Me.Metin171 = IE.Document.All.tags("table").Item(13).Rows(10).Cells(11).innerText

Me.Metin172 = IE.Document.All.tags("table").Item(13).Rows(10).Cells(12).innerText

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

Me.Metin174 = IE.Document.All.tags("table").Item(13).Rows(10).Cells(14).innerText

Me.Metin175 = IE.Document.All.tags("table").Item(13).Rows(10).Cells(15).innerText

Me.Metin176 = IE.Document.All.tags("table").Item(13).Rows(10).Cells(16).innerText

Me.Metin177 = IE.Document.All.tags("table").Item(13).Rows(10).Cells(17).innerText

Me.Metin178 = IE.Document.All.tags("table").Item(13).Rows(10).Cells(18).innerText

Me.Metin179 = IE.Document.All.tags("table").Item(13).Rows(10).Cells(19).innerText

Me.Metin180 = IE.Document.All.tags("table").Item(13).Rows(10).Cells(20).innerText

Me.Metin181 = IE.Document.All.tags("table").Item(13).Rows(11).Cells(0).innerText

Me.Metin182 = IE.Document.All.tags("table").Item(13).Rows(11).Cells(1).innerText

Me.Metin183 = IE.Document.All.tags("table").Item(13).Rows(11).Cells(3).innerText

Me.Metin184 = IE.Document.All.tags("table").Item(13).Rows(11).Cells(6).innerText

Me.Metin185 = IE.Document.All.tags("table").Item(13).Rows(11).Cells(7).innerText

Me.Metin186 = IE.Document.All.tags("table").Item(13).Rows(11).Cells(8).innerText

Me.Metin187 = IE.Document.All.tags("table").Item(13).Rows(11).Cells(9).innerText

Me.Metin188 = IE.Document.All.tags("table").Item(13).Rows(11).Cells(10).innerText

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

Me.Metin190 = IE.Document.All.tags("table").Item(13).Rows(11).Cells(12).innerText

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

Me.Metin192 = IE.Document.All.tags("table").Item(13).Rows(11).Cells(14).innerText

Me.Metin193 = IE.Document.All.tags("table").Item(13).Rows(11).Cells(15).innerText

Me.Metin194 = IE.Document.All.tags("table").Item(13).Rows(11).Cells(16).innerText

Me.Metin195 = IE.Document.All.tags("table").Item(13).Rows(11).Cells(17).innerText

Me.Metin196 = IE.Document.All.tags("table").Item(13).Rows(11).Cells(18).innerText

Me.Metin197 = IE.Document.All.tags("table").Item(13).Rows(11).Cells(19).innerText

Me.Metin198 = IE.Document.All.tags("table").Item(13).Rows(11).Cells(20).innerText

Me.Metin199 = IE.Document.All.tags("table").Item(13).Rows(12).Cells(0).innerText

Me.Metin200 = IE.Document.All.tags("table").Item(13).Rows(12).Cells(1).innerText

Me.Metin201 = IE.Document.All.tags("table").Item(13).Rows(12).Cells(3).innerText

Me.Metin202 = IE.Document.All.tags("table").Item(13).Rows(12).Cells(6).innerText

Me.Metin203 = IE.Document.All.tags("table").Item(13).Rows(12).Cells(7).innerText

Me.Metin204 = IE.Document.All.tags("table").Item(13).Rows(12).Cells(8).innerText

Me.Metin205 = IE.Document.All.tags("table").Item(13).Rows(12).Cells(9).innerText

Me.Metin206 = IE.Document.All.tags("table").Item(13).Rows(12).Cells(10).innerText

Me.Metin207 = IE.Document.All.tags("table").Item(13).Rows(12).Cells(11).innerText

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

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

Me.Metin210 = IE.Document.All.tags("table").Item(13).Rows(12).Cells(14).innerText

Me.Metin211 = IE.Document.All.tags("table").Item(13).Rows(12).Cells(15).innerText

Me.Metin212 = IE.Document.All.tags("table").Item(13).Rows(12).Cells(16).innerText

Me.Metin213 = IE.Document.All.tags("table").Item(13).Rows(12).Cells(17).innerText

Me.Metin214 = IE.Document.All.tags("table").Item(13).Rows(12).Cells(18).innerText

Me.Metin215 = IE.Document.All.tags("table").Item(13).Rows(12).Cells(19).innerText

Me.Metin216 = IE.Document.All.tags("table").Item(13).Rows(12).Cells(20).innerText

Me.Metin217 = IE.Document.All.tags("table").Item(13).Rows(13).Cells(0).innerText

Me.Metin218 = IE.Document.All.tags("table").Item(13).Rows(13).Cells(1).innerText

Me.Metin219 = IE.Document.All.tags("table").Item(13).Rows(13).Cells(3).innerText

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

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

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

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

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

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

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

Me.Metin227 = IE.Document.All.tags("table").Item(13).Rows(13).Cells(13).innerText

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

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

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

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

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

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

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

Me.Metin235 = IE.Document.All.tags("table").Item(13).Rows(14).Cells(0).innerText

Me.Metin236 = IE.Document.All.tags("table").Item(13).Rows(14).Cells(1).innerText

Me.Metin237 = IE.Document.All.tags("table").Item(13).Rows(14).Cells(3).innerText

Me.Metin238 = IE.Document.All.tags("table").Item(13).Rows(14).Cells(6).innerText

Me.Metin239 = IE.Document.All.tags("table").Item(13).Rows(14).Cells(7).innerText

Me.Metin240 = IE.Document.All.tags("table").Item(13).Rows(14).Cells(8).innerText

Me.Metin241 = IE.Document.All.tags("table").Item(13).Rows(14).Cells(9).innerText

Me.Metin242 = IE.Document.All.tags("table").Item(13).Rows(14).Cells(10).innerText

Me.Metin243 = IE.Document.All.tags("table").Item(13).Rows(14).Cells(11).innerText

Me.Metin244 = IE.Document.All.tags("table").Item(13).Rows(14).Cells(12).innerText

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

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

Me.Metin247 = IE.Document.All.tags("table").Item(13).Rows(14).Cells(15).innerText

Me.Metin248 = IE.Document.All.tags("table").Item(13).Rows(14).Cells(16).innerText

Me.Metin249 = IE.Document.All.tags("table").Item(13).Rows(14).Cells(17).innerText

Me.Metin250 = IE.Document.All.tags("table").Item(13).Rows(14).Cells(18).innerText

Me.Metin251 = IE.Document.All.tags("table").Item(13).Rows(14).Cells(19).innerText

Me.Metin252 = IE.Document.All.tags("table").Item(13).Rows(14).Cells(20).innerText

Me.Metin253 = IE.Document.All.tags("table").Item(13).Rows(15).Cells(0).innerText

Me.Metin254 = IE.Document.All.tags("table").Item(13).Rows(15).Cells(1).innerText

Me.Metin255 = IE.Document.All.tags("table").Item(13).Rows(15).Cells(3).innerText

Me.Metin256 = IE.Document.All.tags("table").Item(13).Rows(15).Cells(6).innerText

Me.Metin257 = IE.Document.All.tags("table").Item(13).Rows(15).Cells(7).innerText

Me.Metin258 = IE.Document.All.tags("table").Item(13).Rows(15).Cells(8).innerText

Me.Metin259 = IE.Document.All.tags("table").Item(13).Rows(15).Cells(9).innerText

Me.Metin260 = IE.Document.All.tags("table").Item(13).Rows(15).Cells(10).innerText

Me.Metin261 = IE.Document.All.tags("table").Item(13).Rows(15).Cells(11).innerText

Me.Metin262 = IE.Document.All.tags("table").Item(13).Rows(15).Cells(12).innerText

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

Me.Metin264 = IE.Document.All.tags("table").Item(13).Rows(15).Cells(14).innerText

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

Me.Metin266 = IE.Document.All.tags("table").Item(13).Rows(15).Cells(16).innerText

Me.Metin267 = IE.Document.All.tags("table").Item(13).Rows(15).Cells(17).innerText

Me.Metin268 = IE.Document.All.tags("table").Item(13).Rows(15).Cells(18).innerText

Me.Metin269 = IE.Document.All.tags("table").Item(13).Rows(15).Cells(19).innerText

Me.Metin270 = IE.Document.All.tags("table").Item(13).Rows(15).Cells(20).innerText

Me.Metin271 = IE.Document.All.tags("table").Item(13).Rows(16).Cells(0).innerText

Me.Metin272 = IE.Document.All.tags("table").Item(13).Rows(16).Cells(1).innerText

Me.Metin273 = IE.Document.All.tags("table").Item(13).Rows(16).Cells(3).innerText

Me.Metin274 = IE.Document.All.tags("table").Item(13).Rows(16).Cells(6).innerText

Me.Metin275 = IE.Document.All.tags("table").Item(13).Rows(16).Cells(7).innerText

Me.Metin276 = IE.Document.All.tags("table").Item(13).Rows(16).Cells(8).innerText

Me.Metin277 = IE.Document.All.tags("table").Item(13).Rows(16).Cells(9).innerText

Me.Metin278 = IE.Document.All.tags("table").Item(13).Rows(16).Cells(10).innerText

Me.Metin279 = IE.Document.All.tags("table").Item(13).Rows(16).Cells(11).innerText

Me.Metin280 = IE.Document.All.tags("table").Item(13).Rows(16).Cells(12).innerText

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

Me.Metin282 = IE.Document.All.tags("table").Item(13).Rows(16).Cells(14).innerText

Me.Metin283 = IE.Document.All.tags("table").Item(13).Rows(16).Cells(15).innerText

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

Me.Metin285 = IE.Document.All.tags("table").Item(13).Rows(16).Cells(17).innerText

Me.Metin286 = IE.Document.All.tags("table").Item(13).Rows(16).Cells(18).innerText

Me.Metin287 = IE.Document.All.tags("table").Item(13).Rows(16).Cells(19).innerText

Me.Metin288 = IE.Document.All.tags("table").Item(13).Rows(16).Cells(20).innerText

Me.Metin289 = IE.Document.All.tags("table").Item(13).Rows(17).Cells(0).innerText

Me.Metin290 = IE.Document.All.tags("table").Item(13).Rows(17).Cells(1).innerText

Me.Metin291 = IE.Document.All.tags("table").Item(13).Rows(17).Cells(3).innerText

Me.Metin292 = IE.Document.All.tags("table").Item(13).Rows(17).Cells(6).innerText

Me.Metin293 = IE.Document.All.tags("table").Item(13).Rows(17).Cells(7).innerText

Me.Metin294 = IE.Document.All.tags("table").Item(13).Rows(17).Cells(8).innerText

Me.Metin295 = IE.Document.All.tags("table").Item(13).Rows(17).Cells(9).innerText

Me.Metin296 = IE.Document.All.tags("table").Item(13).Rows(17).Cells(10).innerText

Me.Metin297 = IE.Document.All.tags("table").Item(13).Rows(17).Cells(11).innerText

Me.Metin298 = IE.Document.All.tags("table").Item(13).Rows(17).Cells(12).innerText

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

Me.Metin300 = IE.Document.All.tags("table").Item(13).Rows(17).Cells(14).innerText

Me.Metin301 = IE.Document.All.tags("table").Item(13).Rows(17).Cells(15).innerText

Me.Metin302 = IE.Document.All.tags("table").Item(13).Rows(17).Cells(16).innerText

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

Me.Metin304 = IE.Document.All.tags("table").Item(13).Rows(17).Cells(18).innerText

Me.Metin305 = IE.Document.All.tags("table").Item(13).Rows(17).Cells(19).innerText

Me.Metin306 = IE.Document.All.tags("table").Item(13).Rows(17).Cells(20).innerText

Me.Metin307 = IE.Document.All.tags("table").Item(13).Rows(18).Cells(0).innerText

Me.Metin308 = IE.Document.All.tags("table").Item(13).Rows(18).Cells(1).innerText

Me.Metin309 = IE.Document.All.tags("table").Item(13).Rows(18).Cells(3).innerText

Me.Metin310 = IE.Document.All.tags("table").Item(13).Rows(18).Cells(6).innerText

Me.Metin311 = IE.Document.All.tags("table").Item(13).Rows(18).Cells(7).innerText

Me.Metin312 = IE.Document.All.tags("table").Item(13).Rows(18).Cells(8).innerText

Me.Metin313 = IE.Document.All.tags("table").Item(13).Rows(18).Cells(9).innerText

Me.Metin314 = IE.Document.All.tags("table").Item(13).Rows(18).Cells(10).innerText

Me.Metin315 = IE.Document.All.tags("table").Item(13).Rows(18).Cells(11).innerText

Me.Metin316 = IE.Document.All.tags("table").Item(13).Rows(18).Cells(12).innerText

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

Me.Metin318 = IE.Document.All.tags("table").Item(13).Rows(18).Cells(14).innerText

Me.Metin319 = IE.Document.All.tags("table").Item(13).Rows(18).Cells(15).innerText

Me.Metin320 = IE.Document.All.tags("table").Item(13).Rows(18).Cells(16).innerText

Me.Metin321 = IE.Document.All.tags("table").Item(13).Rows(18).Cells(17).innerText

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

Me.Metin323 = IE.Document.All.tags("table").Item(13).Rows(18).Cells(19).innerText

Me.Metin324 = IE.Document.All.tags("table").Item(13).Rows(18).Cells(20).innerText

Me.Metin325 = IE.Document.All.tags("table").Item(13).Rows(19).Cells(0).innerText

Me.Metin326 = IE.Document.All.tags("table").Item(13).Rows(19).Cells(1).innerText

Me.Metin327 = IE.Document.All.tags("table").Item(13).Rows(19).Cells(3).innerText

Me.Metin328 = IE.Document.All.tags("table").Item(13).Rows(19).Cells(6).innerText

Me.Metin329 = IE.Document.All.tags("table").Item(13).Rows(19).Cells(7).innerText

Me.Metin330 = IE.Document.All.tags("table").Item(13).Rows(19).Cells(8).innerText

Me.Metin331 = IE.Document.All.tags("table").Item(13).Rows(19).Cells(9).innerText

Me.Metin332 = IE.Document.All.tags("table").Item(13).Rows(19).Cells(10).innerText

Me.Metin333 = IE.Document.All.tags("table").Item(13).Rows(19).Cells(11).innerText

Me.Metin334 = IE.Document.All.tags("table").Item(13).Rows(19).Cells(12).innerText

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

Me.Metin336 = IE.Document.All.tags("table").Item(13).Rows(19).Cells(14).innerText

Me.Metin337 = IE.Document.All.tags("table").Item(13).Rows(19).Cells(15).innerText

Me.Metin338 = IE.Document.All.tags("table").Item(13).Rows(19).Cells(16).innerText

Me.Metin339 = IE.Document.All.tags("table").Item(13).Rows(19).Cells(17).innerText

Me.Metin340 = IE.Document.All.tags("table").Item(13).Rows(19).Cells(18).innerText

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

Me.Metin342 = IE.Document.All.tags("table").Item(13).Rows(19).Cells(20).innerText

Me.Metin343 = IE.Document.All.tags("table").Item(13).Rows(20).Cells(0).innerText

Me.Metin344 = IE.Document.All.tags("table").Item(13).Rows(20).Cells(1).innerText

Me.Metin345 = IE.Document.All.tags("table").Item(13).Rows(20).Cells(3).innerText

Me.Metin346 = IE.Document.All.tags("table").Item(13).Rows(20).Cells(6).innerText

Me.Metin347 = IE.Document.All.tags("table").Item(13).Rows(20).Cells(7).innerText

Me.Metin348 = IE.Document.All.tags("table").Item(13).Rows(20).Cells(8).innerText

Me.Metin349 = IE.Document.All.tags("table").Item(13).Rows(20).Cells(9).innerText

Me.Metin350 = IE.Document.All.tags("table").Item(13).Rows(20).Cells(10).innerText

Me.Metin351 = IE.Document.All.tags("table").Item(13).Rows(20).Cells(11).innerText

Me.Metin352 = IE.Document.All.tags("table").Item(13).Rows(20).Cells(12).innerText

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

Me.Metin354 = IE.Document.All.tags("table").Item(13).Rows(20).Cells(14).innerText

Me.Metin355 = IE.Document.All.tags("table").Item(13).Rows(20).Cells(15).innerText

Me.Metin356 = IE.Document.All.tags("table").Item(13).Rows(20).Cells(16).innerText

Me.Metin357 = IE.Document.All.tags("table").Item(13).Rows(20).Cells(17).innerText

Me.Metin358 = IE.Document.All.tags("table").Item(13).Rows(20).Cells(18).innerText

Me.Metin359 = IE.Document.All.tags("table").Item(13).Rows(20).Cells(19).innerText

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

Me.Metin361 = IE.Document.All.tags("table").Item(13).Rows(21).Cells(0).innerText

Me.Metin362 = IE.Document.All.tags("table").Item(13).Rows(21).Cells(1).innerText

Me.Metin363 = IE.Document.All.tags("table").Item(13).Rows(21).Cells(3).innerText

Me.Metin364 = IE.Document.All.tags("table").Item(13).Rows(21).Cells(6).innerText

Me.Metin365 = IE.Document.All.tags("table").Item(13).Rows(21).Cells(7).innerText

Me.Metin366 = IE.Document.All.tags("table").Item(13).Rows(21).Cells(8).innerText

Me.Metin367 = IE.Document.All.tags("table").Item(13).Rows(21).Cells(9).innerText

Me.Metin368 = IE.Document.All.tags("table").Item(13).Rows(21).Cells(10).innerText

Me.Metin369 = IE.Document.All.tags("table").Item(13).Rows(21).Cells(11).innerText

Me.Metin370 = IE.Document.All.tags("table").Item(13).Rows(21).Cells(12).innerText

Me.Metin371 = IE.Document.All.tags("table").Item(13).Rows(21).Cells(13).innerText

Me.Metin372 = IE.Document.All.tags("table").Item(13).Rows(21).Cells(14).innerText

Me.Metin373 = IE.Document.All.tags("table").Item(13).Rows(21).Cells(15).innerText

Me.Metin374 = IE.Document.All.tags("table").Item(13).Rows(21).Cells(16).innerText

Me.Metin375 = IE.Document.All.tags("table").Item(13).Rows(21).Cells(17).innerText

Me.Metin376 = IE.Document.All.tags("table").Item(13).Rows(21).Cells(18).innerText

Me.Metin377 = IE.Document.All.tags("table").Item(13).Rows(21).Cells(19).innerText

Me.Metin378 = IE.Document.All.tags("table").Item(13).Rows(21).Cells(20).innerText

Me.Metin379 = IE.Document.All.tags("table").Item(13).Rows(22).Cells(0).innerText

Me.Metin380 = IE.Document.All.tags("table").Item(13).Rows(22).Cells(1).innerText

Me.Metin381 = IE.Document.All.tags("table").Item(13).Rows(22).Cells(3).innerText

Me.Metin382 = IE.Document.All.tags("table").Item(13).Rows(22).Cells(6).innerText

Me.Metin383 = IE.Document.All.tags("table").Item(13).Rows(22).Cells(7).innerText

Me.Metin384 = IE.Document.All.tags("table").Item(13).Rows(22).Cells(8).innerText

Me.Metin385 = IE.Document.All.tags("table").Item(13).Rows(22).Cells(9).innerText

Me.Metin386 = IE.Document.All.tags("table").Item(13).Rows(22).Cells(10).innerText

Me.Metin387 = IE.Document.All.tags("table").Item(13).Rows(22).Cells(11).innerText

Me.Metin388 = IE.Document.All.tags("table").Item(13).Rows(22).Cells(12).innerText

Me.Metin389 = IE.Document.All.tags("table").Item(13).Rows(22).Cells(13).innerText

Me.Metin390 = IE.Document.All.tags("table").Item(13).Rows(22).Cells(14).innerText

Me.Metin391 = IE.Document.All.tags("table").Item(13).Rows(22).Cells(15).innerText

Me.Metin392 = IE.Document.All.tags("table").Item(13).Rows(22).Cells(16).innerText

Me.Metin393 = IE.Document.All.tags("table").Item(13).Rows(22).Cells(17).innerText

Me.Metin394 = IE.Document.All.tags("table").Item(13).Rows(22).Cells(18).innerText

Me.Metin395 = IE.Document.All.tags("table").Item(13).Rows(22).Cells(19).innerText

Me.Metin396 = IE.Document.All.tags("table").Item(13).Rows(22).Cells(20).innerText

Me.Metin397 = IE.Document.All.tags("table").Item(13).Rows(23).Cells(0).innerText

Me.Metin398 = IE.Document.All.tags("table").Item(13).Rows(23).Cells(1).innerText

Me.Metin399 = IE.Document.All.tags("table").Item(13).Rows(23).Cells(3).innerText

Me.Metin400 = IE.Document.All.tags("table").Item(13).Rows(23).Cells(6).innerText

Me.Metin401 = IE.Document.All.tags("table").Item(13).Rows(23).Cells(7).innerText

Me.Metin402 = IE.Document.All.tags("table").Item(13).Rows(23).Cells(8).innerText

Me.Metin403 = IE.Document.All.tags("table").Item(13).Rows(23).Cells(9).innerText

Me.Metin404 = IE.Document.All.tags("table").Item(13).Rows(23).Cells(10).innerText

Me.Metin405 = IE.Document.All.tags("table").Item(13).Rows(23).Cells(11).innerText

Me.Metin406 = IE.Document.All.tags("table").Item(13).Rows(23).Cells(12).innerText

Me.Metin407 = IE.Document.All.tags("table").Item(13).Rows(23).Cells(13).innerText

Me.Metin408 = IE.Document.All.tags("table").Item(13).Rows(23).Cells(14).innerText

Me.Metin409 = IE.Document.All.tags("table").Item(13).Rows(23).Cells(15).innerText

Me.Metin410 = IE.Document.All.tags("table").Item(13).Rows(23).Cells(16).innerText

Me.Metin411 = IE.Document.All.tags("table").Item(13).Rows(23).Cells(17).innerText

Me.Metin412 = IE.Document.All.tags("table").Item(13).Rows(23).Cells(18).innerText

Me.Metin413 = IE.Document.All.tags("table").Item(13).Rows(23).Cells(19).innerText

Me.Metin414 = IE.Document.All.tags("table").Item(13).Rows(23).Cells(20).innerText

Me.Metin415 = IE.Document.All.tags("table").Item(13).Rows(24).Cells(0).innerText

Me.Metin416 = IE.Document.All.tags("table").Item(13).Rows(24).Cells(1).innerText

Me.Metin417 = IE.Document.All.tags("table").Item(13).Rows(24).Cells(3).innerText

Me.Metin418 = IE.Document.All.tags("table").Item(13).Rows(24).Cells(6).innerText

Me.Metin419 = IE.Document.All.tags("table").Item(13).Rows(24).Cells(7).innerText

Me.Metin420 = IE.Document.All.tags("table").Item(13).Rows(24).Cells(8).innerText

Me.Metin421 = IE.Document.All.tags("table").Item(13).Rows(24).Cells(9).innerText

Me.Metin422 = IE.Document.All.tags("table").Item(13).Rows(24).Cells(10).innerText

Me.Metin423 = IE.Document.All.tags("table").Item(13).Rows(24).Cells(11).innerText

Me.Metin424 = IE.Document.All.tags("table").Item(13).Rows(24).Cells(12).innerText

Me.Metin425 = IE.Document.All.tags("table").Item(13).Rows(24).Cells(13).innerText

Me.Metin426 = IE.Document.All.tags("table").Item(13).Rows(24).Cells(14).innerText

Me.Metin427 = IE.Document.All.tags("table").Item(13).Rows(24).Cells(15).innerText

Me.Metin428 = IE.Document.All.tags("table").Item(13).Rows(24).Cells(16).innerText

Me.Metin429 = IE.Document.All.tags("table").Item(13).Rows(24).Cells(17).innerText

Me.Metin430 = IE.Document.All.tags("table").Item(13).Rows(24).Cells(18).innerText

Me.Metin431 = IE.Document.All.tags("table").Item(13).Rows(24).Cells(19).innerText

Me.Metin432 = IE.Document.All.tags("table").Item(13).Rows(24).Cells(20).innerText

Me.Metin433 = IE.Document.All.tags("table").Item(13).Rows(25).Cells(0).innerText

Me.Metin434 = IE.Document.All.tags("table").Item(13).Rows(25).Cells(1).innerText

Me.Metin435 = IE.Document.All.tags("table").Item(13).Rows(25).Cells(3).innerText

Me.Metin436 = IE.Document.All.tags("table").Item(13).Rows(25).Cells(6).innerText

Me.Metin437 = IE.Document.All.tags("table").Item(13).Rows(25).Cells(7).innerText

Me.Metin438 = IE.Document.All.tags("table").Item(13).Rows(25).Cells(8).innerText

Me.Metin439 = IE.Document.All.tags("table").Item(13).Rows(25).Cells(9).innerText

Me.Metin440 = IE.Document.All.tags("table").Item(13).Rows(25).Cells(10).innerText

Me.Metin441 = IE.Document.All.tags("table").Item(13).Rows(25).Cells(11).innerText

Me.Metin442 = IE.Document.All.tags("table").Item(13).Rows(25).Cells(12).innerText

Me.Metin443 = IE.Document.All.tags("table").Item(13).Rows(25).Cells(13).innerText

Me.Metin444 = IE.Document.All.tags("table").Item(13).Rows(25).Cells(14).innerText

Me.Metin445 = IE.Document.All.tags("table").Item(13).Rows(25).Cells(15).innerText

Me.Metin446 = IE.Document.All.tags("table").Item(13).Rows(25).Cells(16).innerText

Me.Metin447 = IE.Document.All.tags("table").Item(13).Rows(25).Cells(17).innerText

Me.Metin448 = IE.Document.All.tags("table").Item(13).Rows(25).Cells(18).innerText

Me.Metin449 = IE.Document.All.tags("table").Item(13).Rows(25).Cells(19).innerText

Me.Metin450 = IE.Document.All.tags("table").Item(13).Rows(25).Cells(20).innerText









Dim strSQL As String

Dim a As Integer

Dim b As Integer

Dim c As Integer

Dim d As Integer

Dim e As Integer

Dim f As Integer

Dim g As Integer

Dim h As Integer

Dim i As Integer

Dim j As Integer

Dim k As Integer

Dim l As Integer

Dim m As Integer

Dim n As Integer

Dim o As Integer

Dim p As Integer

Dim r As Integer

Dim s As Integer

For a = 1 To 433





a = 1

b = 2

c = 3

d = 4

e = 5

f = 6

g = 7

h = 8

i = 9

j = 10

k = 11

l = 12

m = 13

n = 14

o = 15

p = 16

r = 17

s = 18



strSQL = "SELECT * FROM T_VERITABLOSU "

Set rstkayit = New ADODB.Recordset

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

With rstkayit

.Find "[ISEMRINO]='" & Me.veri(a) & "'"

If Not rstkayit.EOF Then

If MsgBox("" & veri(a) & " . AY VERİSİ DAHA ÖNCEDEN KAYIT EDİLMİŞ.Veri Güncellensin mi?", vbYesNo, "Kaydediliyor...") = vbYes Then



            .Fields("ISEMRINO") = Me.veri(a)

            .Fields("SEFLIKKODU") = Me.veri(b)

            .Fields("ILCEKODU") = Me.veri(c)

            .Fields("MAHALLE") = Me.veri(d)

            .Fields("SOKAK") = Me.veri(e)

            .Fields("BINANO") = Me.veri(f)

            .Fields("CAGRITURU") = Me.veri(g)

            .Fields("CEVAP") = Me.veri(h)

            .Fields("KAYITTARIHI") = Me.veri(i)

            .Fields("FAALIYETTARIHI") = Me.veri(j)

            .Fields("FAALIYETKODU") = Me.veri(k)

            .Fields("SIKAYETSAHIBI") = Me.veri(l)

            .Fields("EVTEL") = Me.veri(m)

            .Fields("CEPTEL") = Me.veri(n)

            .Fields("ISTEL") = Me.veri(o)

            .Fields("EPOSTA") = Me.veri(p)

            .Fields("FAXNO") = Me.veri(r)

            .Fields("GERIBILDIRIM") = Me.veri(s)









.Update

 Else

Exit Sub

End If

Else

.AddNew

            .Fields("ISEMRINO") = Me.veri(a)

            .Fields("SEFLIKKODU") = Me.veri(b)

            .Fields("ILCEKODU") = Me.veri(c)

            .Fields("MAHALLE") = Me.veri(d)

            .Fields("SOKAK") = Me.veri(e)

            .Fields("BINANO") = Me.veri(f)

            .Fields("CAGRITURU") = Me.veri(g)

            .Fields("CEVAP") = Me.veri(h)

            .Fields("KAYITTARIHI") = Me.veri(i)

            .Fields("FAALIYETTARIHI") = Me.veri(j)

            .Fields("FAALIYETKODU") = Me.veri(k)

            .Fields("SIKAYETSAHIBI") = Me.veri(l)

            .Fields("EVTEL") = Me.veri(m)

            .Fields("CEPTEL") = Me.veri(n)

            .Fields("ISTEL") = Me.veri(o)

            .Fields("EPOSTA") = Me.veri(p)

            .Fields("FAXNO") = Me.veri(r)

            .Fields("GERIBILDIRIM") = Me.veri(s)





.Update

End If

End With

a = a + 18

b = b + 18

c = c + 18

d = d + 18

e = e + 18

f = f + 18

g = g + 18

h = h + 18

i = i + 18

j = j + 18

k = k + 18

l = l + 18

m = m + 18

n = n + 18

o = o + 18

p = p + 18

r = r + 18

s = s + 18



Next







End Sub

Bul · 14/09/2010, 01:33

Msgboxtaki debug butonuna tıkladığında hatalı satır sarı renkte gösterir, bunun anlamı bu satırdaki eşitlemeden veri alınamıyor. Koda yazdığın item, rows veya cells değeri hatalı.

Bul · 14/09/2010, 14:16

hatayı yukarıdaki kodda bulunan 509. satırdan itibaren veriyor. item,rows ve cells de problem yok. sanırım

.Fields("ISEMRINO") = Me.veri(a)

kısmındaki veri (a) yı nasıl yazacağımı bilmiyorum veria yazdım olmadı veri a olmadı veri (a) olmadı. nasıl yazmalıyım?

Bul · 14/09/2010, 17:04

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

Bul · 14/09/2010, 22:24

sn kadirdursun, örneğinizin son halini ve webbrowserda veri aldığınız tüm sayfanın kaynak kodunu gönderiniz.

Bul · 15/09/2010, 08:40

sayın sledgeab, çok uğraştırıdım farkındayım, özür dilerim.
istedikleriniz ektedir.

AccessTr.neT

webden bilgi alma

webden bilgi alma

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

Giriş yap

Hesap oluştur

Konu Linkleri