دخول

**hosney** · 11-12-12, 10:38 AM

برجاء من اهل الخبرة كيفية اوامر الحذف والاضافة والتعديل فى dao

**hosney** · 11-12-12, 03:53 PM

وين الشباب

**hago** · 11-12-12, 04:14 PM

السلام عليكم ورحمة الله
كود الإضافة :

كود :

Text1 = ""

Text2 = ""

Text1.SetFocus

كود التعديل :

كود :

Rs.Edit

Rs![No] = Val(Text1)

Rs![Nme] = Text2

Rs.Update

MsgBox "تم التعديل بنجاح", vbInformation, "تعديل"

كود الحذف :

كود :

If Rs.RecordCount = 0 Then

MsgBox "لاتوجد سجلات داخل الجدول ", vbCritical

Exit Sub

End If

Do While Not Rs.EOF

If Rs![No] = Val(Text1) Then

Rs.Delete

Rs.Fields.Refresh

MsgBox "تم الحذف بنجاح", vbInformation, "حذف"

Rs.MoveFirst

Text1.Text = Rs![No]

Text2.Text = Rs![Nme]

Exit Sub

End If

Rs.MoveNext

Loop

فى المرة القادمة ضع مثال للتعديل عليه
تقبل تحياتى

**hosney** · 12-12-12, 11:11 AM

شكرا جزيلا ياخى

دخول
إسم المستخدم
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة

المواضيع المحتمل أن تكون متشابهة .
الموضوع :		الكاتب	الردود :	المشاهدات :	آخر رد
	مشكلة في البحث والتعديل في البرنامج	thams	1	2,446	29-01-17, 10:04 PM آخر رد: عبد العزيز البسكري
	[سؤال] خطأ فى كود الحذف	اسلام الكبابى	4	2,742	19-06-16, 08:34 PM آخر رد: اسلام الكبابى
	طريقة الربط بado واظهار التقرير واستعراض البيانات والفرز والاضافة والحذف في القائمة	Ahmad Jawad	2	3,122	03-03-13, 02:10 AM آخر رد: zar9awi06
	مشكلة كبيرة في عملية الحذف بعد البحث	Ahmed Abdulla	6	3,098	10-10-12, 01:24 PM آخر رد: Ahmed Abdulla