الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف تجعل حقل ترقيم تلقائي يبداء من جديد في بداية كل عام

مغلق
بدأه ابن مسقط في 21 أغسطس 2001 · 14 رد · 1,769 مشاهدة · في مراجعة المواضيع
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله

يوجد لدي نموذج معمول على أكسيس 2000 لتسجيل المراسلات الصادرة

ويتكون من 4 حقول كالتالي :

1- رقم الصادر (حقل ترقيم تلقائي)

2- التاريخ (حقل تاريخ) يسجل تاريخ اليوم تلقائياً

3- الموضوع (نص)

4- الجهة المرسل إليها (نص)

فهل توجد وسيلة أو برمجه تجعل حقل رقم الصادر يبداء من رقم 1 في بداية كل عام ميلادي جديد ؟ على أن يحتفظ بالأرقام السابقة للتسجيل كما هي.

أرجو أن يكون طرحي واضح للمشكله

والله يوفق الجميع

ibnmusqat.gif
#2

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

#3

أخي / أبو بشاير

شكراً جزيلاً على ردك الكريم والسريع.

ولكني لا زلت أتسأل ، ألا يمكن إيجاد وسيلة تساعد ، مثلاً بتغير حقل الترقيم التلقائي إلى حقل رقم؟ حيث أني أفضل بقاء الرسائل الصادرة القديمة والجديدة في جدول واحد لسهولة البحث عنها.

ألا يمكن الإستعانة بكود برمجي في الفيوشيل بيسك ، أو تغيير تصميم قاعدة البيانات هذه بحيث تجعل حقل رقم الرسائل الصادرة يبداء من رقم 1 في مطلع كل عام جديد ؟

الا توجد إقتراحا أخرى ؟

عذراً على الإلحاح في الطلب ولكنها حاجة العمل.

مع تمنياتي لكم بالتوفيق.

ibnmusqat.gif
#4

بسم الله

أخى الفاضل ابن مسقط

يمكنك اضافة حقل فى الجدول الاساسى يكون عبارة عن كود مركب من الرقم المسلسل + السنة فقط

مثلا الرقم 1 لسنة 2000 يكون كود جديد و هو واحد على الفين ( كتبتها بالحروف حتى تكون واضحة ) 1/2000

و بذلك يكون هذا هو الكود المستخدم دائما و مع السنة الثانية يكون الكود 1 هو 1/2001

أرجو ان يكون هذا هو مرادك

اما عن تكوين الكود الجيد فيمكن ان تضع فى مصدر الحقل جمع الحقلين معا - بعد ان تختار السنة فقط من التاريخ -

و اعتذر عن عدم كتابة الكود الأن لنى لست متأكدا من نصة

فهو يكون تقريبا مثل هذا

field 1 & Filed 2

حيث ان field 1 يعنى الحقل الأول للرقم و Filed 2 يعنى الحقل الثانى للتاريخ و لكن مع استخلاص السنة و هذا الذى لا يحضرنى الأن

عذرا على التقصير

بالتوفيق

تقبل تحيات

أخـــــBengaــــوك

قال أبن القيم : أكثروا من الخير فينتشر .. و أقلوا من الشر فيندثر ..

#5

السلام عليكم

أخي بينجا

مقترحك هو مطلوبي بالضبط

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

ونظراً لأني مبتدىء في الأكسيس ، فهل أجد من بقية الأخوة من يرشدني خطوة بخطوة إلى

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

أو يجود علينا بمثال جاهز يمكنني تنزيله والإستفادة منه ان شاء الله.

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

ibnmusqat.gif
#6

السلام عليكم

هل سيطول إنتظاري للرد ؟

أين الأستاذ / خضر

أين أفكار الأخ العزيز / مسافر

هل السؤال معقد ؟

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

ibnmusqat.gif
#7

السلام عليكم ورحمة الله وبركاته .. وبعد

اولاً فأن أقتراح الأخ القائل بوضع ترقيم مضافاً إلى السنه فأنه من أحسن وأنجح الحلول ( كما أعرف لحد الآن ) ..

ثانياً : أنصحك بأن تجعل الرقم ( رقم الصادر ) رقم تدخله أنت وليس ترقيم تلقائي ..

وهذا الكلام من سابق تجربة لي مع برامج الصادر والوارد ..

كما يوجد لدي برنامج بسيط للصادر والوارد ممكن أرسل لك إذا أردت .. وبالمقابل ترسل لي ما لديك .. مكن باب تبادل الخبرات ..

وشكراً ..

أخوك / فتى الوادي

للتواصل بالمسنجر

AMOTAIB@HOTMAIL.COM

#8

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

أخي / فتى الوادي

شكراً على لطف وكرم ردك

وسنكون أن شاء الله في تواصل بالمسينجير

والسلام ختام

ibnmusqat.gif
#9

اخي الكريم ، معلش انا مشغول شوية و دخلت هذه الرسالة بالصدفة كمان ، كنت افكر طالما هناك 7 ردور يعني المشكلة محلولة :)

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

إن شاء الله اتمكن من ذلك اليوم

#10

الأستاذ / خضر

شكرا على إستجابتك.

أرجو ملاحظة أني أبحث عن كود يجعل حقل رقم الصادر

يبداء برقم 1 في بداية كل عام ميلادي ان أمكن.

ولك كل التقدير والإحترام

ibnmusqat.gif
#11

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

"وذكر فإن الذكرى تنفع المؤمنين" ..صدق الله العظيم

ibnmusqat.gif
#12

حول رقم الصادر إلى رقم صحيح طويل واجعل الكود التالي في الوحدة النمطية الخاصة بالنموذج :

Private Sub Form_AfterInsert()

' هذا الكود للمقارنة بين آخر تاريخ مسجل في جدول الصادر و _

بين تاريخ السنة الحالية فإذا وجده مختلف فهذا معناه أنه قد بدأت سنة جديدة

If DatePart("yyyy", DLast("تاريخ الصادر", "جدول الصادر")) <> _

DatePart("yyyy", Now()) Then

DoCmd.GoToRecord , , acNewRec

Me![رقم الصادر] = 1

Else

Me![رقم الصادر] = DLast("تاريخ الصادر", "جدول الصادر") + 1

End If

End Sub

ولك تحياتي

#13

السلام عليكم ورحمة الله

أخي / أبو حمود

شكراً جزيلاً على تجاوبك

سوف أطبق الشرح الذي ذكرته ان شاء الله

وسوف أخبرك بما أتوصل إليه.

أكرر شكري وأمتناني

وإلى اللقاء

ibnmusqat.gif
#14

الاخ ابوحمود الاخوة الافاضل

السلام عليكم ورحمة الله وبركاته لدي برنامج صادر وبه حقل لرقم المعاملة ترقيم تلقائي كيف يمكن ان اجعل الرقم يبداء من واحد في بداية كل عام هجري مع الاحتفاظ بارقام السنين السابقة كما هي للبحث وجزاكم الله عنا كل خير

#15

الأخ طلب علم

زادك الله علماً .

في الرابط التالي تجد طريقة لجدول الصادر :

http://mypage.ayna.com/h_h123/Sader.zip

إذا كان لديك إستفسار أو رغبت في تعديل الطريقة فاكتب طلبك .

ولك تحياتي

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…