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


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

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


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

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

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


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

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


الملفات المرفقة
.rar   مشروع بمكتبة الادو.rar (الحجم : 79.27 ك ب / التحميلات : 76)
   تحيــــــــــــــــــــــــــــاتي لكـــــــــــــــــــم    
الرد }}}
تم الشكر بواسطة:
#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
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] كيف يمكن إخفاء عمود رقم الصنف و إظهاره برمجياً نامل المساعدة في المثال التالي ؟ Microformt 2 387 19-11-23, 10:49 PM
آخر رد: Microformt
Photo [vb6.0] هناك مشكله اكتيف ريبورت يحث يظهر الخط عند عرض التقرير بشكل مكبر ومد في الحرف ؟؟ Microformt 7 769 03-02-23, 01:55 PM
آخر رد: Taha Okla
  مشكله في كود اتصال بجهاز البصمه ahmed1900 0 390 18-01-23, 11:54 AM
آخر رد: ahmed1900
Question [vb6.0] كيف امنع حفظ قناع Text وهوا بشكل التالي ؟؟ Microformt 1 502 30-09-22, 11:53 PM
آخر رد: Taha Okla
Question [vb6.0] كيف اجعل textيقبل فقط إدخال نسبة موأيه بتنسيق التالي ؟؟ Microformt 4 655 28-09-22, 04:54 PM
آخر رد: Microformt
  مشكله في تقرير المبيعات ahmed201 3 1,632 21-02-21, 09:47 PM
آخر رد: ahmed201
  مشكله في كواد بحث في قاعدة بيانات اكسس ahmed250 2 1,620 07-08-20, 09:50 AM
آخر رد: ahmed250
  مشكله في كود اضافه ملف pdf في قاعدة بيانات اكسس وإستدعاءه ahmed250 1 1,504 03-07-20, 11:23 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] مشكله ado اداه فراس محي 4 1,750 20-02-20, 09:55 AM
آخر رد: فراس محي
  مشكله فى لعبه مبرمجه على الفيجوال بيسك خالد كامل1 0 1,294 19-12-19, 09:53 PM
آخر رد: خالد كامل1

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


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