مدونة منذر اسامة

العودة   منتديات جريت بلينز العربية Great Plains For Arab > منتدى مطوري جريت بلينز > منتدى أكواد فيجوال بيسك VBA

إضافة رد
 
أدوات الموضوع انواع عرض الموضوع
قديم 07-Jul-2011, 09:57 AM   #1
أحمد الغامدي
عضو مميز
 
تاريخ التسجيل: Jun 2007
المشاركات: 162
من مواضيعي  
Thumbs down كيف أعرض أسماء العملاء في قائمة منسدلة وبترتيب غير موجود في الداتابيز؟؟

السلام عليكم

جزاكم الله خير على مساعداتكم وأسأل الله أن يبارك بالقائمين على الموقع إدارة ومشرفين ....

لدي سؤال عن كود وضع أسماءالعملاء في قائمة Populate List ؟؟

أدري أن الموضوع سهل لكن واجهتني مشكلة بأن العميل الأول لا يظهر إسمه

وثانياأني أريد أن أرتب العملاء بحسب الأقدمية بالتسجيل (يعني آخر عميل سجل أريده أن يظهر كأول عميل في القائمة).
هل هنالك من مخاطر لو أضفت حقل Field في الداتا بيز وجعلته يترقم تلقائيا (Auto Increment) كي أتحكم بموضوع الأسبقية في التسجيل؟

جزاكم الله خير

آخر تعديل بواسطة أحمد الغامدي ، 07-Jul-2007 الساعة 11:19 AM.
أحمد الغامدي غير متواجد حالياً   رد مع اقتباس
قديم 07-Jul-2011, 10:46 AM   #2
Monzer Osama
مدير عام منتديات جريت بلينز العربية
Post

وعليكم السلام ورحمة الله
أهلا بك أخي أحمد

اسمحلي أن أعارضك بموضوع إضافة حقول على هيكلية أي جدول في جريت بلينز تحسبا لأي أخطاء تحدث أثناء الترقية أو إضافة حزمة الإصلاح Service Pack فانتبه لهذه النقطة
أما بالنسبة الى عرض العملاء فاللذي فهمته أنك تريدترتيب العرض بشكل تنازلي فعليك استخدام آخر حقل DEX_ROW_ID وهذا الحقل ستجده في كل جداول جريت بلينز
وإليك الكود التالي كاملا لإظهار ما تريد وهو يعمل بشكل جيد ولا يفترض أن يختفي اسم العميل الأول

كود:
cmdString = "Select CUSTNAME from RM00101 ORDER BY DEX_ROW_ID DESC"
Set objRec = objConn.Execute(cmdString)

While objRec.EOF = False

   ListBox1.AddItem (objRec!CUSTNAME)

objRec.MoveNext

Wend

قم بتجربة الكود واخبرني بالنتيجة وان شاء الله تستفيد معنا
__________________
Monzer Osama
Saudia Arabia - Jeddah
00966501826235
Microsoft Certified Business Management Solutions Professional
Microsoft Certified Trainer
Monzer Osama غير متواجد حالياً   رد مع اقتباس
قديم 07-Jul-2011, 10:52 AM   #3
Monzer Osama
مدير عام منتديات جريت بلينز العربية
افتراضي

طبعا لا تنسى أن تقوم بإنشاء إتصال بقاعدة البيانات التي تعمل عليها

ولا تنسى إغلاق الإتصال عند إغلاق النافذة التي وضعت فيها القائمة

بافتراض انك وضعت القائمة في نافذة مستقلة فاكتب التالي

كود:
Private Sub UserForm_Terminate()
objConn.Close
End Sub
بالتوفيق
__________________
Monzer Osama
Saudia Arabia - Jeddah
00966501826235
Microsoft Certified Business Management Solutions Professional
Microsoft Certified Trainer
Monzer Osama غير متواجد حالياً   رد مع اقتباس
قديم 07-Jul-2011, 11:04 AM   #4
أحمد الغامدي
عضو مميز
 
تاريخ التسجيل: Jun 2007
المشاركات: 162
من مواضيعي  
Thumbs up

أشكرك اخوي Monzer على سرعة ردك واهتمامك
ما كنت أدري عن وجود هذا الحقل DEX_ROW

الكود نجح 100% وعدلت عليه شوية لأني استخدم Customer Number في تمرير بعض القيم.

فعدلت الكود وكتبت التالي:

كود:
Select CUSTNAME from RM00101 ORDER BY DEX_ROW_ID DESC

Thanks Again
أحمد الغامدي غير متواجد حالياً   رد مع اقتباس
إضافة رد


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

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

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

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

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
الرابط غير موجود as_radwan تعرف على جريت بلينز .... 1 01-Sep-2013 11:57 AM
أسماء الفائزين والناجحين معنا بامتحانات جريت بلينز Monzer Osama منتدى جريت بلينز العام 22 05-Dec-2012 04:26 PM
كود لعرض الفواتير على العميل (From Work and History Table) أحمد الغامدي منتدى أكواد ومواضيع الـ SQL Server 4 01-Sep-2011 10:09 AM


جميع الأوقات بتوقيت GMT +3. الساعة الآن 06:56 AM.


Powered by vBulletin® Version 3.8.3

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

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