16/12/2021, 21:09
Öğrenci Nöbet Listesi
1 2
16/12/2021, 21:09
mk70
17/12/2021, 13:08
berduş
aşağıdaki çalışmayı inceler misiniz?
Not: çalışma 2. dosyanız üzerinden yapılmıştır
yapılanlar
1 - öncelikle öğrenci nöbetini kaydeden geçici bir TmpOgrNbt tablosu eklenmiştir
böylece form açıldığında bu tabloya öğrenciler eklenip kaydet tuşuna bastığınızda geçici tablodaki veriler nöbet tablosuna aktarılıyor
burada sadece tarih alanı girdiğiniz veriler asıl nöbet tablosuna aktarılıyor
Not: şimdilik tekrar kontrolü yok yani siz 10 defa aynı öğrenciye aynı gün nöbet yazıp eklerseniz hepsi eklenir.
2 - ilişkiler panelindeki öğrenci-nöbet tabloları öğrenci no alanı yerine öğrenci tablosundaki kimlik alanı üzerinden tanımlanmıştır
3 - öğrenci formunun veri kaynağı değiştirilip geçici TmpOgrNbt tablosu yapılmıştır
kaydet düğmesinin kodu
Not: çalışma 2. dosyanız üzerinden yapılmıştır
yapılanlar
1 - öncelikle öğrenci nöbetini kaydeden geçici bir TmpOgrNbt tablosu eklenmiştir
böylece form açıldığında bu tabloya öğrenciler eklenip kaydet tuşuna bastığınızda geçici tablodaki veriler nöbet tablosuna aktarılıyor
burada sadece tarih alanı girdiğiniz veriler asıl nöbet tablosuna aktarılıyor
Not: şimdilik tekrar kontrolü yok yani siz 10 defa aynı öğrenciye aynı gün nöbet yazıp eklerseniz hepsi eklenir.
2 - ilişkiler panelindeki öğrenci-nöbet tabloları öğrenci no alanı yerine öğrenci tablosundaki kimlik alanı üzerinden tanımlanmıştır
3 - öğrenci formunun veri kaynağı değiştirilip geçici TmpOgrNbt tablosu yapılmıştır
kaydet düğmesinin kodu
Private Sub Komut16_Click()
Me.Requery
Set db = CurrentDb
xEkle = "INSERT INTO Nöbet ( [OgrencID], Tarih, [Nöbet Yeri] ) " & _
"SELECT TmpOgrNbt.OgrencID, TmpOgrNbt.NbtTrh, TmpOgrNbt.NbtYeri " & _
"FROM TmpOgrNbt WHERE ((TmpOgrNbt.NbtTrh) Is Not Null) AND ((TmpOgrNbt.NbtYeri) Is Not Null);"
Debug.Print xEkle
db.Execute xEkle
db.Close
Set db = Nothing
End Sub
form yüklenirken geçici tabloya öğrenci ekleme koduPrivate Sub Form_Load()
Set db = CurrentDb
xSil = "delete * from TmpOgrNbt"
xEkle = "INSERT INTO TmpOgrNbt ( [OgrencID] ) " & _
"SELECT [Kimlik] " & _
"FROM Öğrenciler;"
db.Execute xSil
db.Execute xEkle
db.Close
Set db = Nothing
Me.Requery
End Sub
22/12/2021, 21:18
mk70
İlginiz için teşekkür ederim, yaptıklarınızı inceliyorum...
27/12/2021, 21:59
mk70
Berduş hocama ilgisinden dolayı çok teşekkür ederim. Program istediğim gibi oldu.
Ancak bu program eğer yapılabilirse tam olarak şu şekilde olacaktı:
Okul binası 4 katlı; zemin, 1,2 ve 3. katlara birer öğrenci verilecek. Zemin kata 11. sınıfı öğrencisi verilecek. Diğer katlara 9 ve 10 lardan birer öğrenci. Nöbet tutulacak günde sınıf mevcutları az olduğu için her sınıftan bir öğrenciye görev verilecek.
Bu şartları otomatik olarak seçilen aya göre aylık nöbet listesi hazırlayan bir program yapılabilirse eğer çok iyi olacak.
İlgilenecek arkadaşlara şimdiden teşekkür ederim.
Ancak bu program eğer yapılabilirse tam olarak şu şekilde olacaktı:
Okul binası 4 katlı; zemin, 1,2 ve 3. katlara birer öğrenci verilecek. Zemin kata 11. sınıfı öğrencisi verilecek. Diğer katlara 9 ve 10 lardan birer öğrenci. Nöbet tutulacak günde sınıf mevcutları az olduğu için her sınıftan bir öğrenciye görev verilecek.
Bu şartları otomatik olarak seçilen aya göre aylık nöbet listesi hazırlayan bir program yapılabilirse eğer çok iyi olacak.
İlgilenecek arkadaşlara şimdiden teşekkür ederim.
27/12/2021, 22:12
berduş
Yeni soru için yeni konu açmalısınız.
Biz site olarak proje yada ödev yapmıyoruz, sadece sorunların çözümüne katkı sağlamaya çalışıyoruz. Dolayısıyla önce siz uğraşıp bir şeyler yapmaya çalışacaksınız, biz de takıldığınız yerde yardımcı olmaya...
Biz site olarak proje yada ödev yapmıyoruz, sadece sorunların çözümüne katkı sağlamaya çalışıyoruz. Dolayısıyla önce siz uğraşıp bir şeyler yapmaya çalışacaksınız, biz de takıldığınız yerde yardımcı olmaya...
27/12/2021, 22:49
mk70
(27/12/2021, 22:12)berduş yazdı: Yeni soru için yeni konu açmalısınız.
Biz site olarak proje yada ödev yapmıyoruz, sadece sorunların çözümüne katkı sağlamaya çalışıyoruz. Dolayısıyla önce siz uğraşıp bir şeyler yapmaya çalışacaksınız, biz de takıldığınız yerde yardımcı olmaya...
Biliyorum bunları, zaten istemeye istemeye yazmıştım. Programın nihai durumu hakkında bilgi vermek istemiştim.
Bu durumda konuyu kapatabilirsiniz. Gerektiğinde dediğiniz gibi yeni konu açarım.
Tekrar teşekkür ederim. İyi akşamlar
1 2