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