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

çözümü paylaştığınız için teşekkürler.
İyi çalışmalar

Rica ederim sizlere de iyi çalışmalar ilgi alakaniz için ben teşekkür ederim ?