Skip to main content

AccessTr.neT


Söz Dizimi Hatası

Söz Dizimi Hatası

Çözüldü #1
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
Cevapla
#2
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
Cevapla
#3
(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ış
Cevapla
#4
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
Cevapla
#5
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
Cevapla
#6
 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)) & ")"
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task