Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Söz Dizimi Hatası

zaferlacin
zaferlacin
Access Cevaplanmış Soruları
24
2367

Söz Dizimi Hatası

#13
zaferlacin
Aktif Üye
zaferlacin
Bul
Aktif Üye
Adı Soyadı: Za.... La....
Yaşı: 55
Konum: Balıkesir
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 28/11/2022,23:34
Yorumları: 182
Konuları: 46
Kayıt Tarihi: 11/08/2013
Teşekkür Puanı: 0
Mesleğiniz: Emekli
(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!!!
Satır başındaki  o lanların önlerine de virgül koyun.
ozman kırmızı renkte oluyor hatalı kod görünüyor
Cevapla
#14
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,01:12
Yorumları: 8.399
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.037
yazdığınız son kodu buraya ekler misiniz
Cevapla
#15
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,01:12
Yorumları: 8.399
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.037
aslında çalışmanızın o kısmını eklemeniz daha mantıklı
Cevapla
#16
zaferlacin
Aktif Üye
zaferlacin
Bul
Aktif Üye
Adı Soyadı: Za.... La....
Yaşı: 55
Konum: Balıkesir
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 28/11/2022,23:34
Yorumları: 182
Konuları: 46
Kayıt Tarihi: 11/08/2013
Teşekkür Puanı: 0
Mesleğiniz: Emekli
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 True

ama 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 True
Cevapla
#17
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,01:12
Yorumları: 8.399
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.037 
 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)) & ")"
zafer 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İZ
Cevapla
#18
zaferlacin
Aktif Üye
zaferlacin
Bul
Aktif Üye
Adı Soyadı: Za.... La....
Yaşı: 55
Konum: Balıkesir
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 28/11/2022,23:34
Yorumları: 182
Konuları: 46
Kayıt Tarihi: 11/08/2013
Teşekkür Puanı: 0
Mesleğiniz: Emekli
(26/12/2019, 23:57)berduş yazdı: 
 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)) & ")"
zafer 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İZ
Update deyiminde söz dizimi hatası veriyor bu kodu yazdığımda
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task