+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Nöbet Listesindeki Personellerden O Tarihteki Görevlinin İsminin Rapora Gelmesi (/konu-nobet-listesindeki-personellerden-o-tarihteki-gorevlinin-isminin-rapora-gelmesi.html)
RE: Nöbet Listesindeki Personellerden O Tarihteki Görevlinin İsminin Rapora Gelmesi - berduş - 05/12/2021
hangi öğretmen hangi gün hangi blokta görevli bulamadım
RE: Nöbet Listesindeki Personellerden O Tarihteki Görevlinin İsminin Rapora Gelmesi - SeferŞANLI - 05/12/2021
Sayın hocam;
Şöyle izah edeyim. Blok olayı kafanızda yer etmesin.
Ben frm yoklma formundan seçtiğim tarihte nöbetçi varsa her hangi bir sıralama olmadan açılan kutulara gelsin. Günde max. 3 öğretmen planlanacak. Yani nöbet görevi verilirkende günde en fazla üç nöbet verilecek.
RE: Nöbet Listesindeki Personellerden O Tarihteki Görevlinin İsminin Rapora Gelmesi - SeferŞANLI - 05/12/2021
https://www.resimupload.org/r/lAeLS
RE: Nöbet Listesindeki Personellerden O Tarihteki Görevlinin İsminin Rapora Gelmesi - lemoncher2 - 05/12/2021
3 Öğretmen olmadığında ne olacak? gönderdiğiniz örnekte bazı günlerde 4 öğretmen var ?
Örneği İncelermisin
RE: Nöbet Listesindeki Personellerden O Tarihteki Görevlinin İsminin Rapora Gelmesi - SeferŞANLI - 05/12/2021
Sayın hocalarım; Evet programda 4 nöbet var. Bunlar denemek için girilen veriler. Yani max. 3 öğretmene göre.
Hocam. Bu seferde bütün açılır kutulrda aynı kişiyi seçtiriyor.
RE: Nöbet Listesindeki Personellerden O Tarihteki Görevlinin İsminin Rapora Gelmesi - berduş - 05/12/2021
aşağıdaki kodu dener misiniz?
not: açılır kutuların adı AK1,AK2 ve AK3 olarak değiştirilmiştir
Private Sub txttarih_Exit(Cancel As Integer)
Dim rs As ADODB.Recordset
xSQLNbt = "select top 3 [OgretmenId] from TblNobet where ([donem])=" & CLng(DateSerial(Year(txttarih), Month(txttarih), 1)) & " and [G" & Day(txttarih) & "]='n'"
Set rs = New ADODB.Recordset
rs.Open xSQLNbt, CurrentProject.Connection, 3, 1
For x = 1 To 3
Controls("AK" & x).Value = ""
Next x
If rs.RecordCount = 0 Then
MsgBox "kayıt yok"
Exit Sub
End If
say = 3
If rs.RecordCount < 3 Then say = rs.RecordCount
rs.MoveFirst
For x = 1 To say
Controls("AK" & x) = rs(0)
rs.MoveNext
Next x
End Sub