mrnooo2000

الموضوع بسيط جدا اخى الكريم لاحظ التعديل بالاستعلام Database5.zip

لتنفيذ ذلك ستحتاج الى تقسيم المربع الذى تعرض به الوقت الى 3 أجزاء واحد للساعات و واحد للدقائق و واحد للثوانى

بارك الله بكم جميعا

للضغط بصيغة rar لابد من استخدام برنامج winrar اما اذا كنت تحتاج الى الضغط بدون هذا البرنامج يمكنك ان تستخدم صيغة zip اذا كان هذا يناسبك سارفق لك كود لذلك

هذه نسخه 2007 برنامج اجازات التكليف بالاعياد الأصل.7z

بعد اذن الاخ ابو محمد تفضل اخى ما طلبت تم اضافة حقل بجدول المستخدمين تم اضافة الكود الى الكلاس Cuser تم تعديل كود اضافة/تعديل بيانات مستخدم تم اضافة كود الى نموذج الموظفين لعرض الاسم و العنوان test.7z

الحل الاسهل اخى الكربم ان تختفظ بسعر الرحلة فى جدول الفواتبر طالما ان السغر متغير و الحل اخر هو ان يكون هناك اكثر من سعر للرحلة و تربط الرحلة بكود السعر

المرفق يعطيك كافة المعلومات من خلال الرقم القومى WindowsApplication1.rar

انت تطلب المستحيل اخى الكريم اذ لايمكن تكرار نفس القيمة فى حقل المفتاح الاساسى و اختلاف التنسيق لا يغير القيمه و لكن ما يتغير هو شكل ظهرها فقط عموما لا اعرف سبب حاجتك للجدول يمكنك الاستعاضة عنه باستعلام توحيد جرب هذا الاستعلام SELECT GGTbl.AID as billid, GGTbl…

لو لاحظت اخى الكريم فى نموذج فاتورة البيع تظهر لك قائمة بالكميات المتاحة من المنتج و سعر شرائها يجب عليك ادخال الصنف حسب سعر الشراء يعنى اذا اكان السعر مختلف تدخله كانه صف جديد

لم أفهم قصدك بشكل كامل و هل يتم ادخال التاريخ يدويا ام تلقائيا من الجهاز عموما جرب المرفق سيم اعادة الترقيم فى كل يوم جديد حسب تاريخ اليوم الذى يتم فيه التسجيل بناءا على تاريخ الويندوز sequence.rar

تفضل أخى تم عمل بعض التعديلات البسيطه على النموذج حتى تتم الاضافة و ان كنت غير مقنع بالفكرة لانك ستواجه مشكلة تكرار الرقم بعد 200 فاتوره لكل فرع الافضل ان يكون المفتاح الاساسى عبارة عن حقلين معا رقم الفاتورة و رقم الفرع او ان يكون رقم الفاتورة بجانبه حرف او رق…

شوف هذا المرفق Prog_num.rar

ابحث بالمنتدى عن اخفاء خلفية الاكسس

فى نفس مكان الكود الاول Private Sub UpdateEndData() Dim Dcode As Integer Dcode = Switch([Cridi_ID] = 1, 10, [Cridi_ID] = 2, 10, [Cridi_ID] = 3, 10, [Cridi_ID] = 4, 8, [Cridi_ID] = 5, 2) DiscountEndDate = DateAdd("m", Dcode, [DiscountStartDate] - 1) DiscountPer…

المشكله لديك فى الامان خفض الامان لديك حتى تمكن وحدات الماكرو من العمل

تم تعديل الكود لوجود خطأ به

الموضوع بهذا الشكل يختلف تماما لان الشرط يكون على نوع القرض و ليس المبلغ كما وضعته فى مشاركتك جرب هذا الكود Dim Dcode As Integer Dcode = Switch([Cridi_ID] = 1, 10, [Cridi_ID] = 2, 10, [Cridi_ID] = 3, 10, [Cridi_ID] = 4, 8, [Cridi_ID] = 5, 2) DiscountEndDate = …

لسبب بسيط و هو ان قيمة القرض 5 هى نفس قيمة القرض 1 كنت أعتقد أنك أخطأت فى صفر فوضعته 100000 و لكن واضح انه غير ذلك

أنصحك بقراءة هذين الموضوعين فستستفيد منهما كثيرا /index.php/topic/78439-%D9%85%D8%B4%D8%A7%D8%B1%D9%83%D8%A9-%D9%82%D9%88%D8%A7%D8%B9%D8%AF-%D8%A7%D9%84%D8%A8%D9%8A%D8%A7%D9%86%D8%A7%D8%AA-%D8%A7%D9%83%D8%B3%D9%8A%D8%B3-%D8%B9%D9%84%D9%89-%D8%A7%D9%84%D8%B4%D8…