رقم صادر ، رقم تسلسلي (عنوان معدل)

[co2002co]

مساء الخير

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

ارغب بعمل رقم صادر متغير

بحيث اني بمجرد فتح النموذج يعطيني رقم مباشره مطبوع بنموذج الادخال

[jjafferr]

وعليكم السلام 

 

المنتدى غني بمثل هذه الاسئلة المتكررة ، فياريت تعمل بحث قبل ان تضع سؤالك 

 

الرابط التالي فيه رد على سؤالك:

http://www.officena.net/ib/topic/61730-كيفية-ترقيم-القيد-بعد-حذف-القيد/

 

جعفر

[co2002co]

اشكرك اخي الفاضل على سرعه الرد

لكن الاربط لا يجيب على السؤال

لعلي لم اوصل الفكره المطلوبه

الذي اريده هو رقم متغير 

 

لكن لم تنجح 

ممكن لاني لم اطبقها بالشكل الصحيح

[jjafferr]

في نفس الرابط ، المشاركة التالية تشرح لك كل شئ:

http://www.officena.net/ib/topic/61730-كيفية-ترقيم-القيد-بعد-حذف-القيد/?do=findComment&comment=398763

 

واذا لازلت في مشكلة ، فالرجاء شرح ما قمت به (على اساس الرابط) ، ثم ترفق برنامجك ، والذي يجب ان يكون فيه عملك لوسمحت 

 

 

جعفر

 

[co2002co]

حلمك علي يا اخ جعفر

انا مبتدء واطمح بمساعدتكم لي

ممكن تتكرم علي ب عمل النموذج 

كل ما اردته هو رقم صادر يكتب بشكل تلقائي بالنموذج ويطبع بالتقرير ويكون طبعا موجود بالجدول

مثال 00000/ ت99 / 55

كل ما اردته هو الاصفار تتغير مع كل مره يفتح بها الجدول اي +1

[jjafferr]

2 دقائق مضت, co2002co said:

حلمك علي يا اخ جعفر

 

في حاجة إحنا الاثنين متفقين عليها ، وهي عمل النموذج 

بس اللي ما متفقين عليه ، هو من يعمل النموذج ، انا او انت 

 

انت اعمل اللي عليك ، وانا ان شاء الله اكمل لك الباقي 

ايش رأيك 

وطبعا هذه الجزئية هي اسهل ما يكون في برنامج الصادر والوارد 

 

 

جعفر

[co2002co]

اقتباس

 

 

Database2.rar

[jjafferr]

تفضل 

 

لما تكتب الاسم في سجل جديد ، ولما تطلع من حقل الاسم ، الرقم سيظهر لك 

 

والكود هو :

Private Sub full_name_AfterUpdate()

    If Me.NewRecord Then
        Me.Out_Number = Nz(DMax("[Out_Number]", "table1"), 0) + 1
    End If
    
End Sub

 

جعفر

258.DB.accdb.zip

[co2002co]

زاد فضلك واشكر لك سرعه تجاوبج

راح اجرب الحين ورد لك خبر

حلو بس يعطيني رقم متسلسل

انا ابي احط رقم محدد ومنه يبتدي يضيف رقم

[co2002co]

معليش بتعبك معي

ابي الرقم بمجرد فتح التموذج يطبع عالنموذج من دون الحاجه على كابته اي حرف

ثانيا

لا اريد الرقم ان يحفظ بالجدول الا بعد اكتمال كامل الفراغات الموجوده بالنموذج

[jjafferr]

لا يمكن عمل الاثنين معا!!

 

1.

اذا بمجرد فتح النموذج ، معناه ان النموذج يكون في حالة "ادخال بيانات" ، فعليه يمكن نقل الكود الى حدث "عند فتح النموذج" ،

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

 

2.

اما اذا ما تريد الرقم عند فتح النموذج ، فتقدر تخلّي الكود على حدث "بعد التحديث" لحقل "رقم الهوية" ، اي بعد ان يتم ادخال البيانات في آخر حقل في النموذج.

 

وفي كل الحالتين اعلاه ، البيانات اللي في النموذج ، لن تُحفظ في الجدول إلا بعد ان تنتقل من السجل الذي انت عليه ، سواء بالانتقال الى السجل آخر ، او بإغلاق النموذج.

 

عندما تُدخل بيانات او تُغيرها سواء في نموذج او جدول ، ترى العلامة التي في الدائرة الحمراء (قلم) ، والتي تعني ان السجل غير محفوظ بعد:

.

واذا اردت ان تلغي  جميع ما عملت في هذا السجل ، فعليك الضغط على الزر Esc (على لوحة المفاتيح) مرتين.

 

اما اذا انتقلت الى سجل آخر سواء في نموذج او جدول ، فسترى العلامة التي في الدائرة الحمراء (مثلث) ، والتي تعني ان السجل محفوظ:

.

 

وانت الآن عندك الكود ، فغيّر مكانه للمكان اللي يريحك 

 

3.

اما اذا اردت الاثنين ، فهذا معناه انه يجب ان يكون نموذجك غير مضمن ، ولا الحقول ، وانك بالكود تجلب البيانات للنموذج ، وبالكود تحفظ البيانات للجدول 

 

 

جعفر

تم تعديل فبراير 5, 2016 بواسطه jjafferr
إضافة صور توضيحية ، لتكملة الموضوع

[co2002co]

طيب كيف ابتدي برقم معين انا اختاره

مثلا 1001+1

[jjafferr]

في اول سجل تُدخله ، وبعد ان يعطيك البرنامج رقم جديد ، غيّره يدويا الى 1001 (هذا سيكون اول/اكبر رقم في الحقل/الجدول) ، وعليه سيعتمد الرقم التالي عليه ، اي 1001 + 1 

 

 

جعفر

[co2002co]

مساء الخير

حاولت اطبق الكود على كذا نموذج ولم تنجح

هل هناك اجراءات محدده لابد من تطبيقها

[jjafferr]

6 دقائق مضت, co2002co said:

حاولت اطبق الكود على كذا نموذج ولم تنجح

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

لازم تخبرني بالضبط شو اللي ما نجح ، وبعدما عملت شو ، وفي اي حدث ، واي نموذج!!

 

البارحة لما اشتغلت على قاعدة بياناتك ، ما قدرت ، لأن فيها مشكلة ، لهذا السبب عملت قاعدة جديدة!!

 

 

جعفر

[co2002co]

هذا الملف

Medical Report.rar

[jjafferr]

أخي الفاضل 

 

انا انزلت المرفق ، ولكني لما قلت

2 ساعات مضت, jjafferr said:

لازم تخبرني بالضبط شو اللي ما نجح ، وبعدما عملت شو ، وفي اي حدث ، واي نموذج!!

 

وللأسف الشديد مافي اي تفصيل او ايضاح منك ، فلهذا ، وللأسف ما اقدر اساعدك ، لأني ما اعرف وين المشكلة

 

 

جعفر

[co2002co]

مساء الخير

في مجال اكلمك عالايميل او عالخاص

[jjafferr]

اذا في شئ خاص ، تفضل اخي اكتب لي على الخاص 

 

جعفر

[co2002co]

احرجتني بجد

لو اعرف كيف ارسل لك عالخاص ما كان طلبت

اخيرا اكتشفت انا وين اخطأت

[jjafferr]

13 دقائق مضت, co2002co said:

لو اعرف كيف ارسل لك عالخاص ما كان طلبت

خلي الماوس على اسمي او صورتي ، بتطلع لك نافذة ، في اسفلها زر الرسائل الخاصه ، اضغط عليها ، واكمل الباقي 

[co2002co]

لما اضع الكود على فراغين يمشي حاله

 

اما اذا على فراغات كبيره لا يقبل

 

ممكن الكود لا يقبل الا اذا كان الفراغ ( رقم الصادر) مباشره 

[jjafferr]

وعليكم السلام 

 

ما فهمت قصدك 

ممكن تفصيل أكثر ، و مثال لوسمحت 

 

 

جعفر

[co2002co]

[jjafferr]

في 2/5/2016 at 13:18, jjafferr said:

البارحة لما اشتغلت على قاعدة بياناتك ، ما قدرت ، لأن فيها مشكلة ، لهذا السبب عملت قاعدة جديدة!!

 

هذه نفس المشكلة التي اخبرتك عنها عن برنامجك ، انظر ملاحظتي اعلاه !!

أفضل طريقة تعملها:

اعمل ملف اكسس جديد ، ثم استورد جميع الكائنات (جداول ، نماذج ، ...) من برنامجك القديم الذي فيه المشكلة ، وجرب البرنامج الجديد 

من هنا تستورد:

 

جعفر