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")));