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(11)
Set HTML_TableRows = MyTable.GetElementsByTagName("tr")
For Each MyRow In HTML_TableRows
X = X + 1
Next
SATIRSAYISI = (X - 1) / 1 '
ReDim Sorgu(5, SATIRSAYISI - 1)
X = 0
For X = 0 To SATIRSAYISI - 1
A = 1 + (1 * X) '
Sorgu(0, X) = MyTable.Rows(A).Cells(1).innerText
Sorgu(1, X) = MyTable.Rows(A).Cells(2).innerText
Sorgu(2, X) = MyTable.Rows(A).Cells(3).innerText
Sorgu(3, X) = MyTable.Rows(A).Cells(4).innerText
Sorgu(4, X) = MyTable.Rows(A).Cells(5).innerText
Sorgu(5, X) = MyTable.Rows(A).Cells(6).innerText
Next X
strSQL = "SELECT * FROM Tablo1 "
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
X = 0
For X = 0 To SATIRSAYISI - 1
With rstkayit
.Find "[tcno]='" & Sorgu(2, X) & "'"
If Not rstkayit.EOF Then
If MsgBox("" & Sorgu(2, X) & " . TC Kimlik Numaralı Şahıs Daha Önce Eklenmiş. Güncellensin mi?", 51, "Kaydediliyor....") = 6 Then
.Fields("bsn") = Sorgu(0, X)
.Fields("yakinligi") = Sorgu(1, X)
.Fields("tcno") = Sorgu(2, X)
.Fields("adi") = Sorgu(3, X)
.Fields("soyadi") = Sorgu(4, X)
.Fields("dogumtarihi") = Sorgu(5, X)
.Fields("BAŞVURUID") = Me.BAŞVURUID
.Update
Else
Exit Sub
End If
Else
.AddNew
.Fields("bsn") = Sorgu(0, X)
.Fields("yakinligi") = Sorgu(1, X)
.Fields("tcno") = Sorgu(2, X)
.Fields("adi") = Sorgu(3, X)
.Fields("soyadi") = Sorgu(4, X)
.Fields("dogumtarihi") = Sorgu(5, X)
.Fields("BAŞVURUID") = Me.BAŞVURUID
.Update
End If
End With
Next
Set rstkayit = Nothing
Me![Tablo1 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
Uygulaman için Webbrowser olayına başka birşey ekleme, uygulaman için farklı şeylerle uğraş, tablolarını vs. düzelt. Access öğrenmeye çalış. Webbrowser olayını kesinlikle bırak