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

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

[Taha Okla]

وعليكم السلام

لازم تحدد في جكلة الاستعلام على أي أساس بدك تحذف
يعني Tino شو بتساوي حتى يحذف السجل التابع لها...
مثلاً  : 
اذا كان حقل رقمي وتريد تحذف السجل الذي فيه يكون هذا الحقل مساوي لـ 555

كود :

sql = "SELECT * FROM tblTrip WHERE Tno=555 "

أو كان نوع الحقل نصي ولكن تسجل فيه أرقام :

كود :

sql = "SELECT * FROM tblTrip WHERE Tno='555' "

بعد هذا تكون قد حددت بدقة ماذا تريد أن تحذف
فعندما تعطي أمر الحذف فلن يحذف الا هذا السجل ان وجده..