تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] مشكله في ازرار التالي والسابق
#1
سلام عليكم
تحيه طيبه
عندي مشكله في ازرار التالي والسابق لمه اضغط عليه عده مرات تظهرلي هاي المشكله اي صورت الخطا ورفقته ان امكن تساعدوني واكون ممنونه وشكرا لكم
علما ان البرنامج فيجوال بيسك 6
اداة الربط مكتبة الادو


الملفات المرفقة صورة/صور
   
 الحمد لله الذي لا يحمد على مكروه سواه  

الرد }}}}
تم الشكر بواسطة:
#2
ضع الكود التالي في البداية وهو كود لتجاوز الاخطاء
On Error Resume Next
Smile تحياتي لكم Smile
الرد }}}}
تم الشكر بواسطة:
#3
(15-10-14, 10:17 AM)السيد الغالي كتب : ضع الكود التالي في البداية وهو كود لتجاوز الاخطاء
On Error Resume Next

شكرا لك اخي انحلت مشكله التالي والسابق لكن ظهرت مشكله اخرى في زر الحذف كما في الصوره


الملفات المرفقة صورة/صور
   
 الحمد لله الذي لا يحمد على مكروه سواه  

الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم
ضعي الكود نفسه قبل كود الحذف
On Error Resume Next
واذا لم تحل المشكلة ارفقي مشروعك وساهتم بالموضوع
تحياتي لك
Smile تحياتي لكم Smile
الرد }}}}
تم الشكر بواسطة:
#5
(15-10-14, 09:22 PM)السيد الغالي كتب : السلام عليكم
ضعي الكود نفسه قبل كود الحذف
On Error Resume Next
واذا لم تحل المشكلة ارفقي مشروعك وساهتم بالموضوع
تحياتي لك

وعليكم السلام ورحمة الله
شكرا لك اخي انا وضعت الكود في زر الحذف واشتغل لكن ايظا ظهرت لي مشاكل اخرى في زر التعديل علما اني وضعت نفس الكود في زر التعديل هوه يشتغل اول مره يعني من اريد اعدل على سجل معين اول مره عادي يشتغل لكن لمه اريد اعدل على نفس السجل مره ثانيه تظهرلي مشكله (المشكله انا رفقته بصوره)
ثانيا عندي مشكله انو مثلا لمه اضغظ عده مرات على زر السابق والتالي يختفي المؤشر وبذالك عندما اريد احذف سجل لا يحذف اي سجل لانه لا يؤشر على سجل معين
ونفس المشكله في زر التعديل..
انا رفقت المشروع (علما اني اربط بالاكواد بمكتبة الادو)
شكرا لكم اخي اتمنى انو ما ازعجزتكم بكثره اسئلتي والله يقدركم على مساعدة الناس

في الاعلى المشروع وهنا صورة مشكله التعديل


الملفات المرفقة صورة/صور
   

.rar   مشروع بمكتبة الادو.rar (الحجم : 73.43 ك ب / التحميلات : 14)
 الحمد لله الذي لا يحمد على مكروه سواه  

الرد }}}}
تم الشكر بواسطة:
#6
السلام عليكم
تم التعديل على مشروعك حيث تم اضافة وتعديل وحذف بعض الاكواد  راجعي جميع الاكود حتى تتضح لديك الفكرة
اتمنى ان يكون هذا ما هو مطلوب
تحياتي لك


الملفات المرفقة
.rar   مشروع بمكتبة الادو.rar (الحجم : 79.27 ك ب / التحميلات : 42)
Smile تحياتي لكم Smile
الرد }}}}
تم الشكر بواسطة:
#7
يمكن تعديل الكود التالبي بحيث يكون اسرع
الكود القديم:
Private Sub Text11_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text12.SetFocus
End If

strFind = "ZXCVBNMASDFGHJKLQWERTYUIOP[]=ÏÌÍÎåÚÛÝÞËÕÖÔÓíÈáÇÊäãßØÙÒæÉìáÇÑÄÁÆÂáÂÅáÃáÅ~úóðõñöòøÐzxcvbnmasdfghjklqwertyuiop'"
If (InStr(strFind, Chr(KeyAscii)) <> 0) Then KeyAscii = 0
End Sub


الكود الاسرع:
Private Sub Text11_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text12.SetFocus
End If

strfind = "0123456789."
If (InStr(strfind, Chr(KeyAscii)) = 0) Then KeyAscii = 0

End Sub
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكله في تقرير يعرض الشروط الموجوده في الكومبو بوكس مصعب القرشي 16 556 18-06-16, 03:49 AM
آخر رد: مصعب القرشي
Lightbulb ارجو حل المثال التالي احمد سامي 2 259 05-11-15, 07:54 PM
آخر رد: khodor1985
  [vb6.0] مشكله في كود البحث mustafamusaway 1 369 26-09-15, 03:04 PM
آخر رد: أبو عمر
Lightbulb [vb6.0] مشكله فى VB 6 فى برنامج لطرح عددين عشريين Ayman2895 6 722 09-09-15, 06:03 PM
آخر رد: Ayman2895
  من يعدل علي الكود التالي ليجعله يشتغل في سيكوال سيرفر 2008 scsi7000 3 343 24-08-15, 09:15 PM
آخر رد: scsi7000
  مشكله فى اداة Calendar aboezzat84 1 386 22-08-15, 10:18 AM
آخر رد: aboezzat84
Star ارجو تصحيح الخطأ في البرنامج التالي عبدالرحمن الرشيدي 4 652 09-06-15, 06:01 AM
آخر رد: عبدالرحمن الرشيدي
  [VB.NET] مشكله فى الكومبو بوكس محمد سويلم 1 351 24-09-14, 11:39 AM
آخر رد: السيد الغالي
  مشكله في Package !! abuadnan166 2 299 12-07-14, 04:37 PM
آخر رد: abuadnan166
Thumbs Up [كود] مشكله فى كود تفقيط الارقام الى حروف eng_elsawy 16 4,090 02-05-14, 11:49 AM
آخر رد: king2512010

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم