حذف رکورد

[saed2006]

با سلام
برای حذف یک رکورد از adodc این کد رو نوشتم




Dim Delete As Variant
Delete = MsgBox("ãí ÔæÏ¿", vbInformation + vbYesNo, "íÇã - ÍÐÝ")
If Delete = vbYes Then
Adox.Recordset.Delete
Adox.Refresh
ElseIf Delete = vbNo Then
End If



هنگام حذف این پیغام رو میده و حذف نمی کنه


key column information is insufficient or incorrect.too many rows were affected by update

[mpmsoft]

دوست عزیز به این شکل اجرا کن


Dim Cmd As New ADODB.Command
Cmd.ActiveConnection= Conn
Cmd.CommandText = "DELETE FROM Table WHERE ID=" & ID
Cmd.Execute

[Danial_Yousefi]

این مشکل وقتی رخ میده که یا adodc.recordsource اشتباه باشه یا در table یکی از فیلد هایی که مقدار تهی null قبول نمی کنند تهی شده باشه

[saed2006]

این مشکل وقتی رخ میده که یا adodc.recordsource اشتباه باشه یا در table یکی از فیلد هایی که مقدار تهی null قبول نمی کنند تهی شده باشه

دومی که اصلا نیست و منظور شما از اولی چیست؟اشتباه باشه؟