Arkadaşlar merhaba,
Aşağıdaki kodlarla access dosyasında bir tablodan kayıt silmek istiyorum.Fakat hata veriyor.
Hata nerdedir acaba?
Private Sub Sil_Click()
MyQ = MsgBox(TextBox1 & " kaydını silmek istediğinize eminmisiniz ?", vbYesNo, "TestDB5")
If MyQ = vbYes Then
Set RS = CreateObject("ADODB.recordset")
STRSQL = "SELECT * FROM [1112]Where mac1112='" & TextBox1 & "'"
RS.Open STRSQL, adoCN, 1, 3
RS.Delete
TextBox1 = Empty
ComboBox1 = Empty
RefreshDB
Set RS = Nothing
End If
End Sub
Aşağıdaki kodlarla access dosyasında bir tablodan kayıt silmek istiyorum.Fakat hata veriyor.
Hata nerdedir acaba?
Private Sub Sil_Click()
MyQ = MsgBox(TextBox1 & " kaydını silmek istediğinize eminmisiniz ?", vbYesNo, "TestDB5")
If MyQ = vbYes Then
Set RS = CreateObject("ADODB.recordset")
STRSQL = "SELECT * FROM [1112]Where mac1112='" & TextBox1 & "'"
RS.Open STRSQL, adoCN, 1, 3
RS.Delete
TextBox1 = Empty
ComboBox1 = Empty
RefreshDB
Set RS = Nothing
End If
End Sub