منتديات جريت بلينز العربية Great Plains For Arab - كيف أعرض أسماء العملاء في قائمة منسدلة وبترتيب غير موجود في الداتابيز؟؟

- منتدى أكواد فيجوال بيسك VBA (http://www.gp4arab.com/forum/forumdisplay.php?f=7)

كيف أعرض أسماء العملاء في قائمة منسدلة وبترتيب غير موجود في الداتابيز؟؟

السلام عليكم

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

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

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

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

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

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

اسمحلي أن أعارضك بموضوع إضافة حقول على هيكلية أي جدول في جريت بلينز تحسبا لأي أخطاء تحدث أثناء الترقية أو إضافة حزمة الإصلاح 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

قم بتجربة الكود واخبرني بالنتيجة وان شاء الله تستفيد معنا

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

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

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

كود:

Private Sub UserForm_Terminate()
 objConn.Close
 End Sub

بالتوفيق

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

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

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

كود:

Select CUSTNAME from RM00101 ORDER BY DEX_ROW_ID DESC

Thanks Again