+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : مشكلة زر البحث (/showthread.php?tid=13050)
مشكلة زر البحث - Ksa004 - 27-08-15
السلام عليكم ورحمة الله
لدي مشكلة في برنامجي المرفق وهي انه عندما أقوم بعملية البحث عن رقم موظف للتعديل على بياناته
يقوم البرنامج بتعديل بيانات الموظف ويلحق التعديل على بيانات موظف اخر . مع حدوث خطا في بعض الاحيان
اما لو تم التعديل على بيانات الموظف بدون ظغط زر البحث فانه يتم التعديل بصوره صحيحه.
الطلب الاخر هو منع اظافة رقم الموظف اذا كان الرقم موجود في قاعدة البيانات .
ولكم جزيل الشكر..
RE: مشكلة زر البحث - أبو عمر - 27-08-15
مشكلتك بسيطة جداً
!ID= trim(text1.text)
فقط خليها
!ID=val(text1.text)
لان الحقل ID
رقم
[attachment=7726]
دعواتك
RE: مشكلة زر البحث - Ksa004 - 31-08-15
جزاكم الله خيرا
بس ان المشكله لم يتم حلها ( مثلا عندما تكون البيانات عند السجل الأخير واقوم بالبحث عن رقم السجل الأول او العكس يتم التعديل على كلا السجلين الأول والأخير ) يرجى النظر الى زر البحث هل هو صحصح ام لا
شاكر لكم جميعا
RE: مشكلة زر البحث - أبو عمر - 31-08-15
بارك الله فيك
تفضل المثال.
تابع كل التغييرات التي طرأت على الكود والفورم
بالتوفيق
[attachment=7748]
حبذا لو تتابع مشاركاتك
RE: مشكلة زر البحث - Ksa004 - 01-09-15
وصلت المعلومه
شاكر لك عزيزي Lion_Ksa على المعلومات المفيده اسال الله ان يبارك لك في علمك
RE: مشكلة زر البحث - Ksa004 - 08-09-15
الاخوه الكرام لدي كود منع تكرار البيانات
If dRS.BOF <> True Then
dRS.Find "id ='" & Text1.Text & "'", 1, adSearchBackward
MsgBox "åÐÇ ÇáÅÓã ãÓÌá"
End If
الا انني لم استطع ان اضعه في المكان المناسب , برجا ممن لديه درايه لا يبخل علينا
اريد تنفيذ الكود عن عملية الاضافه
RE: مشكلة زر البحث - أبو عمر - 08-09-15
الكود اعلاه بحث بارك الله فيك
ماله دخل بتكرار البيانات
انت ايش بغيت بالضبط؟