اذهب الي المحتوي
بحث مخصص من جوجل فى أوفيسنا
Custom Search

علــــي

عضو جديد 01
  • Content count

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

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

السمعه بالموقع

0 Neutral

عن العضو علــــي

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    موظف

اخر الزوار

193 زياره للملف الشخصي
  1. والله مب مستهين فيه مبين انه كود خطير هههههههههه طبعا مهما وصلنا من مستوى تبقى انت الكبير والاستاذ وهذا احنا نتعلم منك يا اخوي جعفر جاري التجربة ٫٫٫٫٫ وشكراً وتآكد ان هذا المنتدى يمتلك مواهب ما شاء الله عليها <<<<اتمنى لكم التوفيق يارب
  2. السلام عليكم اخوي جعفر أولاُ يعطيك العافية الكود شغال بنسبة 80% لانه يوجد به خطأ وهو أن لما يكون تاريخ الانتهاء يصادف يوم "الجمعة" يحدث الخطأ ويحسب تاريخ يوم السبت أي لا يتجاوز ذلك مثال ذلك لو كان تاريخ البدء 22/11/2017 والمدة 5 أيام يكون تاريخ الانتهاء 29/11/2017 المعادلة صحيحة تجاوز 24 الجمعة و 25 السبت لكن لو كان تاريخ البدء 19/11/2017 والمدة 5 أيام يكون تاريخ الانتهاء 25/11/2017 المعادلة غير صحيحة تجاوز 24 الجمعة وتم حساب تاريخ 25 يوم السبت مثال آخر لو كان تاريخ البدء 21/11/2017 والمدة 3 أيام يكون تاريخ الانتهاء 25/11/2017 المعادلة غير صحيحة تجاوز 24 الجمعة وتم حساب تاريخ 25 يوم السبت كذلك أعتقد والله أعلم وانت أخبر مني أن الخطأ ربما يكون في الكود أنه يضيف يوم واحد ففي بعض الحلات يتم حساب يوم السبت 'إذا كان اليوم من أيام الاجازة If InStr(1, Excl_D, Weekday(i)) > 0 Then 'اضف يوم الى اليوم الاخير ToDate = ToDate + 1 End If شاكر لك وقتك وجهدك وتقبل تحياتي
  3. جاري التجربة وشكرا يا استاذ دائما من بعد الله سبحانه تكون عون لنا تحياتي والله يوفقك ويرزقك ما تتمنى
  4. السلام عليكم لدي طلب صغير لأخواني اصحاب الخبرة محتاج كود يعطيني التاريخ المطلوب دون حساب يومي الويكند مثلا تاريخ البدء 23-11-2017 يوم الخميس مدة التسليم (3 أيام) المطلوب : تاريخ التسليم تلقائيا يكون (28-11-2017) أي أنه تجاوز تاريخ 24+25 لأنهم يومي الجمعة والسبت وبدء الحساب من تاريخ 26/11/2017 يوم الأحد كأول يوم في الاسبوع وشكرا جزيل Database1.zip
  5. السلام عليكم ورحمة الله أنا بصدد تركيب مشروعك برنامج (معلومات عن الحيوانات ) على برنامجي ولكن لدي طلب صغير الأكواد الحالية تنشأن ملف Images للمرفقات ويكون على مسار ملف البرنامج أنا بحاجة إلى تغيير المسار بأن أحدد له الملف الذي سوف يقوم بوضع المرفقات فيه فياريت تحدد لي الأكواد التي يجب علي تعديلها وشكراً جزيلاً لك
  6. السلام عليكم ورحمة الله أخواني أنا نقلت قاعدة البيانات access إلى SQL Server هل يستلزم إضافة أو تعديل أكواد علماً بأني لاحظت بعض الخصائص أصبحت لا تعمل والعلاقات تعطلت وشكرا جزيلا لكم
  7. تعديل كود المرفقات

    1. نزلت المرفقين (مع برنامج الحيوانات - ومن غير برنامج الحيونات) 2. بداية لم أغير أي شي مجرد اتبع خطوات ربط السكنر واربطه 3. لما استخدم زر scan الي هو المفروض يفتح لي برنامج السكنر لا يعمل وانما يتطلب مني اني اضع مسار الصورة واسم الصورة ويجب ان تكون موجودة فعلا في الجهاز ولما اضغط بعدها scan تفتح وكأنها زر (Browse) مب زر مسح مباشر من السكنر الصور المرفقة ممكن توضح قصدي شكراً اخوي جعفر هل تريد أن اضيف ملف القاعدة تضيف تعدل عليها وتضاف النظام ؟!
  8. تعديل كود المرفقات

    هلا اخوي جعفر ... مسامحه لو اختلطت الأمور وتوسعت بمناسبة اني خذت بنصيحتك وقررت استخدم حفظ المرفقات بملف وليس على القاعدة مثل ما نصحتني وراح ادمج البرنامج الي انت أرفقته مع برنامجي وعلى هالاساس جربته وما ضبط معاي زر scan بسبب أنه مب محصل الصورة في المسار .. طبعا هي مب موجودة وانا اريد سحبها من السكنر واضافتها فبرنامج السنكر ما يعمل على سحب الصورة ... أكرر أسفي ولو تفضل أني افتح موضوع ثاني حاضر أخوي وشكراً لك
  9. تعديل كود المرفقات

    مرحبا اخوي جعفر، شكرا على مساندتك ودعمك انا طبقت شروحاتك وضبطت السنكر للتجربة فيه مشكلة وهي عدم عمل السنكر من خلال نظام access مع ان في برنامج NAPS2 شغال كل شي تمام والبروفايل محفوظ لكن من الأكسس ما يفتح السكنر
  10. تعديل كود المرفقات

    انا استخدمه في نظام ارشيف من تصميمي ويستخدمه أكثر من شخص على السيرفر في حال تحويل الصور للسيرفر احس بيحتاج صعوبات كثيرة صعبة علي ... وأفكر أحولها SQL بسبب كبر حجمها بس للحين ما بحثت عن الطريقة يعني في مجال لتعديل الكود الحالي بدون حفظها على الوندوز ؟ شكرا اخوي جعفر
  11. السلام عليكم ورحمة الله عندي كود لزر حفظ البيانات في الجدول لكن عندي خلل في المرفقات لا أعرف تعديل الكود ياريت لو ممكن احد يتفضل بالمساعدة وشكرا Private Sub add_Click() If IsNull(Me.Title) Or IsNull(Me.iso) Then MsgBox "xxxxxxxxxxxxx " 'MsgBox Exit Sub Else Dim Rs As DAO.Recordset Set Rs = CurrentDb.OpenRecordset("unread") Rs.AddNew Rs!id = id Rs!Title = Title Rs!User = User Rs!Date = Date Rs!Time = Time() Rs!subj = subj (الخلل هنا) Rs!Attachment.Fields("FileData").LoadFromFile "" = Attachment Rs.Update Set Rs = Nothing Me.Title = "" Me.MsBox = "" MsgBox "Done " DoCmd.Close End If End Sub فما هو التعديل كي يتعرف على المرفقات ويضعها في الجدول بعد ضغط الزر
  12. السلام عليكم ورحمة الله وبركاته اخواني انا عندي قاعدة بيانات ودمجت فيها نظام المستخدمين لإعطاء الصلاحيات الله يجزيه خير الذي عمله محتاج تعديلين عليه عشان يلبي احتياجي اذا فيه إمكاني من الأخوان يساعدوني 1- أريد إلغاء الـ decode من كافة الملف بيحث يتم إدخال المستخدم واضافته واستدعاءه بشكل طبيعي لانه يتعارض مع باقي الاشياء عندي فأريد المستخدمين من غير تشفير 2- أريد إضافة مجموعات للمستخدمين لعمل( أقسام) بحيث لو الموظف ينتمي لهذه المجموعة لديه صلاحية تفتحيفتح له هذا (الفورم) .. لو كان من هذه المجموعة يفتح له هذا الفورم الخاص بمجموعته وهكذا الموضوع مهم بالنسبة لي ياريت من يقدر يساعدني حتى لو بمقابل مادي بس يكون بسعر معقول انا حاضر وشكرا.. الملف https://drive.google.com/open?id=0B7tsxshSkC9cQ1gydmtTMVVTNVk
  13. اخوي مارد شكرا لك وابداع ما شاء الله عندي سؤال انا حاب اضيفه في قاعدتي ولكن المشكلة أنه عندي جدول users اخر تبع نظام صلاحيات ويحتوي على المستخدمين .. واسماء الجداول تختلف انت نظامك يحتوي اسماء ومتغيرات للمستخدمين كذلك فكيف اقدر اغيره ليعمل مع جدول المستخدمين الموجود عندي لان التعديل رايح يشمل اماكن كثيرة وشكرا
×