عندي حقل تاريخ وحق رقم السند اريد الترقيم يستخلص من التاريخ

[جابر ناصر]

عندي نموذج فيه المبلغ ورقم السند وتاريخ السند ومربع اختيار 

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

مثال رقم السند عندي صفر اريد تكوين له رقم انقر على مربع الاختيار عندما ارغب في الترقيم فقط يقوم باستخلاص الرقم من التاريخ السند نفسه مثلا تاريخ السند 15-3-2018

يكتب الرقم 20183151  والثاني 20183152 .......الخ او من الشهر واليوم فقط مثل 3151 والثاني 3152.....الخ

بحيث يبداء من جديد عند انتهاء الشهر مثل 15-4-2018 

يكتب الرقم 20184151 والثاني 20184152.......الخ

تم تعديل أبريل 1, 2018 بواسطه جابر ناصر

[جابر ناصر]

هذا نموذج مرفق من تصميم ام عهود المطلوب موضح في نموذج اسمه مثال

za-sader-UP2.rar

[جابر ناصر]

رفع

[أبو آدم]

أخي جابر

الطلب قيد التنفيذ مبدئيا ...

و لكن هناك اشكال في مسألة الرغبة ؟؟

ارى ان نترك الامر محوسبا ضمن الكود ، اما اذا تركنا الخيار للمستخدم بادخال ارقام السندات و حصلت فجوة في الارقام 1 و 2 و 3 و 5 و 8 و 9 فما مصير الارقام الناقصة ؟؟؟

او اذا حدث خطأ في استخدام نمط الكود فبدلا من 1804005 أدخل 184005 ؟؟؟

ما رأيك ... ؟؟؟

[أبو آدم]

أخي العزيز

على كل حال اليك اقتراحي

sDate حقل التاريخ ، Text0 حقل إظهار الكود للسنة و الشهر ، Text6 حقل رقم السند الحالي حسب التاريخ المدخل في الحقل sDate

Private Sub tDate_Exit(Cancel As Integer)

'By Nart Lebzo For www.officena.net
'04/04/2018

Dim sCount, sMin, sMax, sGap

Me.Text0 = Format(Left(tDate, 10), "yymm")
sCount = DCount("[strNum]", "tblTest", "[strNum] like '" & Me.Text0 & "*'")

' Strings
sMin = DMin("[strNum]", "tblTest", "[strNum] like '" & Me.Text0 & "*'")
sMax = DMax("[strNum]", "tblTest", "[strNum] like '" & Me.Text0 & "*'")
sGap = Right(sMax, 3) - Right(sMin, 3) + 1

Me.Text6 = sMax + 1

If sCount = 0 Then
Me.Text6 = Me.Text0 & "001"
End If

If sGap > sCount Then
MsgBox " There is a gap in the sequence of bond numbers " & vbNewLine & " -- " _
& vbNewLine & "هناك ثغرة في تسلسل أرقام السندات ", , " Attention -- تنبيه "

End If
End Sub

و الله من وراء القصد ...

[أبو آدم]

إخوتي الفضلاء

التطبيق المرفق هو لما تفضل به الأخ العزيز حيث يتم ترقيم السندات حسب رقم تسلسلي يتم توليده من توليفة السنة و الشهر و رقم تسلسلي ( من ثلاث خانات 000 )  ، مأخوذة من التاريخ الذي يتم ادخاله ( تاريخ السند ) ، و حيث يتم مراعاة ما تم تسجيله من تسلسلات لذلك الشهر من السنة و صرف رقم جديد ، أو صرف رقم 001 للشهر و السنة .

عند و جود اي ثغرة في التسلسل يتم التنبيه برسالة ، ويمكن بعدها اضافة كود لتنفيذ اي اجراء لازم

هنا تركت ثغرة في تسلسلات شهر 4 . 2018 لتفعيل التدقيق و الرسالة

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

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

و الله من وراء القصد ....

NA_Sequence of Bond Numbers.accdb

[جابر ناصر]

  استاذي الفاضل واعتذر لم افتح النت من يومها بسبب ضروف صعبه جدا فالف شكر وجزاك الله خير الجزاء

تم تعديل مايو 26, 2018 بواسطه جابر ناصر

[جابر ناصر]

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

ترقيم معتمد على ليوم والشهر والسنة من نقر زر.rar

تم تعديل يونيو 6, 2018 بواسطه جابر ناصر

[جابر ناصر]

لرفع

[جابر ناصر]

لرفع

[طاهر الوليدي]

من يحلها انا اريد نفسها هدا

[جابر ناصر]

لرفع