اذهب الي المحتوي
أوفيسنا

ترقيم تلقائي بحسب نوع السند


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

السلام عليكم

لدي تكست بوكس  الاسم الافتراضي لها "سند صرف"  واسمهما types ويتم تخزينها  في  جدول bills  وحقل اسم السند في الجدول type
اريد  ترقيم تلقائي في الفورم  بحقل  no استنادا" على اسم سند الصرف  عند فتح النموذج .. يبدأ من رقم 1  وهناك نموذج مماثل  " سند قبض"

عملت دالة dmax في حدث بعد  التحديث للتكست بوكس  ولم  ينجح ..............
Private Sub types_AfterUpdate()
If ([MeTypes]) = "سند صرف" Then
    Me![no] = Nz(DMax("[no]", "[bills]", "type='سند صرف'"), 0) + 1
   End If
End Sub

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

10 ساعات مضت, رعد داود said:

السلام عليكم
تسلم  أخي  اليك  المرفق ترقيم.rar

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

 مجرد محاوله بعد اذن استاذنا الغالي@sandanet

اخي الكريم رعد استخدم هذا في حدث الحالي

Me![no] = Nz(DMax("[no]", "[bills]", "type='سند صرف'"), 0) + 1
 

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

السلام عليكم
شكرا" لكم  اخي  ابو ز اهر
لكن ماذا تقصد في حدث  الحالي  ... انا استخدم النسخة الانكليزية 

السلام  عليكم

احسنت  اخي  ابا  زاهر   تم  ... حدث  الفورم 
Private Sub Form_Current()
Me![no] = Nz(DMax("[no]", "[bills]", "type="سند صرف"), 0) + 1
End Sub

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

منذ ساعه, رعد داود said:

السلام عليكم
شكرا" لكم  اخي  ابو ز اهر
لكن ماذا تقصد في حدث  الحالي  ... انا استخدم النسخة الانكليزية 

السلام  عليكم

احسنت  اخي  ابا  زاهر   تم  ... حدث  الفورم 
Private Sub Form_Current()
Me![no] = Nz(DMax("[no]", "[bills]", "type="سند صرف"), 0) + 1
End Sub

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

تحياتي اليك

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

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.

×
×
  • اضف...

Important Information