Vba penceresine girin.Tools yada reference yazar.Yada Türkçesi nedir bilemiyorum orda yazması gerek.
Vba penceresine girmek için heralte alt ve f11 tuşuna beraber basılmalı bildiğim.

İşe yaradı. teşekkür ederim.emeğinize sağlık.
Şimdi hata (1. sayfadaki kodlardan 24. satırdaki)
Varmi = Nz(dlookup("YılID", "tblYıllar", "[SıraID] = " & rsSQL1.Fields("SıraID") & " And [Yıl] = '" & Me.akYıl & "'"), 0)
komutunun Dlookup kodunu gösterdi.

Rica ederim.
Access bilgim fazla yok
Ozan hocamız yada bir başka üstad ilgilenir sanıyorum.

---

Geçen kod denerken ilginç şekile Dlookup yazınca hata vermişti
Application.dlookup yazınca çalışmıştı birde böyle deneyin bence.
Hatalı yazmış olabilirim mobilden.

onu da denedim ama eski haline otomatik çeviriyor.

Bir inceleyeyim istedim Vba penceresi açılmıyor dosyanızda dosya otomatik kapanıyor.

yeni bir VT oluşturup import ile eskisinden yenisine aktarmayı deneyebilirsiniz, tabi referasları da yeniden eklemeniz gerekiyor ama bu durumda da kod sayfanızda formda olmayan alanlara atıf olduğu için hata verecektir: mesela insert sorgunuzda Me.Ödeme1 alanına atıf var ama formunuzda öyle bir nesne yok