السلام عليكم ارجو ان تساعدوني في مشكلتي وهي انه عندي ارقام متكررة اريد ان اخذ منها كل رقم يمثل عدة ارقام متشابهة وذلك في منشئ التعبير مثلا 11111 او 2222 او 5555
فاخذ فقط 1 و 2 و 5 لكل رقم مرة واحدة
[ تمت الإجابة ]التكرار
اقتباسوهي انه عندي ارقام متكررة
وعليكم السلام
لم تذكر لنا اين هذه الارقام هل هي في جدول أم استعلام
ام في مربع نص ؟ ياليت ترفق مثالك حتى نساعدك في الحل
اخي العزيز في الاستعلام وعذرا انه انا لست الموجود على الكومبيوتر مالي لذلك لا اقدر على ارسال الملف فارجو المسامحة
السلام عليكم ورحمة الله
تفضل أخي الكريم المثال - طبعا راجع المودويل لتتعرف على عمله
أنظر الاستعلام - وضعت له شروطا - هي
ان كان الرقم متشابه - يعطينا اول خانه للرقم مثل
11111 = 1
88888 = 8
ان كان الرقم غير متشابه يكتب لنا ( الرقم غير متشابه مثل
34211 = رقم غير متشابه ..... وهكذا ....... بالتوفيق
ekseer
تم تعديل هذه المشاركة بواسطة ekseer في 3 يونيو 2008 في 00:57
شكرا اخي العزيز ارجو من الله ان يوفقك وان يحافظك عليك لعمل الخير
استاذي اكسير ارجو المعذرة على اعادة السؤال لانه انا قمت بعمل ذلك وفشلت ورايت في الاستعلام انك قمت بادخال ثلاث حقول في التصميم وظهر واحد منه فقط هل يمكن عذرا شرح الكود
الاستاذ الكريم اكسير ارجو ان تساعدني في هذا الكود هل بالامكان توضيحه
حاضر .. أخي .. ساوضحه لك بمشيئة الله
الليلة
السلام عليكم ورحمة الله وبركاته
أخي الكريم .. طلبك كان
اقتباسعندي ارقام متكررة اريد ان اخذ منها كل رقم يمثل عدة ارقام متشابهة وذلك في منشئ التعبير مثلا 11111 او 2222 او 5555فاخذ فقط 1 و 2 و 5 لكل رقم مرة واحدة
وهذا يعني أنك تريد القاعدة على الارقام المتكررة في الحقل فقط مثل
11111
66666
99999
33333
لكن ماذا لو ورد في نفس الحقل ارقاما غير متجانسه مثل
86754
76124
هنا نريد أن نميز الرقم هل هو متجانس أم لا ؟ ماذا فعلت
قمت أولا بعمل مودويل اسمه Module1 والكود الذي بداخله هو
Public Function GetDigitCount(inValue As Double) As Double GetDigitCount = Int(Log(inValue) / Log(10)) + 1 End Function
هذا مهمته يعد لي خانات الرقم المدخل فلو كان الرقم 11111 فأن ناتج المودويل يكون 5 اي عدد
خانات الرقم .. آحاد .. عشرات .. مئات ......... الخ ....... ستعرف فائدة ذلك فيما بعد ... زين
الأن قمت بانشاء جدول Tab فيه الحقول الاتيه
ID ----- حقل رقم الصنف مثلا
Co_Name ----- حقل نصي اسم الصنف
Sab --------- حقل رقم وهو الكمية مثلا ( وهو ماسنطبق عليه طلبك )
حيث تم تعبئته بارقام متجانسة وأخرى غير متجانسة
ثم انشأنا استعلام مبني على الجدول السابق فيه الحقول الاتيه
ID ----- حقل رقم الصنف مثلا
Co_Name ----- حقل نصي اسم الصنف
Sab --------- حقل رقم وهو الكمية ................... نفس حقول الجدول
ثم اضفنا حقولا للاستعلام هي
Ksab
وكوده في شبكة الاستعلام هكذا
Ksab: GetDigitCount([Sab])
وهذا يعني أن الحقل Ksab هو عدد خانات الحقل Sab بالاستعانه بالدالة GetDigitCount التي في الـ Module1
ثم الحقل Wsab
وكوده في شبكة الاستعلام هكذا
Wsab: String([Ksab];Mid([Sab];1;1))
لا حظ الداله String هنا تقوم بتكرار الرقم بعدد الخانات .. لاحظ الدالة Mid
ثم الحقل Na
وكوده في شبكة الاستعلام هكذا
Na: IIf([Sab]=[Wsab];Mid([Sab];1;1);IIf([Sab]<>[Wsab];"رقم غير متشابه "))
وهو يعني اذا كان Sab=Wsab
أطبع لنا الرقم الاول من الحقل Sab
وأن كانا لايتساويان فاطبع لنا رقم غير متشابه
والمثال كامل بجميع الحقول في المرفقات .......... والسلام
أخوك : اكسيرالحياة
تم تعديل هذه المشاركة بواسطة ekseer في 4 يونيو 2008 في 22:52
اخي الكريم اكسير اشكرك جزيل الشكر وفعلا اثبت انك عالم بالاكسس
بسم الله الرحمن الرحيم
تمت الإجابة على الموضوع
إدارة الفريق العربي للبرمجة
طبتم واهتديتم :)
===================================
إقرأ معي
رابط متجدد لكتاب أقرؤه فشاركني فيه
======
فضائح الرافضة ومخازيهم حين يكتب عنها أحد خصومهم فهذا شيء متوقع ،فإن كتب عنها أحدهم فهو شيء غير مألوف ، وإن كان الكاتب أحد مراجعهم وأخص خواصهم فهذا شيء متناهي الغرابة ، وإن علمت أن الكاتب قد قتل بعد نشر الكتاب فقد حان وقت قراءة الكتاب
الكتاب :
حسين الموسوي - لله تم للتاريخ ، كشف الأسرار وتبرئة الأئمة الأطهار
اضغط على الصورة لتحميل الكتاب
-----------
كتب سابقة