ابوزيــاد قام بنشر أبريل 7, 2015 مشاركة قام بنشر أبريل 7, 2015 السلام عليكم ورحمه الله انا بصدد عمل برنامج صرف للعملاء وهو كتالي: يتم تسجيل بيانات العميل في الـ Table : clintID ثم يتم ادخال طلباته من العمله في الـ Table: ClientExchange ارغب منكم مساعدتي في عمل عداد يومي (Clint Counter) بحيث: يتم ربط العدد بالتاريخ اليومي بحيث في كل يوم جديد وعند تسجيل طلبات اول عميل من العمله يتم اعطائه رقم 1 في الحقل (ٍSeqNumber) في الجدول (ClientExchange) والعميل الثاني يتم اعطائه رقم 2 وهكذا . مع خالص الشكر مرفق لكم قاعدة البيانات ExchangeDb.rar رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر أبريل 7, 2015 مشاركة قام بنشر أبريل 7, 2015 وعليكم السلام أخي سهلة SeqNumber = Nz(DMax("[SeqNumber]", "ClientExchange", "[DateExchange]=#" & Date & "#")) + 1 جعفر 1 رابط هذا التعليق شارك More sharing options...
ابوزيــاد قام بنشر أبريل 7, 2015 الكاتب مشاركة قام بنشر أبريل 7, 2015 اخي الكريم اشكرك على تعاونك ماهو رايك في فكرة انشاء جدول مستقل للعد بحيث يحتوي على حقلين 1- التاريخ 2- الرقم فاعند اضافة عمليه صرف يتم : اولا فحص تاريخ اليوم اذا كان غير موجود يتم اضافته ثم يوضع في حقل الرقم 1 ويزيد الرقم في كل عمليه صرف اما اذا كان موجود التاريخ يتم اضافة الرقم الى اخر رقم موجود مثال: حقل التاريخ حقل الرقم 2015/06/18 1 يضاف رقم للمووجود في كل عملية 2015/06/19 1 يضاف رقم للمووجود في كل عملية مع خالص الشكر رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر أبريل 7, 2015 مشاركة قام بنشر أبريل 7, 2015 اعتقد الجدول بوضعه الحالي أفضل ، حيث يكلفك حقل واحد وهو SeqNumber ، بينما لو عملت جدول ثاني ، فبالاضافة الى انه يكلفك جدول آخر ، يجب ان تعمل علاقة بين الجدولين ، وفي كل عملية تريد فيها الترقيم ، تضطر الى استعلام يكون فيه الجدولين مرتبطين بعلاقة لكن ، الشخص الافضل في اختيار الطريقة الصحيحة هو انت ، وبما تعرفه عن برنامجك حاليا على ما هو عليه ، وحسب خططك المستقبليه له جعفر رابط هذا التعليق شارك More sharing options...
ابوزيــاد قام بنشر أبريل 8, 2015 الكاتب مشاركة قام بنشر أبريل 8, 2015 اخي الكريم امل الاطلاع على الملف المرفق مع خالص الشكر والتقدير sequence numbers.zip رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر أبريل 8, 2015 مشاركة قام بنشر أبريل 8, 2015 حياك الله أخي ابوزياد شو المطلوب ، شو اللي لازم انظر فيه ، وش المطلوب بعد الاطلاع؟ جعفر رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر أبريل 8, 2015 مشاركة قام بنشر أبريل 8, 2015 السلام عليكم ورحمه الله انا بصدد عمل برنامج صرف للعملاء وهو كتالي: يتم تسجيل بيانات العميل في الـ Table : clintID ثم يتم ادخال طلباته من العمله في الـ Table: ClientExchange ارغب منكم مساعدتي في عمل عداد يومي (Clint Counter) بحيث: يتم ربط العدد بالتاريخ اليومي بحيث في كل يوم جديد وعند تسجيل طلبات اول عميل من العمله يتم اعطائه رقم 1 في الحقل (ٍSeqNumber) في الجدول (ClientExchange) والعميل الثاني يتم اعطائه رقم 2 وهكذا . مع خالص الشكر مرفق لكم قاعدة البيانات ممكن تضيف مرفق يحتوى على نماذج القاعده وجود النماذج حيسهل علينا مساعدة حضرتك رابط هذا التعليق شارك More sharing options...
ابوزيــاد قام بنشر أبريل 8, 2015 الكاتب مشاركة قام بنشر أبريل 8, 2015 جزاك الله خير المطلوب تعديل الكود المذكور في ردك رقم 2 بحيث يمكن اضافة رقم الشباك له الله يرفع قدرك رابط هذا التعليق شارك More sharing options...
ابوزيــاد قام بنشر أبريل 8, 2015 الكاتب مشاركة قام بنشر أبريل 8, 2015 مرفق لكم البرنامج Exchange.zip رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر أبريل 8, 2015 مشاركة قام بنشر أبريل 8, 2015 السلام عليكم اخي ابوزياد انت طلبت التنسيق التالي: على هذا الاساس ، يكون الكود في برنامجك كالتالي: 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 رابط هذا التعليق شارك More sharing options...
ابوزيــاد قام بنشر أبريل 8, 2015 الكاتب مشاركة قام بنشر أبريل 8, 2015 اشكرك اخي الكريم على مساعدتك ولكن لاحظت ان الرقم لم يتسلسل: رابط هذا التعليق شارك More sharing options...
ابوزيــاد قام بنشر أبريل 8, 2015 الكاتب مشاركة قام بنشر أبريل 8, 2015 ما رايك في الملف المرفق sequential_nbr3.zip رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر أبريل 8, 2015 مشاركة قام بنشر أبريل 8, 2015 عفوا على هذا الخطأ الحقل كان بصيغة رقم ، وجربت الكود عليه ، لكني غيرته الى نص ولم اجرب الكود جربه الان لوسمحت الكود اصبح: 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 رابط هذا التعليق شارك More sharing options...
ابوزيــاد قام بنشر أبريل 8, 2015 الكاتب مشاركة قام بنشر أبريل 8, 2015 هذا التنسيق المطلوب: اشكرك على تعاونك جعله الله في ميزان حسناتك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان