looodi قام بنشر أكتوبر 24, 2016 قام بنشر أكتوبر 24, 2016 السلام عليكم ورحمة الله وبركاتة اتمى منكم توضيح لي طريقه تقوم علة تنبيه قبل نهايه عقد الموظف علماً ان عقد الموظف لمدة سنة
Shivan Rekany قام بنشر أكتوبر 24, 2016 قام بنشر أكتوبر 24, 2016 اخي الكريم ممكن ترفع المرفق من شان نعمل عملية عليه if datediff("yyyy",me.tarix,1) then msgbox "نص الرسالة" end if فرضنا ان me.tarix هو مربع نصي اللي بها تاريخ العقد مع تقدير شفان ريكاني
looodi قام بنشر أكتوبر 24, 2016 الكاتب قام بنشر أكتوبر 24, 2016 اخي SHIVN لما كنت اضيف المرفق ظهر لي ان حجمه كبير ياليت ترح لي اين اضع الكود تشرح**
Shivan Rekany قام بنشر أكتوبر 24, 2016 قام بنشر أكتوبر 24, 2016 (معدل) عند تحميل on load اخي تكدر ترفع المرفق بواسطة هذا الموقع http://www.4shared.com/ او موقع درايف من كوكل مع تحياتي شفان ريكاني تم تعديل أكتوبر 24, 2016 بواسطه Shivan Rekany
looodi قام بنشر أكتوبر 24, 2016 الكاتب قام بنشر أكتوبر 24, 2016 تفضل https://www.4shared.com/file/Wur7WexAba/PSDB_-_Copy.html
Shivan Rekany قام بنشر أكتوبر 24, 2016 قام بنشر أكتوبر 24, 2016 في 24/10/2016 at 10:12, looodi said: تفضل https://www.4shared.com/file/Wur7WexAba/PSDB_-_Copy.html Expand عفوا اخي حاولت ان انزل البرامج لكن ما اكدرت ممكن ترسللي علبريدي الخاص shivan_rekany212@yahoo.com او علفيس https://www.facebook.com/Shivan1988 شفان ريكاني
looodi قام بنشر أكتوبر 24, 2016 الكاتب قام بنشر أكتوبر 24, 2016 في 24/10/2016 at 10:25, Shivan Rekany said: عفوا اخي حاولت ان انزل البرامج لكن ما اكدرت ممكن ترسللي علبريدي الخاص shivan_rekany212@yahoo.com او علفيس https://www.facebook.com/Shivan1988 شفان ريكاني Expand تم الارسال
looodi قام بنشر أكتوبر 24, 2016 الكاتب قام بنشر أكتوبر 24, 2016 في 24/10/2016 at 10:36, looodi said: Expand ارجو الرد اخي شفان
Shivan Rekany قام بنشر أكتوبر 24, 2016 قام بنشر أكتوبر 24, 2016 في 24/10/2016 at 12:11, looodi said: ارجو الرد اخي شفان Expand شوف استعلام 2 ونموذج asmend في البداية فتح نموذج الرئيسية اتمنى ان تنال اعجابك مع تقدير شفان ريكاني PSDB - Copy.rar 1
looodi قام بنشر أكتوبر 24, 2016 الكاتب قام بنشر أكتوبر 24, 2016 قمت بانشاء استعلام واضفت فيه اسم الموظف وتاريخ انهاء العقد وعملت اضافة الامر هذا عدد الايام المتاحه: dtediff("d" ; dte() ; [مدة انتهاء العقد]) وظهر هذا الخطا
Shivan Rekany قام بنشر أكتوبر 24, 2016 قام بنشر أكتوبر 24, 2016 في 24/10/2016 at 12:23, looodi said: قمت بانشاء استعلام واضفت فيه اسم الموظف وتاريخ انهاء العقد وعملت اضافة الامر هذا عدد الايام المتاحه: dtediff("d" ; dte() ; [مدة انتهاء العقد]) وظهر هذا الخطا Expand بدون تعمل استعلام انا عملتك استعلام ونموذج بس عليك فتح قائمة رئيسية حين تفتح القائمة هو راح يشوف اي تاريخ انتهاء العقد مضى عليه راح يكلك برسالة مثلا عندك 2 موظفين منتهى عقده هل تريد متابعة اذا تضغط نعم راح يفتح النموذج اللي انتهى عقده مع تقدير شفان ريكاني 1
Shivan Rekany قام بنشر أكتوبر 24, 2016 قام بنشر أكتوبر 24, 2016 في 24/10/2016 at 12:23, looodi said: وظهر هذا الخطا Expand اخي العزيز وافيني بالنتيجه هل وصلت لما تريد مع تحيات شفان ريكاني 1
looodi قام بنشر أكتوبر 25, 2016 الكاتب قام بنشر أكتوبر 25, 2016 في 24/10/2016 at 14:01, Shivan Rekany said: اخي العزيز وافيني بالنتيجه هل وصلت لما تريد مع تحيات شفان ريكاني Expand لم اصل الى حل هل ممكن ان توضح لي ماذا اعمل قمت بحذف الأستعلام الان ولكن اين اضع الكود البرمجي لكي يظهر لي تنبيه بانتهاء عقد أي موظف في 24/10/2016 at 14:01, Shivan Rekany said: اخي العزيز وافيني بالنتيجه هل وصلت لما تريد مع تحيات شفان ريكاني Expand اسف اخي لم انتبه الى رد السابق سوف اقوم بتحميل المرفق الان وارد لك اخي المرفق لايعمل لدي هل ممكن ان ترفقه مره اخرى واسف على الاطاله والازعاج يعطيك الف عافيه اخي ولكن عندي سؤال الان انت عملت نموذج واستعلام هل اربطهم بالصفحة الرئيسية ؟
looodi قام بنشر أكتوبر 25, 2016 الكاتب قام بنشر أكتوبر 25, 2016 اخي انت قمت بوضع بيانات جدول annul لم تقوم بوضع بيانات الموظفين في نموذج العقد المنتهي ؟
looodi قام بنشر أكتوبر 25, 2016 الكاتب قام بنشر أكتوبر 25, 2016 في 24/10/2016 at 12:14, Shivan Rekany said: شوف استعلام 2 ونموذج asmend في البداية فتح نموذج الرئيسية اتمنى ان تنال اعجابك مع تقدير شفان ريكاني PSDB - Copy.rarFetching info... Expand اخي انت قمت بوضع بيانات الاجاززة ولم تقوم بوضع بيانات الموظفين التي فيها تاريخ نهايه العقد
Shivan Rekany قام بنشر أكتوبر 25, 2016 قام بنشر أكتوبر 25, 2016 في 25/10/2016 at 06:43, looodi said: اخي انت قمت بوضع بيانات الاجاززة ولم تقوم بوضع بيانات الموظفين التي فيها تاريخ نهايه العقد Expand اخي حين ارسلت لي الملف كان ما بها اي بيانات لذا انا ما كان اعرف اي جدول له وانا اضفت البيانات لكن لا تزعل اليوم بالعصر ان شاء الله راح اسوي كما تريد اكن قل لي اي جدول هو للموظفين مع تحياتي شفان ريكاني 1
looodi قام بنشر أكتوبر 25, 2016 الكاتب قام بنشر أكتوبر 25, 2016 في 25/10/2016 at 09:17, Shivan Rekany said: اخي حين ارسلت لي الملف كان ما بها اي بيانات لذا انا ما كان اعرف اي جدول له وانا اضفت البيانات لكن لا تزعل اليوم بالعصر ان شاء الله راح اسوي كما تريد اكن قل لي اي جدول هو للموظفين مع تحياتي شفان ريكاني Expand نعم لاتوجد بيانات لكن انا اقصد اسماء الحقول موجودة في كل جدول ولكن انت اضفت حقول جدول الاجازات والمفروض يكون جدول employee
Shivan Rekany قام بنشر أكتوبر 25, 2016 قام بنشر أكتوبر 25, 2016 في 25/10/2016 at 09:36, looodi said: نعم لاتوجد بيانات لكن انا اقصد اسماء الحقول موجودة في كل جدول ولكن انت اضفت حقول جدول الاجازات والمفروض يكون جدول employee Expand ان شاء الله اليوم بالعصر راح اعمل عليه وساشرح لك كما تريد هسه انا عم استخدم موبايل مع تحياتي شفان ريكاني 1
Shivan Rekany قام بنشر أكتوبر 25, 2016 قام بنشر أكتوبر 25, 2016 في 25/10/2016 at 09:36, looodi said: نعم لاتوجد بيانات لكن انا اقصد اسماء الحقول موجودة في كل جدول ولكن انت اضفت حقول جدول الاجازات والمفروض يكون جدول employee Expand اتفضل في البداية ادخل البيانات وحاول حين تدخل خلي بينتهي العقد لكم اشخاص وبعدين حين تفتح النموذج الرئيسية اذا بينتهي العقد لشخص او لاكثر من شخص راح يظهر الرسالة وبيقولك ان انتهى عقد ل ( ) اشخاص هل تريد تتابع اذا بيقول نعم راح يفتح نموذج خاص (ASMEND) للمنتهىي العقود مالهم واذا تقول لا ما راح يير شي شو ووافيني بالنتيجة اذا هذا كان طلبك خلي اشرح لك العمل مع تحياتي شفان ريكاني PSDB - Copy.rar 2
looodi قام بنشر أكتوبر 26, 2016 الكاتب قام بنشر أكتوبر 26, 2016 في 25/10/2016 at 13:26, Shivan Rekany said: اتفضل في البداية ادخل البيانات وحاول حين تدخل خلي بينتهي العقد لكم اشخاص وبعدين حين تفتح النموذج الرئيسية اذا بينتهي العقد لشخص او لاكثر من شخص راح يظهر الرسالة وبيقولك ان انتهى عقد ل ( ) اشخاص هل تريد تتابع اذا بيقول نعم راح يفتح نموذج خاص (ASMEND) للمنتهىي العقود مالهم واذا تقول لا ما راح يير شي شو ووافيني بالنتيجة اذا هذا كان طلبك خلي اشرح لك العمل مع تحياتي شفان ريكاني PSDB - Copy.rarFetching info... Expand يعطيك الف عافيه هذا اللي ابيه ولكن شفت بيانات اضافيه هل انت اضفت المرفق attach fil name وضحي لي كيف تم عمله
Shivan Rekany قام بنشر أكتوبر 26, 2016 قام بنشر أكتوبر 26, 2016 (معدل) في البداية انا عملت استعلام باسم query2 وخليت في حقل تاريخ انتهاء العقد هذا <=date() يعني يظهر استعلام من تاريخ الحقل انتهاء العقد اصغر او يساوي اليوم وبعدين عملت نموذج باسم asmend وخليت مصادره استعلام query2 و في نموذج الرئيسي عند يفتح كتبت هذا الكود dim xx as integer 'متغير باسم ئكس ئكس وخليتها رقم xx = nz(dcount("[employee_name]" , "query2")) 'ئكس ئكس يساوي نول زير يعنس اذا كان خالي خليها صفر وتعدا من حقل امبلوي نيم من كواريري 2 if xx > 0 then 'اذا ئكس ئكس كان اكبر من الصفر بعدين beep 'صوت if msgbox("عندك" & " ( " & xx & " ) " & "موظف المنتهي عقده ، هل تريد تتابعها" , vbyesno + vbmsgboxright, "تنبيه" ) = vbyes then ' بعدين فتحت شرط اخر برسالة وبها زرين نعم و لا و خليت اسم الرسالة تنبيه و خليت الرسالة بيكون من اليد اليمنى وقفلت قوس الرسالة و واذا كان تضغط على زر الرسالة نعم بعدين docmd.openform "asmend" m acnormal ' فتح نموذج "asmend" بطريقة نورمال else ' واذا كان لا تضغط على زر نعم ما كتبت شي يعني لا تعمل اي شيء end if 'قفل ايف الاول end if 'قفل ايف الثاني مع تحياتي شفان ريكاني PSDB - Copy.rar تم تعديل أكتوبر 26, 2016 بواسطه Shivan Rekany 1
looodi قام بنشر أكتوبر 26, 2016 الكاتب قام بنشر أكتوبر 26, 2016 في 26/10/2016 at 07:41, Shivan Rekany said: في البداية انا عملت استعلام باسم query2 وخليت في حقل تاريخ انتهاء العقد هذا <=date() يعني يظهر استعلام من تاريخ الحقل انتهاء العقد اصغر او يساوي اليوم وبعدين عملت نموذج باسم asmend وخليت مصادره استعلام query2 و في نموذج الرئيسي عند يفتح كتبت هذا الكود dim xx as integer 'متغير باسم ئكس ئكس وخليتها رقم xx = nz(dcount("[employee_name]" , "query2")) 'ئكس ئكس يساوي نول زير يعنس اذا كان خالي خليها صفر وتعدا من حقل امبلوي نيم من كواريري 2 if xx > 0 then 'اذا ئكس ئكس كان اكبر من الصفر بعدين beep 'صوت if msgbox("عندك" & " ( " & xx & " ) " & "موظف المنتهي عقده ، هل تريد تتابعها" , vbyesno + vbmsgboxright, "تنبيه" ) = vbyes then ' بعدين فتحت شرط اخر برسالة وبها زرين نعم و لا و خليت اسم الرسالة تنبيه و خليت الرسالة بيكون من اليد اليمنى وقفلت قوس الرسالة و واذا كان تضغط على زر الرسالة نعم بعدين docmd.openform "asmend" m acnormal ' فتح نموذج "asmend" بطريقة نورمال else ' واذا كان لا تضغط على زر نعم ما كتبت شي يعني لا تعمل اي شيء end if 'قفل ايف الاول end if 'قفل ايف الثاني مع تحياتي شفان ريكاني PSDB - Copy.rarFetching info... Expand تسلم يعطيك الف عافية
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.