Skip to main content

AccessTr.neT


Web Sayfası Tablo almak

Web Sayfası Tablo almak

Çözüldü #7
hocam sağolun en kısa zamanda deneyip size bildircem.. Hafta sonu olduğu için deneyemiyorum..
Cevapla
Çözüldü #8
hocam örneğinizi denedim gerçekten çok güzel olmuş fakat ben kendim ek olarak ona bir sütun ekleyebilirmiyim. Mesela BAŞVURUID adında metin kutusunda yazan rakam oraya aktarılan kişilerin karşılarına yazacak. Çünkü ona göre raporlama yapıyorum ve kişileri seçtikçe o tablonun da ilgili kişilerinin değişmesi gerekiyor. Ayrıca birde mükerrer kayıtları eklemeyi engelleyebilirmisiniz?
.rar mernis_deneme_sled.rar (Dosya Boyutu: 24,81 KB | İndirme Sayısı: 10)
Son Düzenleme: 27/12/2010, 14:23, Düzenleyen: silka.
Cevapla
Çözüldü #9
Butonun tıklandığında olayındaki kodları aşağıdakilerle değiştir.

 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 'Img-grin
ReDim Sorgu(5, SATIRSAYISI - 1)

X = 0
For X = 0 To SATIRSAYISI - 1

A = 1 + (1 * X) ' Img-grin

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
Cevapla
Çözüldü #10
hocam elleriniz dert görmesin süper olmuş. tavsiyelerinize uymaya çalışcam Img-grin
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task