+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Söz Dizimi Hatası (/konu-soz-dizimi-hatasi.html)
Cvp: Söz Dizimi Hatası - zaferlacin - 26/12/2019
(26/12/2019, 22:50)berduş yazdı: Ama dikkat ederseniz satır başında kullandığınız hiç bir alandan önce virgül koymamışsınız!!!ozman kırmızı renkte oluyor hatalı kod görünüyor
Satır başındaki o lanların önlerine de virgül koyun.
Cvp: Söz Dizimi Hatası - berduş - 26/12/2019
yazdığınız son kodu buraya ekler misiniz
Cvp: Söz Dizimi Hatası - berduş - 26/12/2019
aslında çalışmanızın o kısmını eklemeniz daha mantıklı
Cvp: Söz Dizimi Hatası - zaferlacin - 26/12/2019
kodları ayrı ayrı yazdığımda hata vermiyor
Kod:
'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 & "'" _
& " where (krtc='" & Me.Liste69.Column(2) & "' AND DosyaNo=" & CLng(Me.Liste69.Column(6)) & ")"
'DoCmd.SetWarnings True
'***********************************************************************************************
'DoCmd.SetWarnings False
'DoCmd.RunSQL "UPDATE tablo1 " _
& " SET [KvAdres] = '" & Me.Metin8 & "',[evsahibitel] = '" & Me.Metin71 & "',[kradsoyad] = '" & Me.Metin10 & "',[krtc] = '" & Me.Metin12 & "'" _
& " where (krtc='" & Me.Liste69.Column(2) & "' AND DosyaNo=" & CLng(Me.Liste69.Column(6)) & ")"
'DoCmd.SetWarnings True
'***********************************************************************************************
'***********************************************************************************************
' DoCmd.SetWarnings False
' DoCmd.RunSQL "UPDATE tablo1 " _
& " SET [KrAdres] = '" & Me.Metin14 & "',[Krisadres] = '" & Me.Metin16 & "',[KiracıTel] = '" & Me.Metin73 & "',[Kiraay] = " & Me.Metin18 & ",[KiraYıl] = " & Me.Metin20 & ",[Odsek] = '" & Me.Açılan_Kutu1 & "'" _
& " where (krtc='" & Me.Liste69.Column(2) & "' AND DosyaNo=" & CLng(Me.Liste69.Column(6)) & ")"
'DoCmd.SetWarnings True
'***********************************************************************************************
'***********************************************************************************************
' DoCmd.SetWarnings False
' DoCmd.RunSQL "UPDATE tablo1 " _
& " SET [Herayın] = " & Me.Metin24 & ",[Mudded] = '" & Me.Metin26 & "',[Krbas] = '" & Me.Metin28 & "',[KiraSon] = '" & Me.Metin128 & "',[Durum] = '" & Me.Açılan_Kutu53 & "',[Apaidat] = '" & Me.Metin188 & "'" _
& " where (krtc='" & Me.Liste69.Column(2) & "' AND DosyaNo=" & CLng(Me.Liste69.Column(6)) & ")"
'DoCmd.SetWarnings True
'***********************************************************************************************
' DoCmd.SetWarnings False
' DoCmd.RunSQL "UPDATE tablo1 " _
& " SET [Kullsek] = '" & Me.Metin24 & "',[Dask] = '" & Me.Metin26 & "',[Elkt] = '" & Me.Metin28 & "',[su] = '" & Me.Metin128 & "',[susozlesme] = '" & Me.Açılan_Kutu53 & "',[Gaz] = '" & Me.Metin188 & "'" _
& " where (krtc='" & Me.Liste69.Column(2) & "' AND DosyaNo=" & CLng(Me.Liste69.Column(6)) & ")"
'DoCmd.SetWarnings True
'**********************************************************************************************
' DoCmd.SetWarnings False
' DoCmd.RunSQL "UPDATE tablo1 " _
& " SET [Abonelik] = " & Me.Metin30 & ",[pesinat] = " & Me.Metin77 & ",[depozit] = " & Me.Metin75 & ",[DosyaNo] = " & Me.Metin130 & ",[Acıklama] = '" & Me.Metin156 & "',[Kimde] = '" & Me.Metin216 & "'" _
& " where (krtc='" & Me.Liste69.Column(2) & "' AND DosyaNo=" & CLng(Me.Liste69.Column(6)) & ")"
'DoCmd.SetWarnings True
'***********************************************************************************************
'***********************************************************************************************
' DoCmd.SetWarnings False
' DoCmd.RunSQL "UPDATE tablo1 " _
& " SET [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 Trueama kodu birlikte yazınca hata veriyor
Kod:
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE tablo1 " _
& " [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.Metin24 & "',[Dask] = '" & Me.Metin26 & "',[Elkt] = '" & Me.Metin28 & "',[su] = '" & Me.Metin128 & "',[susozlesme] = '" & Me.Açılan_Kutu53 & "',[Gaz] = '" & Me.Metin188 & "'" _
& " [Abonelik] = " & Me.Metin30 & ",[pesinat] = " & Me.Metin77 & ",[depozit] = " & Me.Metin75 & ",[DosyaNo] = " & Me.Metin130 & ",[Acıklama] = '" & Me.Metin156 & "',[Kimde] = '" & Me.Metin216 & "'" _
& " [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 TrueCvp: Söz Dizimi Hatası - berduş - 26/12/2019
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)) & ")"Cvp: Söz Dizimi Hatası - zaferlacin - 27/12/2019
(26/12/2019, 23:57)berduş yazdı:Update deyiminde söz dizimi hatası veriyor bu kodu yazdığımdazafer bey siz en iyisi update sorgusunu iyice araştırın. çünkü benim dediğimi yapmamışsınız, satır başındaki alanların önüne virgül EKLELEMİŞSİNİZDoCmd.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)) & ")"