06-09-22, 02:01 PM
كود :
Private Sub cmdDelete_Click()
Timer1.Enabled = False
If TxtName.Text = "" Then
MsgBox "íÑÌì ÊÍÏíÏ ÇáÑÍáÉ ÇáÊí ÊÑíÏ ÅáÛÇÁåÇ", vbExclamation, "ÊäÈíå!"
Exit Sub
Else
If TxtNO.Text = vbNullString Then
MsgBox "íÑÌì ÊÍÏíÏ ÇáÑÍáÉ ÇáÊí ÊÑíÏ ÅáÛÇÁåÇ", vbExclamation, "ÊäÈíå!"
Else
If RS.State = 1 Then RS.Close
sql = "SELECT * FROM tblTrip WHERE Tno "
RS.Open sql, CN, adOpenKeyset, adLockPessimistic
With RS
.Delete
End With
Set RS = Nothing
Timer1.Enabled = True
MsgBox "Êã ÅáÛÇÁ ÇáÑÍáÉ", vbInformation, "ÅÇáÛÇÁ"
End If
End If
End Subاخواني عندي الجدول عندما اقومبحذف عنصر ما فانه يحذف العنصر الاول بالجدول بقائمة ليست فيو ولا يحذف العنصر المحدد
مع العلم ان Tno يملك مفتاح اساسي بقاعدة البيانات
ارجو المساعدة