Tutar metin kutusu ilişkisiz olmalı.
Private Sub Komut6_Click()
Tutar.Value = Dlookup ("Tutar", "Tablo1", "MonthName(Month([Tarih]))='" & Açýlan_Kutu7.Value & "'" & _
" And year([Tarih]) = " & Year(Tarih.Value) & "" & _
" And day([Tarih]) = " & Day(Tarih.Value) & "")
End Sub