مدونة منذر اسامة
قديم 23-Oct-2011, 07:42 AM   #1
kh_waleed23
مشرف سابق
 
تاريخ التسجيل: Aug 2007
الدولة: Saudia
المشاركات: 127
إرسال رسالة عبر مراسل MSN إلى kh_waleed23
من مواضيعي  
افتراضي يا اصحاب الفيجوال وينكم

يا جماعة الخير اطلب منكم كود مررره بسيط ارجو المساعدة
الصورة المرفقة توضح مع الشرح
الصور المصغرة للصور المرفقة
اضغط على الصورة لعرض أكبر الاســـم:	Jpgp.JPG‏ المشاهدات:	1241 الحجـــم:	63.7 كيلوبايت الرقم:	212  
kh_waleed23 غير متواجد حالياً   رد مع اقتباس
قديم 23-Oct-2011, 08:50 AM   #2
Shaheen
مشرف سابق
 
تاريخ التسجيل: Jul 2007
الدولة: Saudi Arabia
المشاركات: 40
من مواضيعي  
افتراضي

تحياتي
عملية نقل المؤشر الى بداية السطر التالي تعتمد برمجيا على "Grid"الى
المستخدمه.
وعلية اذهب الى خاصية "KeyDown"
واكتب الكود التالي على افتراض انك تتعامل مع "Recordset" لعرض البيانات

Case vbKeyReturn
If Grid.Col = 3 Then
If Recordset.AbsolutePosition < Recordset.RecordCount Then
Recordset.MoveNext
Grid.Col = 0
SendKeys "{HOME}"
End If
End If
End Select
Shaheen غير متواجد حالياً   رد مع اقتباس
قديم 23-Oct-2011, 09:29 AM   #3
kh_waleed23
مشرف سابق
 
تاريخ التسجيل: Aug 2007
الدولة: Saudia
المشاركات: 127
إرسال رسالة عبر مراسل MSN إلى kh_waleed23
من مواضيعي  
افتراضي يعطيك العافية ....

ارجوك أتأكد من الكود أظنه ناقص
وطلع لي اخطاء الله يوفقك
kh_waleed23 غير متواجد حالياً   رد مع اقتباس
قديم 23-Oct-2011, 09:32 AM   #4
Shaheen
مشرف سابق
 
تاريخ التسجيل: Jul 2007
الدولة: Saudi Arabia
المشاركات: 40
من مواضيعي  
افتراضي

ماهي الاخطاء
Shaheen غير متواجد حالياً   رد مع اقتباس
قديم 23-Oct-2011, 09:35 AM   #5
Shaheen
مشرف سابق
 
تاريخ التسجيل: Jul 2007
الدولة: Saudi Arabia
المشاركات: 40
من مواضيعي  
افتراضي

لاتنسى تغير "GRID" الى الاسم الحقيقي عندك
وكذلك "Recordset" الى الاسم الحقيقي عندك
Shaheen غير متواجد حالياً   رد مع اقتباس
قديم 23-Oct-2011, 10:00 AM   #6
kh_waleed23
مشرف سابق
 
تاريخ التسجيل: Aug 2007
الدولة: Saudia
المشاركات: 127
إرسال رسالة عبر مراسل MSN إلى kh_waleed23
من مواضيعي  
افتراضي

select caes
Case vbKeyReturn
If Grid.Col = 3 Then
If Recordset.AbsolutePosition < Recordset.RecordCount Then
Recordset.MoveNext
Grid.Col = 0
SendKeys "{HOME}"
End If
End If
End Select
كيف اغير الإسم من الخصائص ؟
kh_waleed23 غير متواجد حالياً   رد مع اقتباس
قديم 23-Oct-2011, 10:07 AM   #7
kh_waleed23
مشرف سابق
 
تاريخ التسجيل: Aug 2007
الدولة: Saudia
المشاركات: 127
إرسال رسالة عبر مراسل MSN إلى kh_waleed23
من مواضيعي  
افتراضي

الكود اللي فوق نسخته والصقته في الفيجوال في :
Private Sub TRXQTY_AfterLostFocus()
If Grid.Col = 3 Then
If Recordset.AbsolutePosition < Recordset.RecordCount Then
Recordset.MoveNext
Grid.Col = 0
SendKeys "{HOME}"
End If
End If
End Select
End Sub
يعطيني خطأ ان الـSelect Case غير مكتمل
وبعدها يظلل على GRid ويعطيني رسالة Obeject requied
kh_waleed23 غير متواجد حالياً   رد مع اقتباس
قديم 23-Oct-2011, 10:21 AM   #8
Shaheen
مشرف سابق
 
تاريخ التسجيل: Jul 2007
الدولة: Saudi Arabia
المشاركات: 40
من مواضيعي  
افتراضي

الكود اللي فوق نسخته والصقته في الفيجوال في :
Private Sub TRXQTY_AfterLostFocus()
If TRXQTY.Col = 3 Then
If Recordset.AbsolutePosition < Recordset.RecordCount Then
Recordset.MoveNext
TRXQTY.Col = 0
SendKeys "{HOME}"
End If
End If
جرب الكود التالي
بس حاول تحطه في خاصيى "KeyDown"
Shaheen غير متواجد حالياً   رد مع اقتباس
قديم 23-Oct-2011, 11:00 AM   #9
kh_waleed23
مشرف سابق
 
تاريخ التسجيل: Aug 2007
الدولة: Saudia
المشاركات: 127
إرسال رسالة عبر مراسل MSN إلى kh_waleed23
من مواضيعي  
افتراضي هذا الرد



شوف الخاصية coL مش موجوده ضمن القائمة
الصور المصغرة للصور المرفقة
اضغط على الصورة لعرض أكبر الاســـم:	03.JPG‏ المشاهدات:	1045 الحجـــم:	10.6 كيلوبايت الرقم:	216  
kh_waleed23 غير متواجد حالياً   رد مع اقتباس
قديم 23-Oct-2011, 11:08 AM   #10
Shaheen
مشرف سابق
 
تاريخ التسجيل: Jul 2007
الدولة: Saudi Arabia
المشاركات: 40
من مواضيعي  
افتراضي

استاذي الغالي
اذا كانت فكرة الكود واضحة لك حاول تجد خاصية شبيه
حيث انني استخدم "tdbgrid"
وكما ذكرت لك انها تعتمد على "grid" المستخدمة
ولك تحياتي
Shaheen غير متواجد حالياً   رد مع اقتباس
إضافة رد


يتصفح الموضوع حالياً : 1 (0 عضو و 1 ضيف)
 
أدوات الموضوع
انواع عرض الموضوع

ضوابط المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا يمكنك اضافة مرفقات
لا يمكنك تعديل مشاركاتك

BB code متاحة
كود [IMG] متاحة
كود HTML معطلة

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

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
تنفيذ الماكرو من داخل الفيجوال بيسك saed_adnan منتدى جريت بلينز العام 1 27-Nov-2014 06:13 AM
الفيجوال ستديو مع الديكستريتي ... للمطورين Monzer Osama مواضيع المطورين الأخرى 1 22-Jul-2013 08:36 AM
كود ربط الفيجوال بالسي++ العراقي1983 منتدى أكواد فيجوال بيسك VBA 3 15-Sep-2012 12:07 PM
مطلوب كود لتغير Language Bar في الفيجوال بيسك Raad Al-Mrayatee منتدى أكواد فيجوال بيسك VBA 1 11-May-2012 07:20 AM
تنفيذ الماكرو من الفيجوال بيسك kh_waleed23 منتدى أكواد فيجوال بيسك VBA 7 25-Nov-2011 08:48 AM


جميع الأوقات بتوقيت GMT +3. الساعة الآن 01:53 PM.


Powered by vBulletin® Version 3.8.3

الموقع والمنتدى من تطوير » شركة المنذر للاستضافة والتصميم

Copyright © 2000-2010 Jelsoft Enterprises Limited.
الموقع لا يمثل أي جهة رسمية بل هو جهد شخصي يرمي الى تجميع القدرات في برنامج جريت بلينز