On Error GoTo hata:
CurrentDb.Execute "ALTER TABLE veriler ADD Column Kimlik AUTOINCREMENT PRIMARY KEY;"
   
    DoCmd.SetWarnings False
    Set qryDersler = db.CreateQueryDef("srg_dersler")
    qryDersler.SQL = "SELECT DISTINCT veriler.F4 as dersler into tbl_dersler FROM veriler ORDER BY veriler.F4"
    Set qryDersler = Nothing
    DoCmd.OpenQuery "srg_dersler", acViewNormal, acReadOnly
    DoCmd.Close acQuery, "srg_dersler"
    CurrentDb.Execute "ALTER TABLE tbl_dersler ADD Column id AUTOINCREMENT PRIMARY KEY;"
        
    Set qryOgrenciler = db.CreateQueryDef("srg_ogrenciler")
    qryOgrenciler.SQL = "SELECT DISTINCT veriler.F1 as [ogrenci_no], veriler.F2 as [ogrenci_adi], veriler.F3 as [Sınıf ve Şube], veriler.F6 as sinifi into tbl_ogrenciler FROM veriler ORDER BY veriler.F6 desc, veriler.F2"
    Set qryOgrenciler = Nothing
    DoCmd.OpenQuery "srg_ogrenciler", acViewNormal, acReadOnly
    DoCmd.Close acQuery, "srg_ogrenciler"
    CurrentDb.Execute "ALTER TABLE tbl_ogrenciler ADD Column id AUTOINCREMENT PRIMARY KEY;"

    Set qryOgretmenler = db.CreateQueryDef("srg_ogretmenler")
    qryOgretmenler.SQL = "SELECT DISTINCT veriler.F5 AS ogretmen_adi INTO tbl_ogretmenler FROM veriler ORDER BY veriler.F5;"
    Set qryOgretmenler = Nothing
    DoCmd.OpenQuery "srg_ogretmenler", acViewNormal, acReadOnly
    DoCmd.Close acQuery, "srg_ogretmenler"
    CurrentDb.Execute "ALTER TABLE tbl_ogretmenler ADD Column id AUTOINCREMENT PRIMARY KEY;"
    
    Set qrySiniflar = db.CreateQueryDef("srg_sinifsubeler")
    qrySiniflar.SQL = "SELECT DISTINCT veriler.F3 as [sinifsube] into tbl_siniflar FROM veriler order by veriler.F3"
    Set qrySiniflar = Nothing
    DoCmd.OpenQuery "srg_sinifsubeler", acViewNormal, acReadOnly
    DoCmd.Close acQuery, "srg_sinifsubeler"
    CurrentDb.Execute "ALTER TABLE tbl_siniflar ADD Column id AUTOINCREMENT PRIMARY KEY;"