Sayın hocalarım. İki çalışmada çalışıyor. Teşekkür ederim. Sayın berduş'un çalışmasında açılan kutuya öğretmen adı yerine İd numarası geliyor. Sadece O kadar. Teşekkür ederim.
Bende tarih kısmının çıkılma olayına bu şekilde getirdim isimleri.
Me.OGRETMEN1 =
Dlookup ("[ogretmenadisoyadi]", "Tblogretmen", "[Ogretmen_ID]= [AK1]")
Konu çözülmüştür. Emeğigeçen herkese teşekkür ederim.
xSQLNbt = "select top 3 [OgretmenId] from TblNobet where ([donem])=" & CLng(DateSerial(Year(txttarih), Month(txttarih), 1)) & " and [G" & Day(txttarih) & "]='n'" & " or [G" & Day(txttarih) & "]='b'"
Hocam bu kodu revize etmek istedim ama başaramadım. Yani B ve N girilebiliyor.
1 - Acilir kutularin sutun sayisi 2 yapiliinca isim gorunuyordu galiba
2 - ör ile bağladığınız alanları ortak paranteze almalısınız
.... and (...... or .....)
gibi
xSQLNbt = "select top 3 [OgretmenId] from TblNobet where ([donem])=" & CLng(DateSerial(Year(txttarih), Month(txttarih), 1)) & " and ([G" & Day(txttarih) & "]='n'" & " or [G" & Day(txttarih) & "]='B')"
Tamamdır. Sayın hocalarım. Konu çözüme kavuşmuştur. teşekkürler.