سلام عليكم
تحيه طيبه
عندي مشكله في ازرار التالي والسابق لمه اضغط عليه عده مرات تظهرلي هاي المشكله اي صورت الخطا ورفقته ان امكن تساعدوني واكون ممنونه وشكرا لكم
علما ان البرنامج فيجوال بيسك 6
اداة الربط مكتبة الادو
15-10-14, 11:39 PM (آخر تعديل لهذه المشاركة : 15-10-14, 11:42 PM {2} بواسطة hadeel.)
(15-10-14, 09:22 PM)السيد الغالي كتب : السلام عليكم
ضعي الكود نفسه قبل كود الحذف
On Error Resume Next
واذا لم تحل المشكلة ارفقي مشروعك وساهتم بالموضوع
تحياتي لك
وعليكم السلام ورحمة الله
شكرا لك اخي انا وضعت الكود في زر الحذف واشتغل لكن ايظا ظهرت لي مشاكل اخرى في زر التعديل علما اني وضعت نفس الكود في زر التعديل هوه يشتغل اول مره يعني من اريد اعدل على سجل معين اول مره عادي يشتغل لكن لمه اريد اعدل على نفس السجل مره ثانيه تظهرلي مشكله (المشكله انا رفقته بصوره)
ثانيا عندي مشكله انو مثلا لمه اضغظ عده مرات على زر السابق والتالي يختفي المؤشر وبذالك عندما اريد احذف سجل لا يحذف اي سجل لانه لا يؤشر على سجل معين
ونفس المشكله في زر التعديل..
انا رفقت المشروع (علما اني اربط بالاكواد بمكتبة الادو)
شكرا لكم اخي اتمنى انو ما ازعجزتكم بكثره اسئلتي والله يقدركم على مساعدة الناس
في الاعلى المشروع وهنا صورة مشكله التعديل
يمكن تعديل الكود التالبي بحيث يكون اسرع
الكود القديم:
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