mrnooo2000

ملحوظة صحيحة أخ فيصل و فى الحقيقة لم اتطرق لها لاننى لا استخدم المسافات فى التسمية عموما كما سبقنا اخونا ايهاب كل ما ستحتاجه هو وضع اسم الجدول فى الوحدة النمطية بين قوسين و هذه هى الوحدة النمطية بعد التعديل لامكانية تطبيقها على جداول باسمائها مسافات Public Fun…

تفضل اخى تم التعديل الان الكود اكثر دقة جرب و اخبرنى Duration.rar

و فيك بارك أخى

تفضل اخى لاحظ الكود فى الزرين New Microsoft Office Access Application.rar

الرائع مروركم

تفضل اخى جرب المرفق Duration.rar

و جزاكم الله مثله تم ارفاق مثال و فيك اخى الكريم

سأحاول ان شاء الله اخى و الله المستعان

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

مثال جميل اخى الكريم و لكن هذه الخدعة موجودة منذ زمن و حتى قبل اضافة امكانية التنسيق الشرطى الى الاكسس و من وجهة نظرى أوفق الاخ همام فيما قال فيمكنك ان تصل الى ماتريد عن طريق التنسيق الشرطى مع وضع تنسيقات متعددة (حد أقصى 3 ) بالاضافة الى الافتراضى كل ذلك بدون …

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

تمام و لكن الاحوط هكذا Me.EndDat = CStr(Format(DateAdd("d", Me.Moditoha - 1, CDate(startDat)), "yyyy/mm/dd")) Me.Day = Format(CDate(startDat), "dddd") Me.Daay = CStr(Format(DateAdd("d", Me.Moditoha - 1, CDate(startDat)), "dddd"))

Private Sub Command16_Click() On Error Resume Next Dim dd As String 'ÝÊÍ ÈÑäÇãÌ ÇáææÑÏ Set monWd = CreateObject("Word.Application") monWd.Documents.Open CurrentProject.Path & "\1.doc" monWd.Visible = True dd = Me.ÊÇÑíÎ_ÇáØáÈ monWd.ActiveDocument.Bookmarks("A1"…

تفضل اخى لاحظ التغيير فى تاريخ تقديم الطلب

نعم اخى يمكن ذلك لكنك تحتاج الى تقسيم القاعدة الى جزئين ( امامى و خلفى ) و توزيع نسخ من القاعدة الامامية و سييعمل الكود

استخدم هذا الكود فى حدث عند النقر لزر Dim xid, strsql, xrec As String xid = Me.id xrec = Me.CurrentRecord DoCmd.SetWarnings False If MsgBox("هل تريد حذف البيان", vbYesNo + vbCritical + vbMsgBoxRight + vbDefaultButton2, "تحذير") = vbNo Then Exit Sub Else DoCmd.…

تفضل اخى تعديل بسيط على مرفق الاخ اكسير حيث انك لاتريد الاخفاء و تريد الاغلاق opensub.rar

استخدم هذا الكود اخى ليقوم باضافة عدد الايام التى تحددها فى حقل المدة Me.EndDat = CStr(Format(DateAdd("d", Me.Moditoha, CDate(startDat)), "yyyy/mm/dd"))

تفضل اخى مع هدية منى calender.rar

اخى ارفق مثالك حتى تساعد من يحاول ان يساعدك