حذف مجموعة معينة من السجلا دفعة واحدة

السلام عليكم ورحمة الله وبركاته

سيكون الحذف كالتالي :

rs.open "select * from all_d where type = "حقن"",CN,1,2
do while not rs.eof
rs.delete
rs.movenext
loop

==========

الى اللقاء

تفضل الكود

RS.Open "DELETE FROM all_d WHERE type='حقن'"

طيب لو كلة حقن دى مكتوبة فى تكست الكود يبقى ازاى

Data2.Recordset.Open "select * from all_d where type = Text2.Text,CN,1,2"
Do While Not Data2.Recordset.EOF
Data2.Recordset.Delete
Data2.Recordset.MoveNext
Loop

ما الخطأ فى هذا الكود

up

dim DB as Database

DB.Exersit "Delete * from all_d where type = '" & text1.text & "';"

السلام عليكم ورحمة الله وبركاته

يا اخي الكريم الكود كله غلط

والسبب الرئيسي ان حضرتك واضح انك مبتدأ

عموما هناك فرق في التقنيات المستخدمة

اما انت هنا تريد كود خاص بالداتا كنترول وهو كالتالي

Data1.RecordSource = "select * from tbl1 where type= '" & Text1 & "'"
Data1.Refresh
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
Data1.Recordset.Delete
Data1.Recordset.MoveNext
Loop

جربه وان شاء الله يشتغل معاك تمام ولو واجهت اي مشكلة اكتبها وان شاء الله نساعدك :)

========

الى اللقاء

تفضل المثال

DATA.rar

شكرا جدا جدا جدا جد اخ MR^King

الكود ضبط معاى 100%

وشكر خاص للاخ ARMX على مجهودك الرائع