لدى مشكلة فى تنفيذ كود حزف data1.recorset.delete
تاتى رسالة خطا
error 3021
(no current record)
كما ايضا تاتى رسالة خطا عند استخدام كود حفظ data1.recordset.update
error3020
(update or cancle update without ddnew or edit )
مع العلم ان كل الاكواد تنفذ بطريقة صحيصة
تم تعديل هذه المشاركة بواسطة ebsom في 16 مايو 2004 في 11:08
اهلين
اول شي رسالة الخطا الأولي
البرنامج مو لاقي سجل يحذفه
اما انك مو محدد سجل للحذف
او ان السجل محذوف وما حدثت قاعدة البيانات عن طريق
refrish
رسالة الخطأ الثانية
مافي اي تعديل أو إضافة على قاعدة البيانات حتي تسوي updata
&&& سبحانك اللهم وبحمدك .. أشهد ان لا إله إلا أنت .. أستغفرك وأتوب إليك &&&
...
شكرا
عملت الكود
تاتى نفس الرسالة لكن بعد عمل انهاء والرجوع مرة اخرى اجد البيانات اتحزفت لكن الرسالة مازالت.
بعدين اثناء التنفيذ البيانات او الحقول لا تظلل كلها الاواحدو واحدة هل فى طريقة اظلل بها كل السجل.
والمفروض عند الحزف يحزف السجل المفتوح او الحالى يعنى لا احدد السجل.
ارجو مساعدتى على الموضوع اعلاه
اكتب في كود الحفظ
Data1.Refresh
فقط من دون الجملة اللي كاتبها
إذا مامشي الحال اكتب الجملتين
data1.recordset.update
Data1.Refresh
شكرعلى كود الحفظ ارجو حل مشكلة الكود الاخر الحزف ما زالت الرسالة تاتى
اكتب الكود التالي في الحذف
Dim X
X = MsgBox(" هل تريد حذف السجل الحالي؟", vbYesNo)
If X = vbYes Then Data1.Recordset.Delete
MsgBox ("تم الحذف")
Data1.Refresh
شكر ا شكرا شكرا...........على الكودات
ارجو منك طلب اخر طريق اضافة ملف او فتح ملف به معلومات عن البرنامج اى help من نوع note pad
عايزة كود يعنى
ارجو ان تكون فهمتنى
ارجو الرد على طلبى
ارجو الرد على طلبى
please
ارجو مساعدتى فى عمل فائل يحتوى على بيانات خاصة باستعمال برنامجى مثل help لربطه بالكود غير طريقة ole
انا قريت حاجة عن عمل فائل عن طريق الاداة text ,commondialog
باضافة اشرطة التمرير لكن لم تظبط معى وفى ادوات لم اتعرف عليها مثل الكائن
txtfile ,mnultemclose, lbfile
هذا فى كتاب فيجول بيسك خطوة خطوة لمايكل هالفرسون
ويصبح الشكل كما فى
ارجوكم ساعدونى فى الموضوع اعلاه
ولا تزعلى
هذا الكود يفتح ملف نصي بطريقة الوصول العشوائي
ويحمل جميع مافي الملف في المتغير sFileData
Dim sFileData As String Open "C:\help.TXT" For Input As # 1 sFileData = Input$ (LOF( 1 ), 1 )
وإذا تريد النص في تكست بوكس اكتب
Text1.Text = sFileData
ولا تنسى تغلق الملف بـ
close #1
وشكرا
&&& سبحانك اللهم وبحمدك .. أشهد ان لا إله إلا أنت .. أستغفرك وأتوب إليك &&&
...
هذا الموضوع مغلق.