Private Sub btn_toplugiris_click()

On Error GoTo iptal

Docmd.SetWarnings False

Docmd.RunSQL "UPDATE (SELECT *FROM TBL_SEVK_BİLGİ_ALT_TABLO) SET TBL_SEVK_BİLGİ_ALT_TABLO.SEVK_BİLGİSİ_GİRİLDİ_Mİ='1' WHERE TBL_SEVK_BİLGİ_ALT_TABLO.BELGE_NU İS NOT NULL;"

Docmd.SetWarnings True

İptal:

Exit sub

End sub

Bu şekilde çalışıyor arkadaşlar Windows güncellemesi sonucu where ve update çalışmazsa önce select ile tüm verileri çekin sonra tanimlama yapin, sağlıcakla kalin iyi forumlar