Set qdf2 = CurrentDb.QueryDefs("srg_raporverileri")

kodunu

Set qdf2 = CurrentDb.QueryDefs("SRG_PORTFOY")

kodu ile değiştir. srg_raporverileri sorgusunu sil, butonun tıklandığında olayına da, R_002_PORTFOY isimli raporun açılması için,

DoCmd.OpenReport "R_002_PORTFOY", acViewPreview, , , acWindowNormal

kodu ekle. Bu arada, komut butonları yerine seçenek grubu kullanırsan daha kolay yaparsın. Butonların tıklandığında olaylarındaki kod biraz karışık.