اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

أريد تسلسل تلقائي يبدأ بإدخال المسخدم


أبوعمار

الردود الموصى بها

بسم الله الرحمن الرحيم

اخواني الأفاضل اعضاء المنتدى

أرجو مساعدتي في ايجاد حل لمشكلتي هذه والمتعلقة بالترتيب التسلسلي في التقرير حسب

ما يدخله المستخدم.

عند فتح التقرير , يطلب منك ادخال بداية العد التسلسلي في صندوق Input Box , واذا اعطيته رقم 5 مثلا فإن هذا الرقم سيظهر في جميع السجلات في خانة الرقم التسلسلي , ما اريده هو ان يتم ادخال الرقم 10 (مثلا) لأول سجل ثم يبدا العد التسلسلي وذلك باعطاء السجل التالي مباشرة الرقم 11 ثم السجل الذي يليه يكون رقمه 12 وهكذا حتى يصل الى آخر سجل في الجدول...... عملية التسلسل مثل عملية التسلسل التلقائي المعروفة ولكن الفرق الذي اريده هو ان يتم ادخال بداية العد عن طريق المستخدم نفسه. ملاحظة : لا اريد ربط الحقل (الرقم التسلسلي) باي جدول , فانا احتاج لهذه العملية وقت الطباعة فقط.

وجزى الله خيرا كل من اعانني في حل مشكلتي هذه.

سلامٌ عليكم من الله ورحمة وبركات

رابط هذا التعليق
شارك

أخي الفاضل

ضع في التقرير مربع نص غير منضم لنفرض أنه tx1 ضع في مصدرعنصر التحكم =1

التجميع التراكمي .... شامل

ضع هذا الحقل جانب بمعنى تضع له خاصية غير مرئي في التقرير

ضع مربع نص منضم للحقل الذي تدخل فيه بداية الترقيم لنفرض أنه tx2 غير مرئي

ضع مربع نص غير منضم لنفرض أنه tx3 مربع النص tx3 هو الترقيم التلقائي أكتب في مصدر البيانات مصدرعنصر التحكم=[tx1]+[tx2]

التجميع التراكمي ......لا

حيث أن tx1

ترقيم تلقائي 1 ، 2، 3، الخ

tx2القيمة التي تدخلها أنت ويبدأ بها الترقيم

وبذلك تحصل على ما تريد

أو أرفق مثال للتعديل عليه وشكراً

تحياتي

تم تعديل بواسطه ثبيت عرب
رابط هذا التعليق
شارك

أخي الفاضل ثبيت عرب

السلام عليكم ورحمة الله وبركاته وعلى من يقرأ

أولا: جزاك الله خيرا على ردك الذي كتبت وسلمت يدك

اخي بارك الله فيك , جربت طريقتك كما وصفت الا اني غيرت تغييرا بسيطا بجعل مربع النص (tx2) غير مرتبط ولكن قيمته تعطى من قبل المستخدم عن طريق صندوق Input Box

ولكن الطريقة لم تفلح معي ,

أخي الفاضل ما اريده ((( ان تتم عملية الترقيم بدون ارتباط بأي جداول او نماذج)))

فهذا سيسبب لي الكثير من المتاعب في برنامجي

أما من ناحية المثال المرفق , فانا غير مسموح لي بارفاق اي ملفات ولكن يمكنني مراسلتك على البريدالإلكتروني اذا لم تمانع.

انتظر منك الرد وجزاك الله خيرا. (وكل من اعانني على حل هذه المشكلة)

رابط هذا التعليق
شارك

السلام عليكم

من بعد أذن أخي ثبيت ، بارك الله فيكما

أخي أبا عمار ،

إليكما المثال التالي ، راجيا من أحدكما القيام بشرحه بعد فهم طريقة عمله

مع الاحترام والتقدير

Example1.rar

رابط هذا التعليق
شارك

أستاذنا الفاضل

السلام عليكم

لقد تمعنت حلك للمطلوب والذي يتفق مع حلي في الفكرة ويختلف في الطريقة

طريقة حلك خطواتها قليلة ومبسطة بالمقارنة مع طريقتى للحل والذي تم تحميله على الرابط الموضح أعلاه .

أنصح الأخ أبو عمار الأخذ بمثال الأستاذ خضر ولكن نرجووووو منه التفضل بشرح الطريقة ......................

ـــ الشكر للأساذ خضر على هذه المشاركة القيمة

ـــ الشكر للأخ أبو عمار على طرح هذا الإستفسار المثمر .

تحياتي

ثبيت عرب

رابط هذا التعليق
شارك

الأستاذ الفاضل / خضر الرجبي ,,, أخونا الفاضل / ثبيت عرب

سأقوم بشرح المثالين حسب فهمي البسيط والذي لا يخلو من الخطأ , فأرجو تصحيح ما وقعت فيه من أخطاء

في مثال الأستاذ الفاضل / خضر الرجبي

يوجد مربعين نص:

أحدهما سمُي (wanted) وهو مربع للعد التسلسلي المعروف والذي يبدأ من الرقم (1) وهو مخفي.

المربع الآخر احتوى على الكود التالي

=[wanted]+ ما هي القيمة الابتدائية لتسلسل]]-1

[wanted] سيعطي القيمة 1 والتي تتسلسل إلى آخر سجل كما هو معروف

[ما هي القيمة الابتدائية لتسلسل] صندوق يطلب من المستخدم إدخال بداية العد التسلسلي ولنفرض انه (5)

ستكون النتيجة إلى الآن (1 + 5) أي (6)

ثم يأتي في نهاية الكود (1-) لطرح العدد قيمة واحدة لتصبح (6 - 1) والتي تساوي (5) , هو العدد الذي ادخله

المستخدم

ثم يبدأ العد التسلسلي بداية من (5)

أما مثال الأخ الفاضل / ثبيت عرب

يوجد مربعين نص:

الأول سمُي (txt1) وهو مربع فارغ لم يغير فيه أي شيء سوى اسمه الذي أصبح txt1 وانه مخفي

المربع الآخر اسمه (txt2) احتوى على الكود التالي

=[txt1]+[Counter]-1

وكتب في كود في حدث Activate للتقرير

TxtRegNum = InputBox("الرجاء إدخال بداية العد التسلسلي")

Me.txt1 = TxtRegNum

الكود الموجود في حدث Activate يظهر صندوق Input Box يطلب من المستخدم إدخال العدد المطلوب لنفرض انه العدد (5)

ثم يجعل قيمة المربع (txt1) تساوي ما ادخله المستخدم والذي يساوي (5) في هذا المثال

الكود الموجود في مربع نص (txt2) هو الذي لم افهمه , فأنا لم اعلم ماهو سبب وجود كلمة (Counter)

ابتدائيا : اعتقد انه يعطي عداً تسلسلياً ابتداءً بالرقم 1 , فتصبح النتيجة إلى الآن (5 + 1) أي (6) ثم يأتي بعد ذلك العدد (1-) لطرح قيمة واحدة من العدد الكلي فتصبح (6 – 1 ) = 5 هو العدد الذي ادخله المستخدم.

ولكن معلومتي هذه ليست أكيدة فأنا كما قلت لا اعلم ولكن هذا الذي فهمته.

أما المعلومة الأكيدة فإني اترك إجابتها للأخ ثبيت عرب أو من يعلم من إخواننا الأفاضل أعضاء المنتدى

أخيرا وليس آخرا:

لا يسعني إلا قول جزاكما الله عني كل خير ولكما علي دعاء بظهر الغيب شكرا لكما على مساعدتكما ,ومن لا يشكر الناس لا يشكر الله.

كلا المثالين رائعين وقد حصل لي المطلوب ,استخدمت الطريقتين في تقريرين مختلفين حرصا على عدم إضاعة جهودكما معي

سلمت يداكما , وزادكما الله علماً ونورا , وسهل لكما طريق الجنة

تحياتي

أبو عمار

رابط هذا التعليق
شارك

السلام عليكم

شكرا لكما أخواي ثبيت وأبا عمار

وأبارك لكم جميعا ، هذه المشاركة والجهود التي آتت ثمارها.

مع الاحترام والتقدير

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information