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

Clint Counter


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

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

 

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

 

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

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

 

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

 

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

 

مع خالص الشكر

 

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

ExchangeDb.rar

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

اخي الكريم

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

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

1- التاريخ

2- الرقم

 

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

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

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

 

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

 

مثال:

 

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

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

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

 

 

مع خالص الشكر

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

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

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

 

لكن ،

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

 

 

جعفر

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

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

 

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

 

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

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

 

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

 

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

 

مع خالص الشكر

 

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

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

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

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

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

 

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

post-142414-0-47341700-1428515710_thumb.

 

 

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

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

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

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

 

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

 

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

 

الكود اصبح:

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

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information