28/09/2020, 22:06
fenerli6774
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.
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
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