شاهر قام بنشر يناير 15, 2006 قام بنشر يناير 15, 2006 عيدكم مبارك وكل عام وانتم بخير لدي سؤال كيف استطيع تحديث حقل تاريخ في جدوال باضافة علي التاريح الحالي سنه وذك عند حدث نقر زار امر اى بكودتحديث وليس استعلام سؤل ثاني لدي نموذج رئيسي به نموذج فرعي يتم ادخال سجل مرتبطه بنموذج الرئيسي مختلفة البيانات واريد عند ادخال كلمة انذار نهائي للموظف اريد ان تخروج رساله تنبيه بنه قد سبق ادخال أنذار نهائي للموظف المذكور مع خالص التقدير والاحترم لتعاونم معناء اخوكم : شاهر
التقني قام بنشر يناير 15, 2006 قام بنشر يناير 15, 2006 السلام عليكم بالنسبة لتحديث الحقل ضع هذا الكود في حدث قبل التحديث للحقل : Me.Refresh
التقني قام بنشر يناير 15, 2006 قام بنشر يناير 15, 2006 بالنسبة للسؤال الثاني جرب هذا الكود وضعه في حدث بعد التحديث للحقل المطلوب If FieldName.Value = "انذار نهائي" Then MsgBox "سبق ادخال أنذار نهائي للموظف المذكور ", vbOKOnly, "رسالة تنبيه " End If
شاهر قام بنشر يناير 16, 2006 الكاتب قام بنشر يناير 16, 2006 الاخ العزيز التقني السلام عليكم ورحمة الله الرساله صح لكن المطلوب ان كان قد سبق ادخل لهذا الموظف من سابق اظهارها اما ان كان اول انذار نهائي فلا تظهر الرساله ولكنها تظهر عند كل عملية اضافة جزاء وان كان اول نذار نهائي
شاهر قام بنشر يناير 18, 2006 الكاتب قام بنشر يناير 18, 2006 (معدل) هذه هي الرابطه المرفقات http://www.officena.net/ib/index.php?showtopic=10958 هذا هو المثال تم تعديل يناير 18, 2006 بواسطه شاهر
شاهر قام بنشر يناير 19, 2006 الكاتب قام بنشر يناير 19, 2006 (معدل) استاذي الكريم رضوان ربما لم استطع التوضح من المطلوب وهوا ان تكون الرساله بعد الجزاء الثاني ويكون انذار نهائي مع العلم بانه هناك عدة جزاءات تدخال للموظف مثل تنبيه / لفت نظر / انذار/ استدعاء حضور وفي المثال المعدل تطلع الرساله عند اول جزاء والغرض هو تنبه المستخدم انه في تاريخ سبق تم عمل انذار نهائي لهذا الموظف ان كان هناك اجراء اداري اخر سيتخذ مثل تحويل الموظف للمجلس تأديبي اوخصم اقسط او ما الاذلك هذا هو الغرض من الرساله تم تعديل يناير 19, 2006 بواسطه شاهر
شاهر قام بنشر يناير 21, 2006 الكاتب قام بنشر يناير 21, 2006 الاستاذر رضوان لم يكن شرح الاخير واضح ارجوا الاهتمام
شاهر قام بنشر يناير 24, 2006 الكاتب قام بنشر يناير 24, 2006 الاستاذ الكريم رضوان ارجوا منكم التكرم والاهتمام الامر عاجل
rudwan قام بنشر يناير 26, 2006 قام بنشر يناير 26, 2006 (معدل) أخي قم بتعديل الكود بحيث تجعل الشرط أكبر من واحد بدلا من أكبر من صفر أي استبدل السطر If DCount("rty", "gez", "[no]=" & g) > 0 Then ب : If DCount("rty", "gez", "[no]=" & g) > 1 Then تم تعديل يناير 26, 2006 بواسطه rudwan
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.