ابو عارف

الحمد لله على ايجاد مطلوب كلامك صحيح اخي و انا اعتذر جدا لعدم انتباهي للتاريخ على بالي تاريخ اليوم 19 ولكن عند شراء كرت تعبئة من مكينة الكروت ، وجدت تاريخ اليوم 18 و الآن فتحت الجهاز حتى اقوم بتعديل الكود بطريقة : Function DayDate(Num As String) As Date Dim x As String Dim DT As Date Select Case Num Case "السبت", "Saturday" x = 0 Case "الأحد", "Sunday" x = 1 Case "الإثنين", "Monday" x = 2 Case "الثلاثاء", "Tuesday" x = 3 Case "الأربعاء", "Wednesday" x = 4 Case "الخميس", "Thursday" x = 5 Case "الجمعة", "Friday" x = 6 Case Else x = "" End Select DT = Date - Weekday(Date) + x DayDate = DT End Function و تعديلك صحيح ايضا

و هذا محاولة ايضا كما قال أخي ابو ياسين عند كتابة اسم يوم بالعربي أو الأنجليزي سيظهر تاريخ نفس يوم من اسبوع الحالي في مربع التاريخ New Microsoft Access قاعدة بيانات (5).accdb

مشاركه مع أخي صالح بريكان هناك طريقة اخرى لاستخراج الاسبوع بدقة دون دخول الاسبوع السابق ولا اللاحق : اما طريقة الأخ الغالي /صالح بريكان تظهر جميع أيام اسابع ماضية و لاحقة ما يصادف ايامها يوم اسبوع الحالي مثلا اليوم يوم السبت تظهر تواريخ جميع أيام السبت سواء ماضية اولاحقة 10/8 24/8...... xx.accdb

اولاً نحمد الله على وصولك للمطلوب ثانياً : لا ارحتك ولا اسررتك كما ارحتنا و اسررتنا بدعائك الطيبة و ادعو الله لك بمثل دعائك و اكثر، الله يوفقك ويرزقك من حيث لا تحتسب .

تفضل أخي جرب ان شاء الله يكون حسب المطلوب. Hr_Kashf.accdb

وعليكم السلام و رحمة الله و بركاته و كل عام و انت بخير و صحة وسلامة عتد تعديل على برنامجك قد وصلنا الى استبدال السجل (اخفاء سجل و عرض سجل بداله من كشف التالي) ولكن هل تريد امكانية استسناء سجل المستسني مجدداً في كشف التالي . ولكن يظهر السجل المستسني مع سجلات الشهر القادم مباشراً بعد ترحيل سجلات الحالية او بعده، واذا كنت تشترط عدم اظهار سجلات الا بعد فتح نموذج في المرة القادمة ، يمكن تعديله بعد توضيح منك.

توزيع بالكشيدة لايقبل اما بالمسافة يقبل لايمكن تغبر تنسيق حقل او مربع نص منسق الا ب وسوم html و لتجربة انظر مصدر عنصر التحكم بعد تغير تنسيقات

اولاً اعتذر أخينا يونس الخطابي لانني طرحت السؤال في موضوعه دون اذن مسبق جربت كذا طرق حتى تغير حقل الى نص منسق للاستفادة من خصائص html ولكن بلا جدوى في اصدارين 2007 ، 2010 للاسف لا اما نسخ احدث من 2010 ما جربت .

السلام عليكم و رحمة الله و بركاته الاستاذ/ kha9009lid تحية لك و بعد هل لديك فكرة عمل تلك الخاصية عند طباعة نموذج أو تقرير لانه حسب تجربتي لا يعمل.

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

طيب غير سطر : OldImage = Me.imgWorker.OldValue الى : OldImage = Nz(Me.imgWorker.OldValue, FileName(Worker)) في الملف الاول قبل تعديل طبعا

السلام عليكم و رحمة الله و بركاته و السبب سجل جديد ليس لديه قيمة سابقة و الحل: استثناء سجل جديد في بداية الكود و عرض رسالة تفيد بان سجل اللي قمت باضافته ليس له صورة هل تريد اضافة صورة؟ ، ثم خيارين اذا اخترت لا سيضيف الاسم الجديد بلا خطاء و اذا اخترت نعم سيفتح نافذة لتختار لصورة و عند اختار الصورة البرنامج ينشئ مسار في مجلد صور ثم ينسخ الصورة باسم العامل. والمثال في المرفق Worker (4) (2).rar

امين آمين اخي الكريم و جزاك الله بمتله واليك اضافة جديدة اضافة علامة مئوية مع رقم نفسه دون دون مربع اضافية لوضع علامة مئويه فيها Da3.accdb

تفضل اخي Da3.accdb

يبدو تنسيق الحقل (بالمائة) تأكد منه و احبرني

وعليكم السلام تفضل اجر وظيفي.rar

جرب الان او اكتب قيمة مكتوبة في A1 و B2

جرب هذا =([A1]/100)*[B2]

نعم أخي تفضل accessReportToPdf.accdb

اخي الكريم ماذا لو يتم اصدار تقرير مباشر الى pdf المثال accessReportToPdf.accdb

المرفق الجديد Worker (4).rar

تفضل أخي محمد علما بان الصورة No.jpg ضع في فولدر (123) فقط لا داعي وضع تلك الصورة في جميع مجلدات Worker (4).rar

وعليكم السلام و رحمة الله و بركاته غير فنكشن في وحدة نمطية الى: Public Function FileName(ImagName) Dim ImgPath As String ImgPath = "D:\Photo\12 3" FileName = Dir(ImgPath & "\" & ImagName & ".*") If FileName = "" Then FileName = ImgPath & "\No.jpg" Else FileName = ImgPath & "\" & FileName End If End Function

اخي الكريم الخطاء في اكثر من مكان تغير اسماء حقول ، علاقات جداول و الاستعلامات ، مصادر حقول ... استعلامين Qr1 و Qr3 لا تغير فيهما شيئ حذف او اضافة حقول الا تغير اسماء حقول في حالة تغير حقل المصدر و الباقي عملت تقارير للتجربة يمكن تعديلهما حسب فكرتك و اليك المرفق Stor.accdb

الاستاذ محمد/ سبب مشكل هو نقص فنكشن بأسم (ErrMsg) لان صاحب موضوع رفع جزء من البرنامج حتى بعد تخطي خطوة هذا ستواجه مشكلة تالية و هي عدم وجود نموذج لانتقال اليه بعد دخول و للتجربة الصق هذا كود داخل وحدة نمطية في الرنامج Function ErrMsg(num As Integer) As Variant Dim Myarray(1 To 40) As Variant Myarray(9) = "" Myarray(23) = "انتباه" Myarray(32) = "فضلاً يجب أن تقوم بإدخال اسم المستخدم" Myarray(33) = "فضلاً يجب أن تقوم بإدخال كلمة السر" Myarray(34) = " يجب ألا تتجاوز كلمة السر خمسون حرف أو رقم" Myarray(35) = "من حُسن إسلام المرء تركه ما لا يعنيه" Myarray(36) = "اسم المستخدم أو كلمة السر غير صحيحة ،،، يرجى إعادة المحاولة" Myarray(37) = "سيتم إغلاق البرنامج الآن ،،، يرجى مراجعة المبرمج" ErrMsg = Myarray(num) End Function و اليك المثال Stor.accdb