mrnooo2000

تفضل أخى هذا تعديل لكود الاخ مصطفى ليحقق ما تريد Private Sub shr_Change() 'On Error Resume Next Me.shr.Tag = Me.shr.Text Me.RecordSource = "SELECT * FROM SP1 WHERE SP1.Name1 LIKE '*" & (Nz(Me.shr.Tag)) & "*' or " & _ "SP1.Name2 LIKE '*" & (Nz(Me.shr.Tag)) & "*…

بارك الله فيك أخ يوسف تم تعديل المرفق كما طلبت

لا اعرف اخى ان كنت تريد من مر عليهم عام بالضبط أم كل من بالعام السابق عموما ان كنت تريد كل من بالعام السابق فالاستعلام الاول يعطيك ذلك و اذا كنت تريد من مر عليهم عام بالضبط فعليك بالاستعلام الثانى ( نفس ما اقترحه عليك الاخ مالك ) Fixing_Date.rar

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

هذا الكود يؤدى ما تريد DoCmd.OpenForm stDocName, , , stLinkCriteria, , acHidden استبدله بالكود الموجود بنموذج الدخول ( لاحظ ان ما غيرته هو نهاية الكود فقط )

يمكنك أخى استخدام طريقة النسخ أخى بدلا من الضغط لانها تعمل مع بقاء القاعدة مستخدمة .

أخى الكريم 1- الدالة لا تحتاج الى تعديل و يمكن وضعه فى نموذج أو فى أى وحدة نمطية 2- للاسف لن يتم النسخ اذا كانت القاعدة ( الجداول ) قيد الاستخدام و الحل هو خروج جميع المستخدمين أولا 3- الالكواد يتم وضعها فى الواجهة و ليس بقاعدة الجداول ( عند المستخدم الرئيسى و…

تفضل أخى هذه الدالة تقوم بكل ما تريده الى جانب ضغط و اصلاح قاعدة الجداول ضع الدالة فى النموذج أو وحدة نمطية Public Function CompactBackendDatabaseFile_Custom(strPathFilename_OriginalBEDB As String, strPathFilename_TemporaryBEDB As String, blnKeepBackup As Bool…

اعذرنى اخى لكنى لم استطع استيعاب ما تريد عمله

اعتذر اخى لانشغالى الشديد الفترة الماضية اخى هل الكود الاول يعمل معك جيدا اذا كان ذلك فالامر بسيط فقط كون مجموعة السجلات المطلوبة ( recordset ) و كرر الكود لكل سجل منها

ضع مثال لما تريد لكى يمكن مساعدتك

اخى الكريم ابحث بالمنتدى ستجد الكثير

مجلد أم ملف ؟ عموما ضعى هذا الكود فى حدث عند الضغط لزر الفتح Call Shell("explorer.exe " & Me.Text3, vbMaximizedFocus) text3 هو اسم مربع النص الموجود به المسار

نعم نعم سيكون لكل فصل عدد ايام الدوام بالاسبوع لان كل يوم يختلف عن الاخر على ما اعتقد يمكنك ان تدخلى رقم الحصة فى المفتاح لمنع التكرار التوزيع يعتمد على القواعد المتبعة لديك

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

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

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

ضع نموذج الشاشة الرئيسية فى بدء التشغيل Tools >> startup ستظهر لك الشاشة حدد منها النموذج هذا فى 2003 فى 2007 من خيارات الاكسس ثم قاعدة البيانات الحالية و حدد النموذج

لا أعرف تحديدا ما تريد لان مطلوبك غير واضح و لكن كما فهمت انك تريد اسم الموظف بالكود ضع هذا الكود حسب ما تريد Me.[Employee Name form] = DLookup("[Employee Name]", "[Employee]", "[Employee no]=" & Me.[Employee no])

هذا المرفق به طريقة كاملة للتعامل مع الصور pic.rar