السلام عليكم
ارجو المساعدة لي وقت وانا احاول حل المشكلة من يلاقي في نفسه الاستعداد والامكانية (ويتجمل )
ارجو فضلا لاامر وضع الاميل تبعة لاارسال البرنامج كاملا له لحل الموضوع
مع الشكر والتقدير مقدما
عندي مشكلة في اضافة سجل (الفزعه)
مغلق
تفضل :
السلام عليكم .. عزيزي السائل إليك طريقة إضافة سجل إلى قاعدة البيانات ..
ضع زر أم ( Command1) ثم ضع الكود التالي له :
data1.recordset.addnew
end sub
مع العلم أن عملية إضافة سجل جديد تتطلب عدة أمور لجعلها تعمل بشكل أفضل .. وهذا حسب برنامجك .. ولكن بصورة عامة :
يمكن وضع كود خاص لجعل المؤشر مثلاً ينتقل إلى الخانة الأولى التي تريد أن يبدأ الشخص بالكتابة فيها عند الضغط على زر إضافة :
text1.setfocus
data1.recordset.addnew
end sub
كما يفضل في حال وجود عدة سجلات في قاعدة البيانات أن تضع كود خاص لللانتقال بين السجلات عند إعطاء أوامر معينة مثل إضافة أو حذف سجل .. مثل :
data1.recordset.movelast
أو :
data1.recordset.moveprevious
وهكذا ..
كما يفضل وضع رسالة توضع للمستخدم الأمر قبل تنفيذه .. :ان تظهر للمستخدم رسالة تقول " هل ترغب فعلاً بحذف السجل الحالي ؟ " ثم إذا ضغط نعم يتم حذف السجل أو إذا ضغط لا ترجع إلى الحالة الأولى قبل ضغط الزر " حذف " .. مثال :
dim question as string
dim answer as vbmsgboxresult
questio = " ig jvyf fp`t hgs[g ? "
answer = msgbox ( question , vbquestion & vbYesNo , " + App.ProductName , " تأكيد الحذف" )
if answer = vbYse then
indelte = true
data1.recordset.delete
data1.recordset.movePrevious
if data1.recordset.BOF then data1.recordset.movefirst
data1.refresh
indelete = false
end if
end sub
أنصحك بتحليل الشفرة السابقة وفهمها من خلال الممارسة
أملي أن أكون تكون الاجابة وافية ..
أخوك محمد .. الكويت
السلام عليكم
شكرا اخواني حمود:سترواي: ابودلال
---------
ارسلت البرنامج لكم ارجو مع الشكر ان يكون الرد قريب
---------
اخوي ابودلال شكرا على الرد ولكن نفس الكود كتبته
وصار يخفظ السجل بس ما يزيد على الملف سجل جديد يلغي واحد سبق موجود ويضيف سجل فاضي
اذا تريد ارسلك البرنامج انا مستعد لو لم يكن هناك كلفة
وشكرا
انزل هذا الملف و اقرءه بواسطه Acrobat Reader
يحتوي هذا الملف على التعديل اللازم على الكود + بعض الملاحظات
شكرا اخوي حمود
كان شرحك في طريقة سرد البرنامج ممتازه وقد نجحت الطريقة
ارجو لك كل توفيق وعلى الله نرد الجميل
تقديري
(f)
لاشكر على واجب!!:o :o :o
هذا الموضوع مغلق.