sglGuncelle = " update tablo set tatilgunleri=#" & CStr(Format(Me.Metin1, "mm\/dd\/yyyy")) & _
"# where isnull(tatilgunleri) and isgunleri<>#" & CStr(Format(Me.Metin1, "mm\/dd\/yyyy")) & "#"
CurrentDb.Execute sglGuncelle
sgl kodu dilerim işinize yarar