[hannileo]

كود :

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 يملك مفتاح اساسي بقاعدة البيانات 

ارجو  المساعدة