السلام عليكم و رحمة الله و بركاته
أما بعد :
فسوف نتابع سلسلة الدروس مع الدرس الثالث و مضمون هذا الدرس
1 - تعليم كيف تضيف السجلات
2 - تعلم كيف تعدل السجلات
3 - تعلم كيف تحذف السجلات
4 - تعليم كيف تقوم بالحفظ
5 - تعلم كيف تجعل البرنامج يقوم بتخزين ما تكتبه حتا إذا أنقطع التيار الكهربائي
الخطوات
سوف نتابع برنامجنا الذي اسميناه دليل الهاتف مع هذه الخطوات
1 - أنشئ أربعة أزرار سمها ( سجل جديد - تعديل السجل الحالي - حذف السجل الحالي - حفظ )
في إجراء سجل جديد أكتب هذا الكود
on error resume next
data1.recordset.addnew
في إجراء تعديل السجل الحالي اكتب
on error resume next
data1.recordset.edit
في إجراء حذف السجل الحالي اكتب
dim mok
mok=msgbox("هل تريد حذف السجل الحالي بالتأكيد",vbyesno+vbqustion,"حذف")
if mok=vbyes then
on error resume next
data1.recordset.delete
end if
في إجراء حفظ اكتب هذا الكود
on error resume next
data1.recordset.refresh
أنشء تايمر جديد و أجعل خاصية enabled=true
و خاصية interval=1
وامتب فيه كود الحفظ
و على هذا سوف يقوم البرنامج بالحفظ تلقائياً حتى عند إنقطاع التيار
أنا آسف لظهور الدرس بشكل مقلوب
مختار سيد صالح
