اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

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

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

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

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

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

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

أخي جابر

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

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

ارى ان نترك الامر محوسبا ضمن الكود ، اما اذا تركنا الخيار للمستخدم بادخال ارقام السندات و حصلت فجوة في الارقام 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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

NA_Sequence of Bond Numbers.accdb

  • Like 1
رابط هذا التعليق
شارك

  • 1 month later...

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

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

  • 2 weeks later...

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

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

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

  • 1 month later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information