AccessTr.neTMicrosoft ExcelExcel Cevaplanmış Soruları

Update Deyiminde Sözdizimi Hatası (Run Time Error -2147217900 "(80040e14)" hatası

1 2 3 4 5 6
16/04/2020, 21:10

kanakan52

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 Sub
16/04/2020, 21:15

berduş

Silme kodunda tek tirnaktan onceki ve sonraki bosluklari silip oyle dener misiniz?
Set rs = baglan.Execute("DELETE FROM SiparisKayitlari WHERE Siparis_No='" & sipno & "'")
sipno alani metin degil mi?
16/04/2020, 21:20

kanakan52

(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 ,
16/04/2020, 22:09

kanakan52

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
Şu an sorun yok gibi, yinede gelen olarak kontrolünü yapmadım tamamen bitince buradan paylaşmış olurum..
1 2 3 4 5 6