DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE tablo1 " _
                    & " SET [Daire] = '" & Me.Açılan_Kutu48 & "',[Mahalle] = '" & Me.Açılan_Kutu51 & "',[Sokak] = '" & Me.Metin0 & "',[Cins] = '" & Me.Metin2 & "',[Kvadsoyad] = " & Me.Metin4 & ",[KvTc] = '" & Me.Metin6 & "'" _
                    & " [KvAdres] = '" & Me.Metin8 & "',[evsahibitel] = '" & Me.Metin71 & "',[kradsoyad] = '" & Me.Metin10 & "',[krtc] = '" & Me.Metin12 & "'" _
                    & " [KrAdres] = '" & Me.Metin14 & "',[Krisadres] = '" & Me.Metin16 & "',[KiracıTel] = '" & Me.Metin73 & "',[Kiraay] = " & Me.Metin18 & ",[KiraYıl] = " & Me.Metin20 & ",[Odsek] = '" & Me.Açılan_Kutu1 & "'" _
                    & " [Herayın] = " & Me.Metin24 & ",[Mudded] = '" & Me.Metin26 & "',[Krbas] = '" & Me.Metin28 & "',[KiraSon] = '" & Me.Metin128 & "',[Durum] = " & Me.Açılan_Kutu53 & ",[Apaidat] = " & Me.Metin188 & "" _
                    & " [Kullsek] = '" & Me.Açılan_Kutu57 & "',[Dask] = '" & Me.Metin32 & "',[Elkt] = '" & Me.Metin34 & "',[Su] = '" & Me.Metin36 & "',[susozlesme] = '" & Me.Metin190 & "',[Gaz] = '" & Me.Metin38 & "'" _
                    & " [Abonelik] = " & Me.Metin30 & ",[pesinat] = " & Me.Metin77 & ",[depozit] = " & Me.Metin75 & ",[DosyaNo] = " & Me.Metin130 & ",[Acıklama] = '" & Me.Metin156 & "',[Kimde] = '" & Me.Açılan_Kutu176 & "'" _
                    & " [adreskodu] = '" & Me.Metin186 & "',[ApAidatDD] = '" & Me.Açılan_Kutu55 & "',[ElktSayac] = '" & Me.Metin189 & "',[SuSayac] = '" & Me.Metin153 & "',[SuSicil] = '" & Me.Metin192 & "',[Komisyon] = " & Me.Metin195 & ",[Not] = '" & Me.Metin193 & "'" _
                    & " where (krtc='" & Me.Liste69.Column(2) & "' AND DosyaNo=" & CLng(Me.Liste69.Column(6)) & ")"
DoCmd.SetWarnings True


söz dizimi hatası veriyor
kod uzun olunca update başka nasıl yapılabilirnir

Emin değilim ama [abonelik] alanından önce virgül koyulmamış galiba
Ayrıca [adreskodu] alanından önce de
Siz en iyisi tekrar kontrol edin alalardan önceki virgülleri
Metinsel alanlardan önceki ve sonraki tek tirnaklari

(26/12/2019, 22:07)berduş yazdı: Emin değilim ama [abonelik] alanından önce virgül koyulmamış galiba
Ayrıca [adreskodu] alanından önce de
Siz en iyisi tekrar kontrol edin alalardan önceki virgülleri
Metinsel alanlardan önceki ve sonraki tek tirnaklari

               ,[Gaz] = '" & Me.Metin38 & "'" _

  & " [Abonelik] = " & Me.Metin30 & ",

abonelik satırın başından başlıyor önceki satır bitimi mi yanlış acaba
ya da satır bitişleri mi yanlış

Kodları kod penceresi içine yazarsanız incelemesi daha kolay olur
Kullsek alanından önce de virgül koyulmamış
Sorun galia virgül eksiklerinden kaynaklaniyor

Virgüller satırla ilgili değildir, virgülün amacı alanları ayırmaktır o neden 2 alanın arasında mutlaka virgül olur

 DoCmd.RunSQL "UPDATE tablo1 " _

                    & " SET [Daire] = '" & Me.Açılan_Kutu48 & "',[Mahalle] = '" & Me.Açılan_Kutu51 & "',[Sokak] = '" & Me.Metin0 & "',[Cins] = '" & Me.Metin2 & "',[Kvadsoyad] = " & Me.Metin4 & ",[KvTc] = '" & Me.Metin6 & "'" _

                    & " [KvAdres] = '" & Me.Metin8 & "',[evsahibitel] = '" & Me.Metin71 & "',[kradsoyad] = '" & Me.Metin10 & "',[krtc] = '" & Me.Metin12 & "'" _

                    & " [KrAdres] = '" & Me.Metin14 & "',[Krisadres] = '" & Me.Metin16 & "',[KiracıTel] = '" & Me.Metin73 & "',[Kiraay] = " & Me.Metin18 & ",[KiraYıl] = " & Me.Metin20 & ",[Odsek] = '" & Me.Açılan_Kutu1 & "'" _

                    & " [Herayın] = " & Me.Metin24 & ",[Mudded] = '" & Me.Metin26 & "',[Krbas] = '" & Me.Metin28 & "',[KiraSon] = '" & Me.Metin128 & "',[Durum] = " & Me.Açılan_Kutu53 & ",[Apaidat] = " & Me.Metin188 & "" _

                    & " [Kullsek] = '" & Me.Açılan_Kutu57 & "',[Dask] = '" & Me.Metin32 & "',[Elkt] = '" & Me.Metin34 & "',[Su] = '" & Me.Metin36 & "',[susozlesme] = '" & Me.Metin190 & "',[Gaz] = '" & Me.Metin38 & "'" _

                    & " [Abonelik] = " & Me.Metin30 & ",[pesinat] = " & Me.Metin77 & ",[depozit] = " & Me.Metin75 & ",[DosyaNo] = " & Me.Metin130 & ",[Acıklama] = '" & Me.Metin156 & "',[Kimde] = '" & Me.Açılan_Kutu176 & "'" _

                    & " [adreskodu] = '" & Me.Metin186 & "',[ApAidatDD] = '" & Me.Açılan_Kutu55 & "',[ElktSayac] = '" & Me.Metin189 & "',[SuSayac] = '" & Me.Metin153 & "',[SuSicil] = '" & Me.Metin192 & "',[Komisyon] = " & Me.Metin195 & ",[Not] = '" & Me.Metin193 & "'" _

                    & " where (krtc='" & Me.Liste69.Column(2) & "' AND DosyaNo=" & CLng(Me.Liste69.Column(6)) & ")"