تغيير في كود رقم الفاتورة

ممكن تضع مثالك ونشوف الكود المناسب له

إخواني بارك الله فيكم اريد التعديل على هذا الكود وهو خاص برقم الفاتورة على هذا الشكل 2012/001

ولكن لاحضت انه لا يتغير بالسنة مثلا لسنة 2013 يبقى 2012/001 واريده أن يتغير بتغير السنة لكي يصبح في سنة 2013 هكذا 2013/001 وسنة 2014 هكذا 2014/001 وهكذا

جزاكم الله خيرا وبارك الله في جهودكم

تفضل طلبك

Database1.rar

إن أذنتم لي ..

الشفرة المرفقة بسؤالك يا أبا أميمة سليم.!!

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

vLast = DMax("[ID12]", "Aut 0", "Left([ID12],4) =" & Format(Date, "yyyy"))

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

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

أخي لقد جربت ذالك الكود ولم يعمل معي بقي على حاله يعني بمجرد أن أغير السنة إلى 2013 يعطيني 001/2013 ولا ينبغي له أن يبقى على 001/2012 أرجو أني قد أوصلت لكم الفكرة

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

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

التكافل.rar

القحم كتب:

إن أذنتم لي ..

الشفرة المرفقة بسؤالك يا أبا أميمة سليم.!!

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

vLast = DMax("[ID12]", "Aut 0", "Left([ID12],4) =" & Format(Date, "yyyy"))

abuomayma كتب:

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

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

أخي لقد جربت ذالك الكود ولم يعمل معي بقي على حاله يعني بمجرد أن أغير السنة إلى 2013 يعطيني 001/2013 ولا ينبغي له أن يبقى على 001/2012 أرجو أني قد أوصلت لكم الفكرة

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

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

التكافل.rar

اخي الفاضل : القحم

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

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

Dim vLast As Variant
Dim iNext As Integer
vLast = DMax("[ID12]", "Aut 0", "[ID12] LIKE '" & Format(Date, "yyyy\*\'"))
If IsNull(vLast) Then
iNext = 1
Else
iNext = Val(Mid(vLast, 7, 4)) + 1
End If
Me![ID12] = Format(Date, "yyyy") & "/" & Format(iNext, "000")

حيث يعتمد على تاريخ الجهاز بهذه الطريقة

Format(Date, "yyyy")

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

عموما الكود صحيح 1000000000000000% ولا يحتاج الى اضافات او تعديلات بل يستخدم كما هو لأن اي تعديل فيه سيسبب خطأ في الكود لأنني انا من كتبه له في برنامجه وعارفه كل حرف في الكود لماذا وضعته .

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

الآن ارجع الى برنامجك او المثال الذي وضعته لنموذج 2012 لأن الكود به موجود وقبل فتح قاعدة البيانات قم بتغيير سنة تاريخ الجهاز الموجود عند الساعة اسفل الشاشة وغير السنة الى مثلا الى 01/01/2013 ثم اختر موافق

الآن افتح قاعدة البيانات التي بها الترقيم السنوي حسب الكود الذي وضعته لك وستجده يعمل بكل سهوله ولا يحتاج الى تعديل او اي اضافه .

بالنسبة للنموذج 2013 او بقية النماذج حتى 2025 لا يوجد بها كود الترقيم السنوي وعليك نسخ ولصق كود الترقيم السنوي في كل النماذج مع تغيير ID12 الى السنة المطلوبة حسب النموذج سواء 2013 او غيره من النماذج وايضا لا بد من وضع الإستعلام او الجدول الخاص بتلك السنة كما هو الحال مع نموذج سنة 2012

لماذا تم الإعتماد على تاريخ الجهاز ؟؟؟

لأنك في كل يوم من ايام السنة تقوم بعمل ايصال والكود يقوم بعمل الترقيم نيابة عنك خلال السنة فإن دخلت السنة الجديده سواء 2013 او 2014 او 2025 فالكود سيأخذ تاريخ السنة من الجهاز ولي لك علاقة انت بهذا الموضوع فالكود يحدث نفسه بنفسة بناء على سنة الجهاز .

بالتوفيق

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

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

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

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

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

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

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

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

أختي زهرة الله يبارك فيك ويحفظك من كل سوء ويجعل كل أعمالك في موازين حسناتك

أريد استفسار فقط عن رقم الفاتورة أريده أن يصل إلى 2012/999 ولكن بهذا الكود يصل فقط إلى 2012/100 ويعود الى رقم 1 من جديد أي 2012/001 هل من حل ليصل الى عدد 2012/999 ثم بعد ذالك يعود الى رقم 2012/001

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

Private Sub تدقيق12_AfterUpdate()
Dim vLast As Variant
Dim iNext As Integer
vLast = DMax("[ID12]", "Aut 0", "[ID12] LIKE '" & Format(Date, "yyyy\*\'"))
If IsNull(vLast) Then
iNext = 1
Else
iNext = Val(Mid(vLast, 7, 4)) + 1
End If
Me![ID12] = Format(Date, "yyyy") & "/" & Format(iNext, "000")

Me.Refresh
End Sub

abuomayma كتب:

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

أختي زهرة الله يبارك فيك ويحفظك من كل سوء ويجعل كل أعمالك في موازين حسناتك

أريد استفسار فقط عن رقم الفاتورة أريده أن يصل إلى 2012/999 ولكن بهذا الكود يصل فقط إلى 2012/100 ويعود الى رقم 1 من جديد أي 2012/001 هل من حل ليصل الى عدد 2012/999 ثم بعد ذالك يعود الى رقم 2012/001

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

Private Sub تدقيق12_AfterUpdate()
Dim vLast As Variant
Dim iNext As Integer
vLast = DMax("[ID12]", "Aut 0", "[ID12] LIKE '" & Format(Date, "yyyy\*\'"))
If IsNull(vLast) Then
iNext = 1
Else
iNext = Val(Mid(vLast, 7, 4)) + 1
End If
Me![ID12] = Format(Date, "yyyy") & "/" & Format(iNext, "000")

Me.Refresh
End Sub

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

لجعل حقل الترقيم السنوي يقبل حتى الرقم 1000 في السنة الواحدة اتبع التالي

استبدل هذا السطر

Me![ID12] = Format(Date, "yyyy") & "/" & Format(iNext, "000")

بهذا السطر

Me![ID12] = Format(Date, "yyyy") & "/" & Format(iNext, "0000")

الفرق هو زيادة صفر في تنسيق الرقم فبدلا من انه كان ( 000 ) اصبح ( 0000 )

سيصبح الترقيم لديك بهذا الشكل لسنة 2012

2012/0001

2012/0002

2012/0003

...

...

حتى

2012/1000

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

بالتوفيق

أختي الفاضلة جزاك الله خيرا على تجاوبك وصبرك علينا

لقد أضفت ذالك الصفر وأصبحوا أربعة أصفار ولكن حينما دخلت على البرنامج وأردت أن أضيف فاتورة أخرى يقف في 2012/0099

وأضفت فاتورة أخرى وأعطاني نفس الرقم أي 2012/0099 يا ترى ما هو السبب في ذالك أرشديني إليه بارك الله فيك

abuomayma كتب:

أختي الفاضلة جزاك الله خيرا على تجاوبك وصبرك علينا

لقد أضفت ذالك الصفر وأصبحوا أربعة أصفار ولكن حينما دخلت على البرنامج وأردت أن أضيف فاتورة أخرى يقف في 2012/0099

وأضفت فاتورة أخرى وأعطاني نفس الرقم أي 2012/0099 يا ترى ما هو السبب في ذالك أرشديني إليه بارك الله فيك

لا إله إلا الله محمد رسول الله

اخي الفاضل

كيف ظهر لك الترقيم بهذا الشكل

المفروض يظهر لك الترقيم كما في هذا المثال من 0001 - 1000

الكود الذي في المثال هو نفسه الذي لديك

حاول تحذف السجلات التي في الجدول الموجود في المثال ثم ادخل سجلات جديده من اجل ان تتأكد بارك الله بك ان الترقيم يبدأ من 0001 - 1000 ويتوقف عند الرقم 1000

او قم بمقارنة المود الذي في المثال بما هو موجود لديك قد يكون انك قمت بالتعديل في شيء ما في الأكواد

اذا كان لديك اي مشكلة فلا علم لي بها

za-AutoNumberY.rar

بالتوفيق

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

أختي الفاضلة زهرة الله يحفظك ويوفقك لما فيه خير لك في دينك ودنياك ويرزقك الفردوس الأعلى

ونتمنى من الله أن ييسر لك أمورك كلها ويبارك لك في أولادك وأهلك

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

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

abuomayma كتب:

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

اخي الفاضل

راجع هذه المشاركة التي تم فيها الشرح التفصيلي بالخطوات والصور مع مثال لإخفاء شاشة الأكسيس

/index.php?showtopic=124596

بالتوفيق

بارك الله فيك أختي الكريمة

لقد جربت كل ما أرشدتيني اليه خطوة خطوة ولكن لم أفلح في ذالك أتمنى ان اجد حلا آخر بارك الله فيك

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

أختي زهرة الله يبارك في علمك ويحفظك من كل سوء

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

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

abuomayma كتب:

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

أختي زهرة الله يبارك في علمك ويحفظك من كل سوء

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

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

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

اختر خصائص النموذج او التقرير ثم اختر التبويب الكل وضع التالي

منبثق : نعم

شكلي او مشروط : نعم

نمط الحدود : مربع حوار

بدون عمل هذه الخطوة لن تحصل على اخفاء شاشة الأكسيس

بالتوفيق

جزاك الله خيرا وبارك الله فيك وفي أهلك

لقد قمت بذالك بالفعل على كل التقارير والنماذج ولكن بقي كما هو كأن شيئا لم يقع

أظن أن هذا البرنامج سوف يبقى على طول الوقت معاق ودائما في طلب المزيد من الإضافات فالله المستعان

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