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

ابوخليل

أوفيسنا
  • Posts

    13520
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    283

كل منشورات العضو ابوخليل

  1. لا حظ ان ما تفضلوا به يتم ضمن نموذج واحد وفكرتي هي تخصيص نموذج لكل نوع
  2. ابوعبدالله .. ابوجودي شكرا لكما لإثراء الموضوع .. جزيتم خيرا انا مع تخصيص نموذج للسري فقط .. يكون المعيار في مصدر بياناته اظهار السري فقط
  3. الموضوع مكرر فضلا تابع مع موضوعك السابق يغلق،،،
  4. السلام عليكم الافضل لك ان تعمل نموذجا خاصا لعرض السجلات السرية ، ويكون الدخول اليه برقم سري وملاحظة صغيرة : حاول ان تكون البيانات في الجدول عبارة عن ارقام سواء كان نوع الحقل رقمي او نصي مثلا : سري وغير سري يكون صفر وواحد يمكنك ترجمة هذه الارقام من خلال النماذج والتقارير عندما تتقدم في البرمجة سيتضح لك فائدة ذلك
  5. تفضل جمع مدد الخدمة بالنموذج2.rar
  6. تفضل حسب طلبك Dim rs1, rs2, rs3, rs4 As Integer rs1 = (Me.YF * 360) + (Me.MF * 30) + Me.DF + (Me.YN * 360) + (Me.MN * 30) + Me.DN rs2 = (Me.yk * 360) + (Me.mk * 30) + Me.dk rs3 = rs1 - rs2 Me.TY = rs3 \ 360 Me.TD = rs3 Mod 30 rs4 = rs3 Mod 360 Me.TM = (rs4 - Me.TD) / 30 جمع الخدمة بالنموذج.rar
  7. يمكنك البحث مباشرة من الجدول اذا استخدمت الكود المناسب مثل ما تفضل به اخونا ناقل
  8. عليكم السلام التاريخ والوقت في حقل واحد (Now() ) افضل
  9. عليكم السلام في خانة : تحديث الى ضع الصيغة التالية : IIf([t2.total]=0;[t1.ram];[t2.total]) استعلام تحديث2.rar
  10. غير ما لون بالاصفر بهذا myCheckUser = Nz(rst!Check_User)
  11. هذه من المشكلات التي تواجه المبرمج ،، لما يغير سطر في كود يكون له تبعات في اماكن اخرى لا تظهر الا عند التجربة تفضل تم التعديل جرب ووافني بالنتيجة DATA1041-5.rar
  12. تفضل كود يختلف قليلا عن السابق ، علما اني استخدمه في غالب اعمالي بل اني اكتفي بتأكيد كلمة المرور فقط DATA1041-4.rar
  13. حبيبي ابو حسان جرب اول مرفق في مشاركتك الأولى الخلل موجود من الأول وليس من تعديلي الأخير على كل حال سوف انظر في الخلل
  14. كنت اعتقد انك تقصد بالمستخدم هو العميل الآن خرجت لنا بفكرة جديدة والحل حسب رأيي ان يكون الترقيم للمستخدم حسب تاريخ اليوم يستمر في الترقيم حسب المستخدم طوال اليوم وفي الغد يبدأ الترقيم من جديد وهنا لا يلزم ادخال المعرف لانه سوف يظهر في النموذج بمجرد دخوله ، ومع هذا يجب رصده في الجدول مع كل عملية ليصبح الكود مثل هذا : Dim i As Integer i = DCount("usr_id", "voice", "usr_id=" & usr_id & " and voicedate=#" & Date & "#") voiceno = i + 1
  15. غير صحيح يا دكتور ما خط بالاحمر النتيجة تكون 3 انا جربت قبل ان ارفق المثال وايضا الآن اعدت التجربة ما خط بالاخضر كيف المعرف رقم 1 يكون مستخدم جديد وهو مسجل له فاتورتين
  16. حبيبنا الكود : Dim i As Integer i = DCount("usr_id", "voice", "usr_id=" & usr_id) voiceno = i + 1 الكود يقوم بجمع عدد السجلات في الجدول المشابهة للمعرف الموجود في الفورم ثم يضيف اليها واحد المعرف الجديد الذي يكتب في الفورم ليس له سجلات في الجدول اي انه = صفر فيضيف له واحد فتصبح النتيجة =1 انا قلت ان المهم ان الفكرة تصل .. بحيث يمكنك توظيف الكود لو ارفقت جزء صحيح من البرنامج الذي تعمل عليه يكون افضل
  17. تفضل لن يسمح لطارق بالدخول لان تاريخ صلاحيته اصغر من تاريخ اليوم DATA1041-2.rar
  18. شكرا لاستاذنا القدير حسام على المداخلة انظر المرفق انا بسطت لك العملية ، حيث حولت النموذج الى ادخال بيانات : نعم بمعنى انك سوف تدخل المعرف واسم المستخدم المهم ان الفكرة تصل ترقيم حسب المستخدم.rar
  19. وعليكم السلام اخي الحبيب طلبك واضح ومفهوم .. اطلعت على المرفق ، واليك ملاحظاتي وهي خطوات يمكنك تطبيقها اولا : يجب ان يتم اختيار (او كتابة) معرف او يوزر المستخدم اولا .. فان كان موجود سيظهر اسمه ، وان كان جديد يلزم كتابة اسمه نأتي للترقيم : عند النقر على الزر يتم " عد " معرفات المستخدم الموجودة باستخدام : Dcount .. ويضاف لها واحد (+1)
  20. اخي بارك الله فيك يجب ان تعطي الجداول حقها عند التصميم .. اعلم انه يجب ان يشتمل كل جدول على حقل فريد يكون هو مفتاح الجدول ، بمعنى يجب ان يشتمل كل جدول على مفتاح هذا المفتاح خاص بمحرك اكسس لزيادة ضبط وربط الجداول ، ليس للمشروع ولا للمبرمج دخل او علاقة فيه ، ومع ذلك يمكن للمبرمج الاستفادة منه كما هو الحاصل في مثالك انظر مثالك بعد التعديل AB (2).mdb
  21. المشكلة من جهتين او ثلاث : الاولى نقل التركيز حينها يتوقف الكود الثانية ان الكود اصلا مخصص للنماذج الثالثة معاينة الطباعة ينقصها الكثير من الاجراءات يمكننا تشبيهها بالصورة على كل حال يمكنني تعديل الكود والتطبيق على النماذج والتقارير بشرط ان يتم فتح التقرير على العرض وليس المعاينة انتظر رأيك
  22. عليكم السلام المشكلة عندك في النموذج المخفي ، لم اضع يدي على الخلل ، ولكني قمت باستبدال النموذج . وعملت كودا صغيرا للاختبار ، فجعلت ظهور الرسالة كل خمس ثواني بدلا من الغلق الأمر يعمل عند معاينة التقرير exit.rar
  23. انظر هنا لاستاذنا القدير محمد صالح وايضا هنا مع مثال عملي للاستاذ احمد سليم
×
×
  • اضف...

Important Information