تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
الحذف والاضافة والتعديل فى dao
#1
برجاء من اهل الخبرة كيفية اوامر الحذف والاضافة والتعديل فى dao
الرد }}}}
تم الشكر بواسطة:
#2
وين الشباب
الرد }}}}
تم الشكر بواسطة:
#3
السلام عليكم ورحمة الله
كود الإضافة :

كود :
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
فى المرة القادمة ضع مثال للتعديل عليه
تقبل تحياتى


الملفات المرفقة
.rar   dao.rar (الحجم : 18.94 ك ب / التحميلات : 55)
سبحان الله وبحمده سبحان الله العظيم
آللهم لگ آلحمد حتى ترضى .. ولگ آلحمد إذا رضيِت .. ولگ آلحمد بعد آلرضآ
الرد }}}}
تم الشكر بواسطة:
#4
شكرا جزيلا ياخى
الرد }}}}
تم الشكر بواسطة:


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

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم