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
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: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 ,
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..