+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Update Deyiminde Sözdizimi Hatası (Run Time Error -2147217900 "(80040e14)" hatası (/konu-update-deyiminde-sozdizimi-hatasi-run-time-error-2147217900-80040e14-hatasi.html)
RE: Update Deyiminde Sözdizimi Hatası (Run Time Error -2147217900 "(80040e14)" hatası - kanakan52 - 16/04/2020
Hocam fikrinizi denedim,
Ölçüt ifadesinde veri tütü uyuşmazlığı hatası verdi,
Sil kodlarım da aşağıdaki gibi,
Kod:
Sub Sil()
If Tsipno.Text = "" Then
MsgBox "Kayıt Bulunamadı", vbCritical + vbOKOnly, "Kayıt Silme Hatası"
Exit Sub
End If
Dim sipno As String
sipno = Tsipno.Text
Set baglan = CreateObject("adodb.connection")
baglan.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\veritabani.mdb"
Set rs = baglan.Execute("DELETE FROM SiparisKayitlari WHERE Siparis_No= ' " & sipno & " '")
Set baglan = Nothing: Set rs = Nothing:
MsgBox Tsipno & " numaralı sipariş kaydı silindi.", vbInformation + vbOKOnly, "UYARI"
End SubRE: Update Deyiminde Sözdizimi Hatası (Run Time Error -2147217900 "(80040e14)" hatası - berduş - 16/04/2020
Silme kodunda tek tirnaktan onceki ve sonraki bosluklari silip oyle dener misiniz?
Set rs = baglan.Execute("DELETE FROM SiparisKayitlari WHERE Siparis_No='" & sipno & "'")RE: Update Deyiminde Sözdizimi Hatası (Run Time Error -2147217900 "(80040e14)" hatası - kanakan52 - 16/04/2020
(16/04/2020, 21:15)berduş yazdı: Silme kodunda tek tirnaktan onceki ve sonraki bosluklari silip oyle dener misiniz?
Kod:Set rs = baglan.Execute("DELETE FROM SiparisKayitlari WHERE Siparis_No='" & sipno & "'")
sipno alani metin degil mi?
Hocam senin yüzünden bırakıcam bu işi , bu ne yaa
Sil olayı da tamam ,
Re: Update Deyiminde Sözdizimi Hatası (Run Time Error -2147217900 "(80040E14)" Hatası - kanakan52 - 16/04/2020
Hocam bilgi vermek için yazıyorum,
Kodlara aşağıdaki eğer yordamıyla çözüme kavuşturdum.
If TextBox46.Value = "" Then
isk1 = Format(Val(0) * Val(1), "#,##0.00")
Else
isk1 = TextBox46.Value
End If
If TextBox47.Value = "" Then
isk2 = Format(Val(0) * Val(1), "#,##0.00")
Else
isk2 = TextBox47.Value
End If
If TextBox48.Value = "" Then
isk3 = Format(Val(0) * Val(1), "#,##0.00")
Else
isk3 = TextBox48.Value
End If