[VBA] Vba Sql Update

ibrahimsenol · 08-12-2019, 22:41

Merhabalar,

aşağıdaki gibi buton aracılığı ile önce başka bir veritabanımı update edip, ardından kayıt işleminin gerçekleşmesini istiyorum fakat syntax hatası alıyorum. Mantık olarak yöntemim doğru mu?

Visual Basic
Private Sub kaydet_Click()
If MsgBox("KAYDI ONAYLIYORMUSUNUZ?", vbYesNo, "UYARI!") = vbYes Then
 
Dim SQL As String
     
    SQL = "UPDATE veri_degerler" & _
          "SET VERI_DURUM = 'TANIMLI'" & _
          "WHERE KAYIT_ID = '45'"
 
    DoCmd.RunSQL (SQL)
 
DoCmd.RunCommand acCmdSaveRecord
MsgBox "KAYIT YAPILDI", vbInformation, "YENI KAYDI"
End Sub

dsezgin · 08-12-2019, 23:13

SQL = "UPDATE veri_degerler%" & _
"SET VERI_DURUM = 'TANIMLI'%" & _
%=Bosluk.....
satirlarinin en son bolumune bosluk birakmalisiniz, SQL degiskeni "UPDATE veri_degerlerSET VERI_DURUM = 'TANIMLI'WHERE KAYIT_ID = '45'" olmaktadir, SQL komutun icerigi birlestigi icin hata verir. Ayrica KAYIT_ID alan tipi sayi ise '45' bolumunu kesme isaretini kadirip 45 yazin.

SQL degikene verileni

Visual Basic
SQL = "UPDATE veri_degerler SET VERI_DURUM = 'TANIMLI' WHERE KAYIT_ID = '45'"

olarak yaziniz.

Access70 · 10-12-2019, 09:13

Benim de daha önce çalışan update sorgum son zamanlarda çalışmıyor. Acaba bir güncelleme mi buna neden oldu? Sebep ne olabilir? Hata mesajı vermiyor ama güncellemeyi de yapmıyor.

Visual Basic
Private Sub Komut1073_Click()
If MsgBox("Durumu T.B. olan tüm fişlerin durumunu M.G. Yapmak İstiyormusunuz?", vbQuestion + vbYesNo, "Uyarı") = vbYes Then
 
 Dim SQL As String
 On Error Resume Next
    SQL = "UPDATE Fisler" & _
          "SET Durum = 'M.G.'" & _
          "WHERE Durum = 'T.B.'"
    DoCmd.RunSQL SQL
 
End If
End Sub

beab05 · 10-12-2019, 10:01

Hatada resume next olduğu için hatayı pas geçip almıyorsunuz.

Sorguda ifadeler arası boşluklar bırakın. Örneğin

"update fisler (boşluk olsun) " & _

diğer satırlara da dikkat edin..

Access70 · 10-12-2019, 10:28

Hocam hata mesajında sorgusu bozuk diyor. Yakın tarihe kadar sıkıntısız çalışıyordu. Şimdi niye çalışmıyor bilemedim.

halily · 10-12-2019, 10:40

bende de bir kaç gün sürdü, ofis güncellemesinden kaynaklanan bir sorundu son güncellemede düzeldi.
isterseniz ofis programınızı güncelleyin yada son ofis güncellemelerini kaldırmaya çalışın

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[VBA] Update Sorgusunu Bir Türlü Beceremedim :(	vrdr	1	735	28-05-2020, 07:01 Son Mesaj: onur_can
	Acsess Update Komutu Hakkında	kanakan52	1	640	26-02-2020, 12:14 Son Mesaj: dsezgin
	[VBA] Update De Datediff Kullanım Hatası	ask200075	5	865	22-02-2020, 16:57 Son Mesaj: userx53
	Update Where çoklu Koşul	kayaae	2	901	04-01-2020, 14:56 Son Mesaj: kayaae
	Update ile kayıt güncelleme	Enigmatic	31	21.752	07-08-2019, 18:57 Son Mesaj: Access70
	[SORGU] Bir Tablodaki Satırların Toplamını UPDATE İle Başka Tabloya Aktarma	ahmet025896	1	1.126	29-01-2019, 16:44 Son Mesaj: jon206
	[VBA] vba update where sorunu	kayaae	1	740	26-12-2018, 13:52 Son Mesaj: kayaae
	[VBA] Şifre değiştirme ekranında hatalı kodlama "update"	devilspath	4	1.344	23-10-2018, 17:03 Son Mesaj: devilspath

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL