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"));

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