Button İle Diğer Butonu Çalıştırmak?

Ben bu işlemi hem yordam ile hemde buton ile denedim ikiside olmadı.

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

Kodlarınızda bu kısımlarında step into yapıp izleme yaparsanız hatalarınızı görürsünüz. Object değişkenlerinin set ile atanması özelliklerinin belirlenmesi gerekir, aksi halde Runtime Error 91 ile "Object Variable or With block variable not set" hatası alırsınız. Kodlarınızda bu hata mevcut ve error handlerınız hata End Sub olduğu için işleminiz yarıda kesilmekte dolayısı ile call işlemlerine gelemiyorsunuz bile çalışmıyor değil.

Cevap için çok teşekkür ederim kontrol edeceğim şimdi.

Evet hocam haklısınız, on error hata: bloğu sebebiyle hatayı görememişim. Çok teşekkür ederim. Hatayı bulup düzelttim.

Rica ederim. İyi çalışmalar.