Öncelikle, lütfen örnek uygulamanızın adını "örnek" şeklinde eklemeyiniz, birden fazla konuya örnek adında uygulama ekleyince karışıyor.

Uygulamanızdaki kodları düzenledim, 

Konu başlığındaki soru ile ilgisi yok ama, "std_klasoru_tablosu" isimli tablodaki "klasor_no" alanının veri türünü sayı yaparsanız kodlamada düzeltme yapmalısınız, veri türü Metin olduğu için kodlarda ' (tek tırnak) eklendi.



VarMi = Nz(DLookup("[klasor_no]", "std_klasoru_tablosu", "[klasor_no]= '" & KlasorAdi & "'"), 0)

Veri türünü sayı yaparsanız kırmızı ile işaretlediğim tırnakları silmelisin, bu tırnak olayı docmd.runsql kodunun ilgili yerlerinde de var, onlarında düzeltilmesi gerekli, denetim için oluşturulan sorgu bu uygulamaya eklenmemiş, sorgudaki alan ilişkilendirmelerinin de düzeltilmesi gerekir.