rober

أخي الكريم لا شكر على واجب المهم أن تحل المشكلة جرب الكود التالي Private Sub Cmd_Calc_Click() If Rs.RecordCount < 1 Then Text1.Text = "1" Else Text1.Text = Val(Rs![id]) + 1 End If End Sub حيث Rs هي أسم الجدول و id هي أسم الحقل في الجدول و هو من النوع text بكل …

أخي الكريم يمكنك ذلك بأخذ القيمة من أخر سجل على أن تكون رقم ثم تضيف عليها 1 ثم تقوم بإضافة سجل جديد و وضع القيمة الجديدة

أخي الكريم جرب أن تقوم بعمل ping على السيرفر بـ بفرض أن ip السيرفر هو 192.168.0.1 192.168.0.1 -t و إنظر إن كان هناك تقطع بالأشارة ( قد تكون هذه هي المشكلة ) و هناك أحتمالات أخرى

أخ طلال الحل الذي قمت به يقوم بإضافة سجل عند حذف أخر سجل و يعطي قيمة صفر للخلايا التي تقوم بجمعها بالأستعلام بالتالي الجدول لن يكون فارغ و سيكون هناك سجل فارغ لكل مورد ( من وجهة نظري القاصرة هذا حل خاطئ و لابد من وجود طريقة أخرى أفضل للحل ) :blush: و لاحظ أن ا…

:wink: :happy:

أخ طلال جربت طريقة الأخ Swift قمت بحذف سجل و عمل بدون مشاكل جرب المرفق 1.rar

أخ طلال جرب أن تقوم بوضع الشرط كما قال الأخ Swift على الشكل التالي if (labelr.caption <> '') and (labele.caption <> '') then labeln.caption := floattostr(strtofloat(labelr.caption) - strtofloat(labele.caption));

أخ طلال هل طبقت الحل ؟ لا أعرف ما علاقة ما قمت بعمله بالمشكلة فرسالة الخطأ تشير إلى ما ذكر سابقا في المشاركة رقم 7 بصراحة لا أعرف إن كان الحل صحيح أم لا :blush:

أنا جربت طريقة الأخ X لكن لم تنفع لأن الفايروس عدل على الملف و لم أستفد قد يكون غلط مني لا أذكر بالضبط لكني أذكر أني طبقت نفس الخطوات التي ذكرت بالنسبة لـ Tweak UI أنا قرأت في http://www.microsoft.com/windowsxp/downloa...ppowertoys.mspx أنه يعمل على windows 20…

أختي الكريمة ضغط البرامج ممكن جدا في بداية تعلمي للبرمجة و تعلمي لعمل ملفات الـ DLL خصوصا حصلت معي نفس المشكلة حتى أن الحاسب أصبح بطيء جدا عملت ريستارت للجهاز و رجع كل شيء عادي عددت للعمل على عمل ملف الـ DLL و أيضا عادت المشكلة و السبب أني كنت أقوم بفتح و أغلا…

أختي الكريمة ليس المقصود أن الذاكرة ضعيفة بالتحديد المقصود هو أنه قد يكون هناك ضغط على الذاكرة فيقوم النظام بتخفيض أعدادات العرض للحصول على أداء أفضل أرجو أن أكون قد تمكنت من أيصال الفكرة بشكل صحيح

:thumb_up: 100%

أختي الكريمة و أنتي بألف خير و اعاده الله على الجميع بالخير و السعادة شاهدي الرابط التالي المشاركات رقم 3 و 4 ستفيدك بعون الله http://www.zyzoom.org/vb/showthread.php?t=24258

الظاهر كل من بسوريا يعمل على الأيزا حديثا عندي 3 أصدقاء يبحثون عن أي شيء عنه أيضا :lol:

إذا عدنا إلى abelN.Caption := FloatToStr ( StrToFloat (LabelR.Caption) - StrToFloat (LabelE.Caption)); حاول وضع نقطة توقف عند بداية calculate و عند الوصول لها نفذ خطوة بخطوة ولاحظ مكان التوقف

أخ طلال إن كانت المشكلة تظهر عند الحذف أتصور المشكلة في السطر Htd:=StrToFloat(DBGrid1.Fields[1].Text)+Htd; HTY:=StrToFloat(DBGrid1.Fields[2].Text)+HTY; الله أعلم أنه يوجد قيمة فارغة في الكوري query و هو يقوم بتحويل القيمة الحالية في الأستعلام الفارغة إلى إلى f…

أخ طلال يا ريت لو ترفق المثال المشكلة أتصور ليست في حدث الحث فأنت تقوم بتحول string إلى float في السطر abelN.Caption := FloatToStr ( StrToFloat (LabelR.Caption) - StrToFloat (LabelE.Caption)); و بما أن الرسالة تشير إلى خطأ في تحويل لا شيء إلى فلوت فهذا خاطئ و …

:huh: :blink: :resentful: :hmm: !!!!!

أخي الكريم ما الفائدة من وضع الملف التنفيذي فقط بدون الكود ؟؟ هل يعمل البرنامج على كل أنواع الملفات ؟؟ في الملف المرفق الأخير لماذا لا تتم الأضافة ؟؟