AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

webden bilgi alma

1 2 3 4 5 6 7 8 9 10 11
13/09/2010, 09:22

kadirdursun

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
14/09/2010, 01:33

ozanakkaya

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ı.
14/09/2010, 14:16

kadirdursun

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?
14/09/2010, 17:04

kadirdursun

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
14/09/2010, 22:24

ozanakkaya

sn kadirdursun, örneğinizin son halini ve webbrowserda veri aldığınız tüm sayfanın kaynak kodunu gönderiniz.
15/09/2010, 08:40

kadirdursun

sayın sledgeab, çok uğraştırıdım farkındayım, özür dilerim.
istedikleriniz ektedir.
1 2 3 4 5 6 7 8 9 10 11