علــــي

والله مب مستهين فيه مبين انه كود خطير هههههههههه

طبعا مهما وصلنا من مستوى تبقى انت الكبير والاستاذ وهذا احنا نتعلم منك يا اخوي جعفر

جاري التجربة ٫٫٫٫٫

وشكراً وتآكد ان هذا المنتدى يمتلك مواهب ما شاء الله عليها <<<<اتمنى لكم التوفيق يارب

السلام عليكم اخوي جعفر

أولاُ يعطيك العافية

الكود شغال بنسبة 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

شاكر لك وقتك وجهدك وتقبل تحياتي

جاري التجربة وشكرا يا استاذ دائما من بعد الله سبحانه تكون عون لنا

تحياتي والله يوفقك ويرزقك ما تتمنى

السلام عليكم

لدي طلب صغير لأخواني اصحاب الخبرة

محتاج كود يعطيني التاريخ المطلوب دون حساب يومي الويكند

مثلا

تاريخ البدء 23-11-2017 يوم الخميس

مدة التسليم (3 أيام)

المطلوب : تاريخ التسليم  تلقائيا يكون (28-11-2017)

أي أنه تجاوز تاريخ 24+25 لأنهم يومي الجمعة والسبت وبدء الحساب من تاريخ 26/11/2017 يوم الأحد كأول يوم في الاسبوع

وشكرا جزيل 

Database1.zip

في 5/10/2016 at 08:27, xbox2007 said:

السلام عليكم

جزاك الله خير على البرنامج 

بس انا حاولت استخدم الأسكنر -- ظهر لى هذا الخطأ

وعندى استفسار اخر 

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

نفس الخلل عندي

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

أنا بصدد تركيب مشروعك  برنامج (معلومات عن الحيوانات  ) على برنامجي ولكن لدي طلب صغير

الأكواد الحالية تنشأن ملف Images  للمرفقات ويكون على مسار ملف البرنامج

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

وشكراً جزيلاً لك

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

أخواني أنا نقلت قاعدة البيانات access إلى SQL Server

هل يستلزم إضافة أو تعديل أكواد علماً بأني لاحظت بعض الخصائص أصبحت لا تعمل والعلاقات تعطلت 

وشكرا جزيلا لكم

12 دقائق مضت, jjafferr said:

مرحبا أخوي جعفر

1. نزلت المرفقين (مع برنامج الحيوانات - ومن غير برنامج الحيونات)

2. بداية لم أغير أي شي مجرد اتبع خطوات ربط السكنر واربطه

3. لما استخدم زر scan الي هو المفروض يفتح لي برنامج السكنر لا يعمل وانما يتطلب مني اني اضع مسار الصورة واسم الصورة ويجب ان تكون موجودة فعلا في الجهاز ولما اضغط بعدها scan

تفتح وكأنها زر (Browse) مب زر مسح مباشر من السكنر

الصور المرفقة ممكن توضح قصدي

شكراً اخوي جعفر

هل تريد أن اضيف ملف القاعدة تضيف تعدل عليها وتضاف النظام ؟!

46 دقائق مضت, jjafferr said:

وعليكم السلام اخوي علي 

 

انت سؤالك كان شئ ، والآن اشوفك تنط الى سؤال آخر 

الخطأ 2220 معناه انه ما فيه صوره في المسار 

استخدم Windows Explorer وشوف اذا الصورة موجودة في المسار 

 

 

جعفر

هلا اخوي جعفر ... مسامحه لو اختلطت الأمور وتوسعت

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

وعلى هالاساس جربته وما ضبط معاي زر  scan بسبب أنه مب محصل الصورة في المسار .. طبعا هي مب موجودة وانا اريد سحبها من السكنر واضافتها

فبرنامج السنكر ما يعمل على سحب الصورة  ... أكرر أسفي ولو تفضل أني افتح موضوع ثاني حاضر أخوي

وشكراً لك

في 4/11/2016 at 13:38, jjafferr said:

 

2. بالعكس ، المسألة سهلة ، ويمكنك اضافة حقل المسار في الجدول ، ويمكن بدون حقل المسار في الجدول (انا لا استخدم المسار في الجدول) ، راجع الروابط التالية:

 

جعفر

مرحبا اخوي جعفر، شكرا على مساندتك ودعمك

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

منذ ساعه, jjafferr said:

وعليكم السلام 

هذا الرابط من مايكروسوفت يعطيك الكود:

https://msdn.microsoft.com/en-us/library/bb258184(v=office.12).aspx

ولكن لا يُنصح بحفظ الصور في جداول قاعدة البيانات ، والافضل حفظها في مجلد الوندوز وربطها بالبرنامج بالكود 

جعفر

انا استخدمه في نظام ارشيف من تصميمي ويستخدمه أكثر من شخص على السيرفر 

في حال تحويل الصور للسيرفر احس بيحتاج صعوبات كثيرة صعبة علي ... وأفكر أحولها SQL بسبب كبر حجمها بس للحين ما بحثت عن الطريقة

يعني في مجال لتعديل الكود الحالي بدون حفظها على الوندوز ؟ 

شكرا اخوي جعفر

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

عندي كود لزر حفظ البيانات في الجدول لكن عندي خلل في المرفقات لا أعرف تعديل الكود

ياريت لو ممكن احد يتفضل بالمساعدة وشكرا

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

فما هو التعديل كي يتعرف على المرفقات ويضعها في الجدول بعد ضغط الزر

للرفع

السلام عليكم ورحمة الله وبركاته

اخواني انا عندي قاعدة بيانات ودمجت فيها نظام المستخدمين لإعطاء الصلاحيات الله يجزيه خير الذي عمله

محتاج تعديلين عليه عشان يلبي احتياجي اذا فيه إمكاني من الأخوان يساعدوني

1- أريد إلغاء الـ decode من كافة الملف بيحث يتم إدخال المستخدم واضافته واستدعاءه بشكل طبيعي لانه يتعارض مع باقي الاشياء عندي فأريد المستخدمين من غير تشفير

2- أريد إضافة مجموعات للمستخدمين لعمل( أقسام) بحيث لو الموظف ينتمي لهذه المجموعة لديه صلاحية تفتحيفتح له هذا (الفورم) .. لو كان من هذه المجموعة يفتح له هذا الفورم الخاص بمجموعته وهكذا

الموضوع مهم بالنسبة لي ياريت من يقدر يساعدني حتى لو بمقابل مادي بس يكون بسعر معقول انا حاضر وشكرا..

الملف

https://drive.google.com/open?id=0B7tsxshSkC9cQ1gydmtTMVVTNVk

اخوي مارد شكرا لك وابداع ما شاء الله

عندي سؤال

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

انت نظامك يحتوي اسماء ومتغيرات للمستخدمين كذلك فكيف اقدر اغيره ليعمل مع جدول المستخدمين الموجود عندي لان التعديل رايح يشمل اماكن كثيرة

وشكرا

1 ساعه مضت, jjafferr said:

وعليكم السلام

 

الرابط هذا بيفيدك ان شاء الله:

http://www.officena.net/ib/topic/61730-كيفية-ترقيم-القيد-بعد-حذف-القيد

 

جعفر

الف شكر لك اخوي ... ان شاء الله راح اشوفه الان

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

اعزائي اعضاء هذا المنتدى الممتاز

سؤال ؟ كيف اخلي الرقم التلقائي (autonumber) في الجدول باسم (id)

يتكون بعد اجراء عملية الحفظ (بعد ضغط زر الحفظ) وذلك لانه يتكون تلقائي قبل الحفظ بمجرد كتابة اي حرف في الفورم مما يسبب ضياع العديد من الرقام في حال التراجع عن الحفظ

شكرا جزيلا لكم

اخي الفضل   هذا المرفق به طلبك ممكن نقل محتوياته الي برنامج 

الظاهر عندي مشكلة بنموذج المستخدم وجداوله بشكل كامل 

ؤاح احاول اغيره واشوف لي نموذج صحيح

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

بحاول اضبطها والف شكر لك على مجهودك الله يجزيك خير

تفضل  اخي  الملف بعد التعديل

الف شكر يا اخوي 

بس فيه مشكلة وحدة ان النتيجة يوزر واحد بس هو (ali adel)

حتى لو دخلت من جهاز ثاني بيوزر ثاني دائما النتيجة يوزر واحد

انا اتوقع ان الخلل من االكود الي اعتمدنا عليه الي هو 

=DLookUp("EngineerID","Tbl-Users")

هل الدالة صحيحة او لا لاني سويتها من عندي بصراحه هههههه وانا ما اعرف في الاكواد واول مره اعمل برنامج بشكل كامل

شوف اخي كيف صار

عموما انا فهمت طلبك 

الحين  اضف مربع نص اخر في الجدول المصدر باسم  user /  واضفه في النموذج add  واجعل القيمة الافتراضية لمربع النص  =  Text105

السموحة لم استطيع اضافة المصدر لانه يحتوي على الكثير من البيانات حوالي 200MB

ثاني حاجة عندك جدول اليوزر والفورم ومكان الحاجة المطلوبة

وسامحني لو تعبتك معي يا اخي الكريم

aboarby123, on 23 Mar 2015 - 4:08 PM, said:

اخي الفاضل ارفق البرنامج. لكي يتم عمل اللازم عليه

شكراً مقدماً على المساعدة اخي الفاضل

تفضل الملف مرفق

Database21.zip

بنتظار مساعدتكم جزاكم الله خير

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

اشكر جميع القائمين على هذا المنتدى المفيد والجميل ما شاء الله

عندي برنامج لأرشفة المستندات على الاكسيس من تصميمي

مسوي لكل مستخدم اسم ورقم سري خاص به 

ابغي طريقة لتسجيل اسم الشخص الذي اضافة القيد .. بحيث اقدر اعرف كل موضوع من الموظف الذي قام بإدخاله وشكرا