maalesef 3 gündür uğraşıyorum başaramadım. yardımlarınızı beklerim sayın hocalarım.

Sevgili hocalarım, diğer konuyu kapatmadan buradan yeni konu açtığım için çok özür dilerim. kaç gündür çırpınıyorum ama sesim duyulmadı. yeni bir konu açmak zorunda kaldım dikkat çekmek için  .

benim takıldığım konu benim projem için çok önemli. yoklama alt form diye bir form oluşturdum. öğrenci kayıt tablosu ile de eşleştirdim. öğrenci kaydı geliyor , istediğim düzeni yaptım. fakat sadece ay ve yıl eklemede problemim var. 

ay seçtiğimde öğrencinin o ay için yoklamasını girmek istiyorum . 
branş seçtiğimde o branşa ait öğrencilerin yoklama alt formuna seçtiğim aya ait verilerinin gelmesini istiyorum.

lütfen bu konu hakkında yardımlarınızı bekliyorum. bu kadar acil olmasa çok ısrar etmezdim.

tekrar kusuruma bakmayın lütfen.

Eklenen örnek formunda süzgeç uygulanacak ilişkisiz nesneler bulunmamakta, kayıt çağırma ve çoklu süzgeç uygulama konuları ile daha önceden çalışılmış bir çok konu mevcut, ARAMA bölümüne Süzgeç veya filter kelimeleri ile listeleyip, ihtiyatinizi karşılayabilirsiniz.

Form uzerinde YIL ve AY nesne adlarinin sonuna "a" harfini ekleyip, iliskisiz yapin ve asagidaki prosedurleri form VBA'na tasiyin.
ad ve brans seceneklerini And ile filter bolumune iif(.. sarti ile ekleyin.

(17-09-2022, 10:31)dsezgin demiş ki: Eklenen örnek formunda süzgeç uygulanacak ilişkisiz nesneler bulunmamakta, kayıt çağırma ve çoklu süzgeç uygulama konuları ile daha önceden çalışılmış bir çok konu mevcut, ARAMA bölümüne Süzgeç veya filter kelimeleri ile listeleyip, ihtiyatinizi karşılayabilirsiniz.

Form uzerinde YIL ve AY nesne adlarinin sonuna "a" harfini ekleyip, iliskisiz yapin ve asagidaki prosedurleri form VBA'na tasiyin.
ad ve brans seceneklerini And ile filter bolumune iif(.. sarti ile ekleyin.

Visual Basic

Private Sub AYa_AfterUpdate()
    Call Suzgec
End Sub
Private Sub YILa_AfterUpdate()
    Call Suzgec
End Sub
Sub Suzgec()
    Me.Filter = "YIL='" & Me.YILa & "'" & IIf(Me.AYa <> "", " And AY='" & Me.AYa & "'", vbNullString)
    Me.FilterOn = True
End Sub
 
Private Sub Form_Current()
If Me.NewRecord = 0 Then
    Me.YILa = Me.YIL
    Me.AYa = Me.AY
End If
End Sub

cevabınız için teşekkür ederim. şimdi deneyeceğim. inşallah başarılı olabilirim.

Hocam teşekkür ederim verdiğiniz bilgi için ama maalesef yine başaramadım. bu sefer ay seçince isimler hataya düştü. hakkınızı helal edin lütfen. yoklamayı nasıl yaparım bilmiyorum ama galiba bu alanı başaramayacağım.

sayın hocalarım , inanın bu kadar ısrar ettiğim için kendimi iyi hissetmiyorum. ne yaptıysam başaramadım. lütfen rica etsem uygulama içinde eksiklikleri düzeltme imkanınız var mı? sadece yoklama defterinde . çok özür diliyorum hepinizden.