مشكلة في كود الحذف؟

اخي الكريم : أنت هنا قمت بحذف السجل وبعد ذلك قمت بطلب ادخال بيانات في الجدول من خلال التكست1 و تكست 2 بدون امر AddNew

يجب ان يسبق هذه العملية rs.Addnew

وبعد الادخال هو حفظ الادخال بلا شك Rs.Update

تفضل اخي الكود الصحيح بعد التعديل .................

والله الموفق

select case button.key
Case "delete"
Dim m As VbMsgBoxResult


m = MsgBox("", vbYesNo + vbMsgBoxRtlReading + vbQuestion, "")
If m = vbYes Then
rs.Delete

rs.addnew

rs![q] = Text1.Text
rs![n] = Text2.Text

rs.update

Else
Exit Sub
End If
end select

شكراً عزيزي لكن الخطأ مازال موجود. هذا الكود كامل مع أن الإضافة والحفظ 100%

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

Dim m As VbMsgBoxResult



Select Case Button.Key
Case "add"
On Error Resume Next
m = MsgBox("", vbYesNo + vbMsgBoxRtlReading + vbQuestion, "")
If m = vbYes Then

rs.AddNew

Else
Exit Sub
End If
Case "save"

m = MsgBox("", vbYesNo + vbMsgBoxRtlReading + vbQuestion, "")
If m = vbYes Then

rs![q] = Text1.Text
rs![n] = Text2.Text
rs.Update
 Refresh
Else
Exit Sub
End If
Case "delete"

m = MsgBox("", vbYesNo + vbMsgBoxRtlReading + vbQuestion, "")
If m = vbYes Then
rs.Delete
rs![q] = Text1.Text
rs![n] = Text2.Text


Else
Exit Sub
End If
Case "about"

Call abt
Case "exit"
m = MsgBox("", vbYesNo + vbMsgBoxRtlReading + vbQuestion, "")
If m = vbYes Then
Unload Me
Else
Exit Sub
End If

End Select

End Sub

أرجو مساعدتكم ياأخوان؟؟؟

تفضل , وإن شاء الله ينجح :

Dim intmsg as integer
 select case button.key
case "Delete"
if intmsg = msgbox (..............) = vbOk then
...............الأوامر...................
end if
End Sub

------------------------------------------------------------------------------------------

وإن كنت تريد حذف ملف فاستعمل :

Kill ("مسار الملف المراد حذفه بين علامتي تنصيص")