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

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

قام بنشر

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

 

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

 

يتم تسجيل بيانات العميل في الـ 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:

 

 

جعفر

قام بنشر

حياك الله أخي ابوزياد  :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