Ö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