Clint Counter

[ابوزيــاد]

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

 

انا بصدد عمل برنامج صرف للعملاء وهو كتالي:

 

يتم تسجيل بيانات العميل في الـ Table : clintID

ثم يتم ادخال طلباته من العمله في الـ Table: ClientExchange

 

ارغب منكم مساعدتي في عمل عداد يومي (Clint Counter) بحيث:

 

يتم ربط العدد بالتاريخ اليومي بحيث في كل يوم جديد وعند تسجيل طلبات اول عميل من العمله يتم  اعطائه رقم 1 في الحقل (ٍSeqNumber) في الجدول (ClientExchange) والعميل الثاني يتم اعطائه رقم 2 وهكذا .

 

مع خالص الشكر

 

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

ExchangeDb.rar

[jjafferr]

وعليكم السلام أخي

 

سهلة 

SeqNumber = Nz(DMax("[SeqNumber]", "ClientExchange", "[DateExchange]=#" & Date & "#")) + 1

جعفر

[ابوزيــاد]

اخي الكريم

اشكرك على تعاونك

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

1- التاريخ

2- الرقم

 

فاعند اضافة عمليه صرف يتم :

اولا فحص تاريخ اليوم اذا كان غير موجود يتم اضافته

ثم يوضع في حقل الرقم 1 ويزيد الرقم في كل عمليه صرف

 

اما اذا كان موجود التاريخ يتم اضافة الرقم الى اخر رقم موجود

 

مثال:

 

حقل التاريخ                   حقل الرقم

2015/06/18                    1          يضاف رقم للمووجود في كل عملية

2015/06/19                     1         يضاف رقم للمووجود في كل عملية

 

 

مع خالص الشكر

[jjafferr]

اعتقد الجدول بوضعه الحالي أفضل ، حيث يكلفك حقل واحد وهو SeqNumber ،

بينما لو عملت جدول ثاني ، فبالاضافة الى انه يكلفك جدول آخر ، يجب ان تعمل علاقة بين الجدولين ، وفي كل عملية تريد فيها الترقيم ، تضطر الى استعلام يكون فيه الجدولين مرتبطين بعلاقة 

 

لكن ،

الشخص الافضل في اختيار الطريقة الصحيحة هو انت ، وبما تعرفه عن برنامجك حاليا على ما هو عليه ، وحسب خططك المستقبليه له 

 

 

جعفر

[ابوزيــاد]

اخي الكريم

امل الاطلاع على الملف المرفق

مع خالص الشكر والتقدير

sequence numbers.zip

[jjafferr]

حياك الله أخي ابوزياد 

 

شو المطلوب ، شو اللي لازم انظر فيه ، وش المطلوب بعد الاطلاع؟

 

 

جعفر

[ابو جودي]

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

 

انا بصدد عمل برنامج صرف للعملاء وهو كتالي:

 

يتم تسجيل بيانات العميل في الـ Table : clintID

ثم يتم ادخال طلباته من العمله في الـ Table: ClientExchange

 

ارغب منكم مساعدتي في عمل عداد يومي (Clint Counter) بحيث:

 

يتم ربط العدد بالتاريخ اليومي بحيث في كل يوم جديد وعند تسجيل طلبات اول عميل من العمله يتم  اعطائه رقم 1 في الحقل (ٍSeqNumber) في الجدول (ClientExchange) والعميل الثاني يتم اعطائه رقم 2 وهكذا .

 

مع خالص الشكر

 

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

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

وجود النماذج حيسهل علينا مساعدة حضرتك

[ابوزيــاد]

جزاك الله خير

المطلوب تعديل الكود المذكور في ردك رقم 2 بحيث يمكن اضافة رقم الشباك له

الله يرفع قدرك

[ابوزيــاد]

مرفق لكم البرنامج

Exchange.zip

[jjafferr]

السلام عليكم اخي ابوزياد 

 

انت طلبت التنسيق التالي:

 

 

على هذا الاساس ، يكون الكود في برنامجك كالتالي:

Else
             a = Nz(DMax("[SeqNumber]", "ClientExchange", "[DateExchange]=#" & Date & "#")) + 1
             Me![SeqNumber] = Format(Me.WindowID, "00") & "-" & Format(a, "0000")
              ' Me![OUT-NUM] = Me![OUT-NUM] + 1
            End If

جعفر

 

 

39.Exchange.mdb.zip

[ابوزيــاد]

اشكرك اخي الكريم على مساعدتك ولكن لاحظت ان الرقم لم يتسلسل:

[ابوزيــاد]

ما رايك في الملف المرفق

sequential_nbr3.zip

[jjafferr]

عفوا على هذا الخطأ 

 

الحقل كان بصيغة رقم ، وجربت الكود عليه ، لكني غيرته الى نص ولم اجرب الكود 

 

جربه الان لوسمحت 

 

الكود اصبح:

Else
             a = Nz(DMax("Val(Right([SeqNumber], 4))", "ClientExchange", "[DateExchange]=#" & Date & "#")) + 1
             Me![SeqNumber] = Format(Me.WindowID, "00") & "-" & Format(a, "0000")
              ' Me![OUT-NUM] = Me![OUT-NUM] + 1
            End If

جعفر

39.Exchange.mdb.zip

[ابوزيــاد]

هذا التنسيق المطلوب:

 

 

اشكرك على تعاونك جعله الله في ميزان حسناتك