Merhaba,

Private Sub SetDays() kodundaki 

strSQL = "SELECT * From Srg WHERE (((büz)=" & cmbMonth & "" & cmbYear & "));"

kodunu 

strSQL = "SELECT dnm AS gtarih, süz AS golcut FROM Srg WHERE (((süz)=" & cmbMonth & "" & cmbYear & ")) UNION SELECT knn AS gtarih, büz AS golcut FROM Srg WHERE (((büz)=" & cmbMonth & "" & cmbYear & "));"

kodu ile,

gun2 = Day(rst![knn])

kodunu da

gun2 = Day(rst![gtarih])

Kodu ile değiştirerek deneyiniz.

Ayrıca, örnek uygulamanızı sıkıştırma programı ile sıkıştırmadan önce, Access içerisinde "Veritabanını Sıkıştır ve Onar" seçeneği ile sıkıştırınız.