AccessTr.neT

Tam Versiyon: Söz Dizimi Hatası
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4 5
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)) & ")"
Sayfalar: 1 2 3 4 5