شرح كود طريقة ترقيم تلقائي فواتير

[zubair1sz]

السلام عليكم

Dim xlast, xnext As Integer
Dim prtye, prttxt As Integer
xlast = DMax("fatoraid", "tblfatora", "left(fatoraid, 2) = myfatoratype()")
prtyr = Left(xlast, 2)
If IsNull(xlast) Then
xnext = 1
prtyr = myfatoraType()
Else
xnext = Val(Mid(xlast, 3, 5)) + 1
End If
Me.FatoraId = prtyr & Format(xnext, "00000")

كيف افهم

 

تم تعديل أكتوبر 28, 2020 بواسطه zubair1sz

[د.كاف يار]

xlast = DMax("fatoraid", "tblfatora", "left(fatoraid, 2) = myfatoratype()")

انت بتستدعي اكبر رقم في قاعدة البيانات 

و ثم تقوم بإضافة رقم +1 الى المجموع بعد تقسيم الرقم 

xnext = Val(Mid(xlast, 3, 5)) + 1

 

و في الأخير بتضبط تنسيق الأرقام

Me.FatoraId = prtyr & Format(xnext, "00000")

 

لكن يبقى موضوعك مبهم لم تذكر ما ذا تريد

[المهاجر ابو معاذ]

جرب الكود ده فى فى القيمة الافتراضية كما بالصورة

هل هذا ماتريد ؟

Nz(DMax("[inv_no]";"[fatora]"))+1=

بمعنى ان inv_no

يزيد برقم من نموذج fatora

fatora هى فى الصوره ( فاتورة البيع ) وتم كتابتها fatora لصحة الكود

 

تم تعديل أكتوبر 29, 2020 بواسطه المهاجر ابو معاذ