A.S.C Filtre, Grafik ve Raporlama Eklentisi

[SORGU] Gruplama Işlemi
#1
Merhaba arkadaşlar, 

bir konuda yardım isteyecektim.

Örneğin;
*10 kişilik bir öğrenci gurubu, 7 adet sınıf , sınıfların belirli kontenjanları,  her öğrencinin puanı ve bu sınıflara yerleşmek için tercihi var. 
*Puan sıralaması yapılan öğrenciler tercihine göre sınıflara yerleştirilecektir.
*Öğrenciler sınıf kontenjan bazında en yüksek puan alan öğrenciden başlanarak tercihi olan sınıflara dağıtılacak,  birinci tercihi dolu olan sınıfın dolması halinde ikinci tercihine oda doluysa 3 üncü tercihine ... bu şekilde devam edecek.
*Örneğin herhangi bir öğrencinin tercih ettiği bütün sınıflar doldu ise o öğrenci açıkta kalacak.

Not: öğrenci sayısı, sınıf sayısı, sınıf kontenjanı değişebilir. Yapacakları tercih ise en az bir en fazla sınıf sayısı kadar olabilir.

2 adet tablo oluşturdum. tercih ve siniflar diye. Öğrenci dağıtma sonuçlarını tercih sayfasında sonuc sütünü olarak ayarladım.

örnek access dosyası: https://yadi.sk/d/LCQVsrSje7H09g

ekran görüntülerini de eklenti olarak ekledim. 
teşekkürler ,,,


Eklenti Dosyaları
.png   tercih.PNG (Boyut: 24,87 KB / İndirilme: 24)
.png   sinif.PNG (Boyut: 8,33 KB / İndirilme: 20)



  Alıntı
Bu mesajı beğenenler:
#2
tercih tablosunun yapısını değiştirip alanları sınıf1, sınıf2, sınıf3... yerine tercih1,tercih2, tercih3.... değiştirilse yada
tercihler tamamen farklı 3. bir tabloda yapılsa daha kullanışlı olmaz mı?



  Alıntı
Bu mesajı beğenenler:
#3
forma ekleyeceğiniz bir butonun olayına ekleyerek deneyebilirsiniz
sadece tercihler tablosunun sonuç alanı boş olan kayıtlarda yerleştirme yapıyor
dilerim işinize yarar
Visual Basic
  1. Dim TercihSira() As String
  2. Dim SiraRS As New ADODB.Recordset
  3. Dim SiraSql As String
  4. Dim i, x, xArr As Integer
  5.  
  6. 'REDIM PRESERVE TercihSira(i) As String  'REDIM PRESERVE... eski değerleri koruyarak dizinin boyutunu değiştirir
  7. 'REDIM  TercihSira(i) As String          'REDIM ... eski değerleri silerek  dizinin boyutunu değiştirir
  8.  
  9. SiraSql = "select * from tercih order by [puan] desc" ' öğrencileri puana göre sırala
  10. SiraRS.Open "tercih", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
  11. If SiraRS.RecordCount < 1 Then Exit Sub 'tablo boşsa çık
  12. SiraRS.MoveFirst
  13. Do While Not SiraRS.EOF
  14. i=0
  15. For x = 0 To SiraRS.Fields.Count - 1 '
  16.    If SiraRS.Fields(x).Name Like "sinif*" And (Not IsNull(SiraRS.Fields(x))) Then i = i + 1
  17. Next x
  18. ReDim TercihSira(i)
  19.  
  20. For x = 0 To SiraRS.Fields.Count - 1 '
  21.     If SiraRS.Fields(x).Name Like "sinif*" And (Not IsNull(SiraRS.Fields(x))) Then
  22.        TercihSira(SiraRS.Fields(x)) = SiraRS.Fields(x).Name
  23.    End If
  24. Next x
  25.  
  26. For xArr = 1 To i
  27. If SiraRS.Fields(2) <> "" Then Exit For
  28. If DCount("*", "tercih", "sonuc='" & TercihSira(xArr) & "'") >= DLookup("kontenjan", "sinif", "sinif='" & TercihSira(xArr) & "'") Then GoTo 10
  29. CurrentDb.Execute "update tercih set sonuc='" & TercihSira(xArr) & "' where AdayTC=" & SiraRS.Fields(0)
  30. 10
  31. Next xArr
  32.  
  33. SiraRS.MoveNext
  34. Loop
  35.  
  36. SiraRS.Close: Set SiraRS = Nothing





  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [TABLO] VERİ AKTARMA İŞLEMİ sertac75 24 11.915 17-05-2020, 18:37
Son Mesaj: averdi
  [SORGU] Tarih/saat ölçüt Ve Gruplama ilgi 1 70 29-04-2020, 18:04
Son Mesaj: Vuslat46
  Kullanıcı şifre Hatırlama Ve Değiştirme Işlemi Mail Atarak cozum@msn.com 1 74 25-04-2020, 13:26
Son Mesaj: dsezgin
  [FORM] Güncelleme Sonrası Yazdırma Işlemi Ahmet51 14 230 13-04-2020, 14:46
Son Mesaj: Ahmet51
  Form üzerinden Kayıt Arama Işlemi H@Y@L-ET 10 346 25-03-2020, 21:18
Son Mesaj: H@Y@L-ET
access-sql-9 Aynı Formda çoklu Flitre Işlemi 4-5-6-7 Kriterde neco_can 4 181 09-03-2020, 21:09
Son Mesaj: neco_can
  [VBA] Access Otomatik Kapatma Işlemi benuva 6 311 12-01-2020, 19:43
Son Mesaj: benuva
  Liste Kutusu Işlemi (çalışmamın Son Bir Kaç Işlemi) sefersanli 8 293 01-12-2019, 00:23
Son Mesaj: onur_can

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi