AccessTr.neT

çalışmanıza günler tablosunu da ekleyip yollar mısınız?

ilk mesaj

sorgunuzun kodunu aşağıdaki kodla değiştirip dener misiniz?

SELECT VERIGIRIS.TCKIMLIKNO, VERIGIRIS.ADISOYADI, VERIGIRIS.BASLAMATARIHI, VERIGIRIS.BITISTARIHI, VERIGIRIS.hangigun.Value, IIf([Gun_id]=0,15,[TBL_gunler]![Gun_id]) AS İfade1

FROM TBL_gunler INNER JOIN VERIGIRIS ON TBL_gunler.Gunler = VERIGIRIS.hangigun.Value

WHERE (((VERIGIRIS.hangigun.Value)=CStr(Format(Date(),"dddd")))) OR (((IIf([Gun_id]=0,15,[TBL_gunler]![Gun_id]))=Format(Date(),"d")));

farklı bir yöntem olarak da modül ekleyerek yapabilirsiniz. avantajı sadece ayın 15i gibi bir ifadeyi değil ayın hangi günü olduğu fark etmez tabloya öyle bir tarih de eklenirse ilerde onlarda da sorun çıkarmadan çalışır diyelim ki tabloya her ayın 17si yada 3ü 5şi fark etmez bir tarih eklediğiniz de yine çalışır. en azından denemelerimde sorun çıkarmadı
modüle eklenecek kod

Function SayiAl(Mtn As String) As Byte

Dim x As Byte

Dim xStr As Byte



For x = 1 To Len(Mtn)

    xStr = xStr & IIf(IsNumeric(Mid(Mtn, x, 1)), Mid(Mtn, x, 1), "")

Next x

SayiAl = CByte(xStr)

End Function

sorgu kodu

SELECT VERIGIRIS.TCKIMLIKNO, VERIGIRIS.ADISOYADI, VERIGIRIS.BASLAMATARIHI, VERIGIRIS.BITISTARIHI, VERIGIRIS.hangigun.Value

FROM VERIGIRIS

WHERE (((VERIGIRIS.hangigun.Value)=CStr(Format(Date(),"dddd")))) OR (((SayiAl([VERIGIRIS]![hangigun]![Value]))=Format(Date(),"d")));

Sayın berduş, gecenin o saatinde emek vermişsiniz teşekkür ediyorum.

Modül oluşturdum, sorgu kodunu değiştirdim, sorguda " VERİ TÜRÜ UYUŞMAZLIĞI" hatası verdi. bilgilerinize !

hem modüllü hem de normal sorgulu dilerim işinize yarar
ben de 2si de sorunsuz çalıştı[attachment=30963]