Formün üsüt kısmındaki açılan kutudan 2019 seçtim.Ay olarakta Haziranı seçtim. Butona bastığımda kütük defterindeki aktif olan tüm öğrencilerin "YIL ALT TABLOSU"na 2019 yılı eklenmeli. ve her aktif öğrencinin yıl alt tablosuna bağlı "HARÇLIK ALT" tablosuna iligli ay ve diğer harçlık verileri eklenmeli. Sizin verdiğiniz örnekte sadece yılID si 1 olan alana bağlı harçlık alt tablosundaki veriler işleniyor. 2019 u seçtiğimde ilgili yıltablosunda 2019 olmadığı için kayıt yapılamaz diyor. Sizin verdiğiniz örneği biraz geliştirmeye çalıştım ama beceremedim. Yardımcı olursanız memnun olurum. Değerli vakitlerinizi ayırdığınız için şimdiden teşekkür ederim.

---

Dim rst As Recordset

Dim db As Database





Private Sub tar()

Set db = CurrentDb

        strSQL = "SELECT * From Srg WHERE  süz=" & cmbMonth & "" & cmbYear

            Set rst = db.OpenRecordset(strSQL)

            If rst.RecordCount = 0 Then

            

        Dim intI As Integer, intJ As Integer, strnum As String

            intMonth = Me!cmbMonth

            intYear = Me!cmbYear

          

        intFirst = 1

        intLastDay = Day(DateAdd("m", 1, DateSerial(intYear, intMonth, 1)) - 1)

        intLast = intFirst + intLastDay - 1

        intJ = 1

          For intI = intFirst To intLast

                strnum = Format(intI, "00")

            rst.AddNew

        rst![tarih] = strnum & "/" & cmbMonth & "/" & cmbYear

        rst.Update

        

          Next intI

          Else

          MsgBox "Dikkat Bu Seçime Ait Tarih Bilgisi Daha Önce Aktarıldı"

        Exit Sub

        End If

          rst.Close

db.Close

End Sub

YUKARIDAKİ OLAYIN TÜRKÇESİNİ BİZİM ANLAYABİLECEĞİMİZ DİLDE AÇIKLAYABİLİR MİSİNİZ?
BİR ÖRNEKTEN ALDIM.
ÖRNEK ÜZERİNDE
TABLO ADI: TABLO1
SORGU ADI :srg
SORGU FORM ADI : srg
Forma adı :Form1