AccessTr.neT

hocam sağolun en kısa zamanda deneyip size bildircem.. Hafta sonu olduğu için deneyemiyorum..

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?

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 '

	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

hocam elleriniz dert görmesin süper olmuş. tavsiyelerinize uymaya çalışcam