Örneği İncelermisin.

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.