DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE T_SIPARİŞ SET Dönemi = [Forms]![VERİ_FORM]![Açılan_Kutu6] WHERE (((SiparişNu) Like ""*"" & [Forms]![VERİ_FORM]![Açılan_Kutu1] & ""*"") AND ((Dönemi) Is Null Or (Dönemi)=""""));"
DoCmd.SetWarnings True
[VERİ_ALTFORM].Form![Dönemi].Requery
kodu ekle