biskra

أختي العزيزة زهراء أسأل الله أن يوفقك في أعمالك سوف أدرس الملف و أدر عليك،و هذاملف وورد يتضمن الفكرة التي أريد الوصول اليها. _____________.rar

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

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

أخي الكريم راجع المثال في الرابط التالي سوف تجد المطلوب إن شاء الله. http://www.arabteam2000-forum.com/index.php?showtopic=52854

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

جزاك الله كل خير عن هذا المجهود المبذول, و تذكيرنا باٍخوة عظماء مروا على المنتدى, و تركوا اثرا طيبا لا يمكن نكرانه, نسأل الله أن لا يحرمهم و أنت معهم من الأجر و الثواب, آمين يا رب العالمين.

المشكلة بسبب التحديثات التي يعرفها الموقع.

تفضل قد تستفيد من هذا المثال archive_example.zip

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

مشكور اخي الكريم على المثال الرائع, دائما في نفس المسار هذا مثال آخر رائع جدا كذلك لأنه يقوم بالبحث من تلقاء نفسه عن الجداول و ينفذ عملية الارتباط , كما أنه يمكنك من تنفيذ عملية الربط يدويا عن طريق تحديد المسار. reconnect2004.rar

من خلال البحث في موقع أجنبي وجدت هذا الكود الذي حسب وصف صاحبه يتم وضعه مع زر أمر تسجيل وقت الحضور و الانصراف:    MsgBox Now 'this tests the current PC date and time    Date = ServerGetTime(Environ$("LOGONSERVER"))    Time = ServerGetTime(Environ$("LOGONSERVER"))    MsgBox Now 'this tests the current PC date and time وهذا هو رابط الموضوع : http://www.access-programmers.co.uk/forums...ght=server+time و هذا رابط لموضوع الحصول على تاريخ و الوقت لسيرفر: http://www.vbusers.com/code/codeget.asp?Th...=1&NumReplies=0 أتمنى أن تستفيد من الموضوع.

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

الأمر اٍن شاء الله سهل جدا و ذلك باٍضافة سطر لكود أمر الطباعة أو لكود معاينة التقرير كاتالي: Private Sub ÃãÑ52_Click() On Error GoTo Err_ÃãÑ52_Click Me.Refresh    Dim stDocName As String    stDocName = ChrW(1573) & ChrW(1602) & ChrW(1585) & ChrW(1575) & ChrW(1585)    DoCmd.OpenReport stDocName, acPreview Exit_ÃãÑ52_Click:    Exit Sub Err_ÃãÑ52_Click:    MsgBox Err.Description    Resume Exit_ÃãÑ52_Click     End Sub السطر التي تمت اضافته للكود هو تعبير Me.Refresh و يتمثل دوره في تحديث البيانات قبل الطباعة أو معاينة التقرير.

قم بتحويله الى صيغة أوفيس 2003 و ذلك عن طريق شريط الادوات

أخي alotaif الكود الذي أشرت اليه يرجع التاريخ الحالي بينما المقصود تاريخ وقت و بالتالي تستبدل كلمة date بعبارة now