ترقيم كمبيالات عند الانشاء

الأخ جوكاندو .. المحترم ،،

المطلوب هو الترقيم اعتبارا من رقم انت تحدده وبشرط ان يكون على عدد الكمبيالات ..

لقد اطلعت على مثالك ورأيت الكود الذي يقوم بهذه المهمة وتوجد محاولة منك ولكن تنقصها بعض التعديلات فقمنا بالتعديلات اللازمة

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

عموما سأشير الى الكود الذ تم التعديل عليه كما يلي:-

Dim no1 As Integer
Dim no2 As Integer
Dim i As Integer
no1 = Forms![f1]![NO]
no2 = Forms![f1]![رقم2]
DoCmd.GoToRecord , , acFirst
Me.التاريخ = DateAdd("m", i, Forms![f1]![Date])
Me.المبلغ = Forms![f1]![المبلغ]
Me.المبلغ_كتابه = Forms![f1]![المبلغ كتابه]
Me.رقم = Forms![f1]![رقم]
For i = no2 To (no1 + no2) - 1
Me.رقم2 = i
If i <> (no1 + no2) - 1 Then
DoCmd.GoToRecord , , acNext
End If
Next
'DoCmd.Requery

Dim no1 As Integer

Dim no2 As Integer

Dim i As Integer

no1 = Forms![f1]![NO]

no2 = Forms![f1]![رقم2]

For i = no2 To (no1 + no2) - 1

Me.رقم2 = i

If i <> (no1 + no2) - 1 Then

End If

باللون الأحمر هو الاضافة والاخضر تعديل

ومرفق مثالك بعد التعديل البسيط

أخوك مشكاة

kimpRecor_UP.rar

:clapping:

:clapping:

سلمت يمينك

و هو المطلوب اثباته ( هـ . طـ . ث)

الف شكر

اخـ الكريم ـــــى

فية مشكلة بسيطة البرنامج توقف عن اضافة التاريخ عند التنفيذ

يارب يكون لها حل

السلام عليكم ،،

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

للتذكار ..وهكذا ..

الظاهر ان احنا نسينا نرجع البنكرياس تبع برنامجك بعد العملية مكانه بس انا متأكد اني حاطهم في مكان أمين ..يعني إن شاء الله خير ..

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

نأتي الى برنامجنا نخلي ترتيب الاسطر كما يلي :-

Dim no1 As Integer
Dim no2 As Integer
Dim i As Integer
no1 = Forms![f1]![NO]
no2 = Forms![f1]![رقم2]
DoCmd.GoToRecord , , acFirst
For i = no2 To (no1 + no2) - 1
Me.رقم2 = i
Me.التاريخ = DateAdd("m", i, Forms![f1]![Date])
Me.المبلغ = Forms![f1]![المبلغ]
Me.المبلغ_كتابه = Forms![f1]![المبلغ كتابه]
Me.رقم = Forms![f1]![رقم]

If i <> (no1 + no2) - 1 Then
DoCmd.GoToRecord , , acNext
End If
Next
'DoCmd.Requery
End Sub

هذا وسأعمل على تعويضك بميزة اضافية نضعها بالبرنامج نخليها مفاجئة ... أوكي

ومرفق التعديل الثاني

أخوك الجراح مشكاة

kimpRecor_UP1.rar

يا سيدى الف شكر وجارى التحميل

المهم ان العميلة تتم على خير مش حتى لا نضحي با ى عضو من الاعضاء :rolleyes:

و الف شكر على ردك الكريم

:ty: :ty: :ty: :ty: :ty:

السلام عليكم

اشكر مشرفنا العزيز ايهاب عثمان .. على متابعة المواضيع فلك مني كل التحية والتقدير ،،

يا اخ كوكاندو وجدت مشكلة أخرى يمكن لم تكتشفها لحد الآن وهي في اضافة التاريخ بسبب تعريف (I) كرقم متسلسل وهو نفس الرقم الذي يقوم بالاضافة الى التاريخ

فمثلا اذا جعلت بداية الرقم 1001 يضيف ذلك الى التاريخ وهذا خطأ طبعا ..

لذلك تم تعديل على الدالة ليكون التاريخ بمعزل عن تسلسل الرقم فالتاريخ يضيف عدد اشهر اعتبارا من 1 الى عدد الكمبيالات..

بينما الرقم التسلسلي يبدأ من أي رقم تحدده مثل 125 الى عدد الكمبيالات...

وقد تم تعويضك باضافة ميزة تحويل المبلغ الرقمي الى كتابي مباشرة .. فلا تحتاج الى كتابة الف وثلاثمائة ريال فالكود يقوم نيابة عنك بكتابتها في المكان المخصص.

ملاحظه هامه : دالة تحويل المبلغ من المشرفة زهره قام بالتعديل عليها المشرف ايهاب عثمان.

لذلك اقتضى التنويه الهام

ومرفق التعديل الثالث

أخوك مشكاة

kimpRecor_UP2.rar

وشكر الله لك مجهوداتك معنا يا اخ مشكاة...

فتحنا بطن المريض مرة اخرى :lol:

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

لدي مداخلة بسيطة وهي

أن البرنامج يضع في جميع الكمبيالات المبلغ المدخل في خانة (المبلغ رقما).

سئالي هو لماذا لا يقوم البرنامج بتوزيع المبلغ على عدد الكمبيالات

مثلاً المبلغ هو 100.000 مائة ألف ريال موزع على 20 كمبيالات بالتساوي

إذا فإن المبلغ يقسم على 20 كمبيالة لكل كمبيالة مبلغ (5000) ريال

هذه هي الفكرة أرجو تطبيقها

ولكم تحياتي

السلام عليكم ،،

تحية طيبة يا أمير المحبة ،،

الفكرة منطقية جدا .. وتستحق الاضافة

وطريقتها بسيطه ..ولكن ننتظر صاحب الموضوع إن كان يرغب بذلك ..