11-12-12, 10:38 AM
11-12-12, 03:53 PM
وين الشباب
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تقبل تحياتى
12-12-12, 11:11 AM
شكرا جزيلا ياخى