Bu tablo zaten geçici bir tablo olacaktı onu için bir ekleme sorgusu yapıp
INSERT INTO Tbl_Alimlar ( IKN, Barkod, Etiket, Istekli, I_Kodu, Adet, Fiyat, Tutar, GMDN, Idare_K, Idare_A, Alim_T, Sonuc, Tur, Aciklama )
SELECT Tbl_Aktarma1.IKN, Tbl_Aktarma1.Barkod, Tbl_Aktarma1.Etiket, Tbl_Aktarma1.Istekli, Tbl_Aktarma1.I_Kodu, Tbl_Aktarma1.Adet, Tbl_Aktarma1.Fiyat, Tbl_Aktarma1.Tutar, Tbl_Aktarma1.GMDN, Tbl_Aktarma1.Idare_K, Tbl_Aktarma1.Idare_A, Tbl_Aktarma1.Alim_T, Tbl_Aktarma1.Sonuc, Tbl_Aktarma1.Tur, Tbl_Aktarma1.Aciklama
FROM Tbl_Aktarma1
WHERE (((Tbl_Aktarma1.IKN) Is Not Null And (Tbl_Aktarma1.IKN) Not Like "Gösterilecek ihale detayı yok"));
Koduda şu şekilde derleyerek sorunu çözdüm
Option Compare Database
Option Explicit
Private Sub btn_verial_Click()
On Error Resume Next
Dim GVeriTablo As Object
Dim GSayi, GVeriSutun As Integer
Dim rc As DAO.Recordset
Set GVeriTablo = Me.WebBrowser0.Document.getElementById("ctl00_MainContent_gridIhale_ctl00")
Set rc = CurrentDb.OpenRecordset("Tbl_Aktarma1")
GSayi = 0
For GSayi = 0 To 9
GVeriSutun = GSayi + 1
'If GVeriTablo.rows(GVeriSutun).cells(0).innerText = "Gösterilecek ihale detayı yok" Then
' MsgBox ("Gösterilecek ihale detayı yok veya sorgu sonucu yok ")
'Exit Sub
' End If
rc.AddNew
rc![IKN] = GVeriTablo.rows(GVeriSutun).cells(0).innerText
rc![Barkod] = GVeriTablo.rows(GVeriSutun).cells(1).innerText
rc![Etiket] = GVeriTablo.rows(GVeriSutun).cells(2).innerText
rc![Istekli] = GVeriTablo.rows(GVeriSutun).cells(3).innerText
rc![I_Kodu] = GVeriTablo.rows(GVeriSutun).cells(4).innerText
rc![Alim_T] = GVeriTablo.rows(GVeriSutun).cells(5).innerText
rc![Adet] = GVeriTablo.rows(GVeriSutun).cells(6).innerText
rc![Fiyat] = GVeriTablo.rows(GVeriSutun).cells(7).innerText
rc![Tutar] = GVeriTablo.rows(GVeriSutun).cells(8).innerText
rc![GMDN] = GVeriTablo.rows(GVeriSutun).cells(9).innerText
rc![Idare_K] = GVeriTablo.rows(GVeriSutun).cells(10).innerText
rc![Idare_A] = GVeriTablo.rows(GVeriSutun).cells(11).innerText
rc![Sonuc] = GVeriTablo.rows(GVeriSutun).cells(12).innerText
rc![Tur] = GVeriTablo.rows(GVeriSutun).cells(13).innerText
rc![Aciklama] = GVeriTablo.rows(GVeriSutun).cells(14).innerText
rc.Update
Next GSayi
Set rc = Nothing
Me![alt_form_frm].Requery
Set GVeriTablo = Nothing
End Sub
Private Sub btn_verikatar_Click()
DoCmd.OpenQuery "aktar"
CurrentDb.Execute "DELETE * FROM [Tbl_Aktarma1] "
Me![alt_form_frm].Requery
End Sub
Private Sub Form_Open(Cancel As Integer)
WebBrowser0.Navigate "https://titubb.titck.gov.tr/Reports/FiyatRapor.aspx"
End Sub
