|
23-Oct-2011, 07:42 AM | #1 | ||
مشرف سابق
| يا اصحاب الفيجوال وينكم يا جماعة الخير اطلب منكم كود مررره بسيط ارجو المساعدة الصورة المرفقة توضح مع الشرح | ||
23-Oct-2011, 08:50 AM | #2 | ||
مشرف سابق تاريخ التسجيل: 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 | ||
23-Oct-2011, 09:29 AM | #3 | ||
مشرف سابق
| يعطيك العافية .... ارجوك أتأكد من الكود أظنه ناقص وطلع لي اخطاء الله يوفقك | ||
23-Oct-2011, 09:32 AM | #4 | ||
مشرف سابق تاريخ التسجيل: Jul 2007 الدولة: Saudi Arabia المشاركات: 40
| ماهي الاخطاء | ||
23-Oct-2011, 09:35 AM | #5 | ||
مشرف سابق تاريخ التسجيل: Jul 2007 الدولة: Saudi Arabia المشاركات: 40
| لاتنسى تغير "GRID" الى الاسم الحقيقي عندك وكذلك "Recordset" الى الاسم الحقيقي عندك | ||
23-Oct-2011, 10:00 AM | #6 | ||
مشرف سابق
| 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 كيف اغير الإسم من الخصائص ؟ | ||
23-Oct-2011, 10:07 AM | #7 | ||
مشرف سابق
| الكود اللي فوق نسخته والصقته في الفيجوال في : 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 | ||
23-Oct-2011, 10:21 AM | #8 | ||
مشرف سابق تاريخ التسجيل: 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" | ||
23-Oct-2011, 11:00 AM | #9 | ||
مشرف سابق
| هذا الرد شوف الخاصية coL مش موجوده ضمن القائمة | ||
23-Oct-2011, 11:08 AM | #10 | ||
مشرف سابق تاريخ التسجيل: Jul 2007 الدولة: Saudi Arabia المشاركات: 40
| استاذي الغالي اذا كانت فكرة الكود واضحة لك حاول تجد خاصية شبيه حيث انني استخدم "tdbgrid" وكما ذكرت لك انها تعتمد على "grid" المستخدمة ولك تحياتي | ||
يتصفح الموضوع حالياً : 1 (0 عضو و 1 ضيف) | |
أدوات الموضوع | |
انواع عرض الموضوع | |
|
|
المواضيع المتشابهه | ||||
الموضوع | كاتب الموضوع | المنتدى | مشاركات | آخر مشاركة |
تنفيذ الماكرو من داخل الفيجوال بيسك | 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 |