AccessTr.neT

Sn biberli33
İkazlarınıza teşekkür ederim
Önerilerim ders toplamı yerine onay kutucuğu koymanız ve true, false saydırmanız. Böylece devam edilen gün sayısını bulabilirsiniz. 
       Bunu nasıl yapabilirim bilmiyorum. Yardımınızı bekliyorum Saygılar
Tablolarınıza bence derslerle ilgili daha detaylı bilgi konmalı örneğin hangi ders hangi tarihlerde ve kaç saat bu ve benzeri bilgiler tabloya işlenir. Bu yüzde hesaplarken gerekli bilgilerin daha kolay temin edilmesini sağlar. 
   Ben sadece okula devam şeklinde tasarım düşündüm.Dersler deyince iş dahada detaylı olcak ki benim gibi acemiler için iş daha da zor olur.
Umarım faydam olur.  
Elbette bu tür ikazlarınızı faydalı olmaktadır.Saygılar

Değerli arkadaşlar
Açtığım konuyu biraz daha basitleştirerek (benim gibi accesste yeni olanların anlayacağı tarzda) düzenleme yaptım
Örnek dosyadaki bazı alanları  değiştirerek öğrenci ders yoklaması değilde ,toplantı katılım yoklaması şekilde bir düzenleme yaptım.
Formda Toplantı tarihi seçildiğinde kişiler listesinde 5 kişinin isminin belirmesini ve evet hayır işaretlemesi yapmak istiyorum.
Yardımınızı bekliyorum selam saygılar

Merhaba,

kisi isimli tablonun ismi; "tbl_kisi", toplanti isimli tablonun ismi "tbl_yoklama" olmalıdır.

kisi Sorgu isimli sorgunun ismi; "srg_kisi" olmalıdır.

kisi Sorgu isimli formdaki açılan kutu "Metin7" değil, "acl_tarihsec" olmalıdır.

Bu şekilde olursa, kod yazarken veya sorgu oluştururken neyin ne olduğunu görebilirsiniz.

Örnek uygulamanıza eklenen;

"srg_katilanlar" isimli sorgu, seçilen tarihte toplantıya katılanları listeler.

"srg_katilmayanlariekle" isimli sorgu ise srg_katilanlar isimli tabloda ismi olmayan, yani seçili tarihte toplantıya katılmayanları yoklama tablosuna ekler.

Sorgunun çalışması için, formdaki Metin7'nin güncelleştirme sonrasında olayına;

Dim GKisiSayisi, GKatilanSayisi As Integer



GKisiSayisi = DCount("[id_kisi]", "kisi")



GKatilanSayisi = DCount("id_yoklama", "yoklama", "[idfk_toplantitarih]= " & Me.Metin7)

 

If (GKisiSayisi - GKatilanSayisi) <> 0 Then



    If MsgBox("Katılmayan " & (GKisiSayisi - GKatilanSayisi) & " kişi eklensin mi?", vbInformation + vbYesNo) = vbYes Then



    DoCmd.SetWarnings False

    DoCmd.OpenQuery "srg_katilmayanlariekle"

    DoCmd.SetWarnings True

    

    End If



End If



Me.Filter = "[idfk_toplantitarih]=" & Me.Metin7.Column(0)

Me.FilterOn = True

Kodu eklenmiştir.

İnceleyip olumlu/olumsuz bildirimde bulununuz.

(21/05/2017, 03:50)Snozanakkaya yazdı: [ -> ]1-Sizin oluşturduğunuz kodu aynen uyarladım.Resimdeki hatayı veriyor.Nedenini anlayamadım
2-Bazı tablo ve sorguların isminin değişmesini istemişsiniz.Sizin gönderdiğiniz şekliyle çalışıyor.Şayet sizin hatırlatmanız doğrultusunda tablo ve sorguyu yeniden adlandırır isem, kod da değişiklik olması gerekiyor mu?
3- yeni toplantı tarihi eklediğimde ve tekrar formdan kişileri açtığımda toplantıya katılmış gibi evet seçeneği ile geliyor. Şüphesiz buda normal bir durum ama kendimiz katılanları işaretleseydik daha güzel olmaz mı.?  Ben yinede bunun da bir seçenek olduğunu düşünüp , belki böylesi daha iyi olabilir diye size katılıyorum 
Saygılar

Sayın Access acemisi,
Örnek uygulamanızı inceleme imkanım olmamak ile birlikte eklediğiniz hata iletisinde kast edilen husus;

Eklemek istediğiniz tabloda katilim adında bir alan adı olmadığı gerekcesi ile işlemi gerçekleştirme eylemi sağlanmamaktadır.

Tablodaki alan adı muhtemelen değişmiş olmalı.kontrol ediniz.

Bilginize...iyi çalışmalar,saygılar.

Değerli Üstadlarım 
Ekteki dosyamda bu kez evet hayır seçenek butonunu aktif hale getiremedim.Acaba nerede hata yaptım.
Bir zahmet incelerseniz sevinirim.Sizlere teşekkür ederim.Selam saygılar