Skip to main content

AccessTr.neT

Kayıt Ol

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

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

kanakan52
kanakan52
Excel Cevaplanmış Soruları
33
3591

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

#31
kanakan52
Aktif Üye
kanakan52
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 41
Konum:
Ofis Versiyonu:
Son Oturumu: 18/07/2022,22:02
Yorumları: 275
Konuları: 29
Kayıt Tarihi: 09/05/2013
Teşekkür Puanı: 0
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
Cevapla
#32
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,00:22
Yorumları: 8.401
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.037
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?
Cevapla
#33
kanakan52
Aktif Üye
kanakan52
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 41
Konum:
Ofis Versiyonu:
Son Oturumu: 18/07/2022,22:02
Yorumları: 275
Konuları: 29
Kayıt Tarihi: 09/05/2013
Teşekkür Puanı: 0
(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 Img-grin 

Sil olayı da tamam ,
Cevapla
#34
kanakan52
Aktif Üye
kanakan52
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 41
Konum:
Ofis Versiyonu:
Son Oturumu: 18/07/2022,22:02
Yorumları: 275
Konuları: 29
Kayıt Tarihi: 09/05/2013
Teşekkür Puanı: 0
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..
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da