سهل احمد العريشي قام بنشر أغسطس 11, 2004 مشاركة قام بنشر أغسطس 11, 2004 لدي مربع سرد وتحرير به القيم التالية متقاعد فصل للغياب تقديم استقالة مكلف على الوظيفة منتدب ولدي ثلاثة استعلامات الاول لالحاق بيانات من جدول الموظفين الى جدول 1 مثلا للموظف الذي تكون حالته متقاعد او فصل للغياب او تقديم استقالة الثاني لالحاق بيانات من جدول الموظفين الى جدول 2 مثلا للموظف الذي تكون حالته متقاعد او فصل للغياب او تقديم استقالة الثالث استعلام حذف لحذف الموظف الذي تكون حالته متقاعد او فصل للغياب او تقديم استقالة اريد عند اختيار احد القيم بعاليه مثال عند اختيار متقاعد او فصل للغياب او تقديم استقاله ان يقوم باعطاء رساله بانه سوف يتم حذف الموظف من السجلات الرسميه هل تريد المتابعة وعند اختيار نعم يقوم بتنفيذ الاستعلامات الثلاثة فورا اوردت المثال على هذا الرابط http://www.arabteam2000-forum.com/index.ph...=post&id=216345 رابط هذا التعليق شارك More sharing options...
Access XP قام بنشر أغسطس 11, 2004 مشاركة قام بنشر أغسطس 11, 2004 أخي الكريم لم استطع رؤية المثال لوجود خلل أو خطأ في الرابط عموما يمكنك عمل ذلك بسهولة من خلال الكود التالي : Private Sub ComboBox1_AfterUpdate() If Me.ComboBox1 = 1 Then DoCmd.OpenQuery "اسم الاستعلام الأول" ElseIf Me.ComboBox1 = 2 Then DoCmd.OpenQuery "اسم الاستعلام الثاني" ElseIf Me.ComboBox1 = 3 Then DoCmd.OpenQuery "اسم الاستعلام الثالث" End If End Sub وذلم على افتراض أن اسم مربع التحرير والسرد هو ComboBox1 والقيم التي يضمها هي : 1 ، 2 ، 3 وتقبل مني تحية رابط هذا التعليق شارك More sharing options...
سهل احمد العريشي قام بنشر أغسطس 12, 2004 الكاتب مشاركة قام بنشر أغسطس 12, 2004 اولا كل الشكر لك اخي العزيز والله لم اجد تجاوب الا منك فجزاك الله خيرا اخي ما اريده هو اذا اختيرت احد القيم الثلاثة فيتم تنفيذ الثلاثة استعلامات وهذه محاولة شرح ورابط لتنزيل المثال ()Private Sub ComboBox1 _AfterUpdate DoCmd.SetWarnings False Dim stDocName As String If Me.ComboBox1 = ([("1")] Or [("2")] Or [("3")]) Then اظهار رسالة تفيد بانه سيتم حذف الموظف من السجلات الرسميه DoCmd.SetWarnings False DoCmd.OpenQuery "set_gop" DoCmd.SetWarnings False DoCmd.OpenQuery "set_gop1" DoCmd.SetWarnings False DoCmd.OpenQuery "set3" DoCmd.SetWarnings False Else End If End Sub هذا ما اريده هو اذا اختير احد القيم 1 او 2 او 3 فيقوم باعطاء رسالة تنبيه وعند الموافقه يقوم بتنفيذ الاستعلامات الثلاثة دفعه واحدة المشكلة انه يقوم بتنفيذ الاستعلام الاول والثاني اما الثاني فلابد من اعادة الاختيار مره اخرى لنفس الموظف حتى يتم حذفه اي لاينفذ الا استعلامين الالحاق في اول مره ولان الاستعلام الاخر الثالث حذف فلا ينفذه الا عند اعادة المحاولة http://www.arabteam2000-forum.com/index.php?showtopic=44734 رابط هذا التعليق شارك More sharing options...
Access XP قام بنشر أغسطس 12, 2004 مشاركة قام بنشر أغسطس 12, 2004 هذا الكود بعد تعديله Private Sub combo_AfterUpdate() On Error Resume Next If Me.Combo = "متقاعد" Or Me.Combo = "تقديم استقالة" Or Me.Combo = "فصل من العمل" Then MsgBox "سيتم حذف هذا الموظف من السجلات الرسمية" DoCmd.SetWarnings False DoCmd.OpenQuery "set_gop" DoCmd.OpenQuery "set_gop1" DoCmd.OpenQuery "set3" DoCmd.SetWarnings True Else Exit Sub End If Me.Requery End Sub رابط هذا التعليق شارك More sharing options...
سهل احمد العريشي قام بنشر أغسطس 13, 2004 الكاتب مشاركة قام بنشر أغسطس 13, 2004 شكرا لك اخي اكسس على ما قمت به هذا العشم فيك وفي الموجودين اخي لطفا وعذرا لطمعي فيك هل من الممكن في حالة تم حذف موظف ان اجعل حقل الحالة في الجدول (الموظفين4 ) ثابت ودائما يضع عبارة شاغره وليس الحالة التي الحق على اساسها اي لو ان الموظف متقاعد تكون حالته في حقل الحاله في الجدول ( tmb_1) متقاعد بينما تكون الحالة في الجدول (الموظفين4 ) شاغره وعند ادخال بيانات لموظف جديد واختيرت له احد الوظائف الشاغره الموجوده في جدول ( الموظفين4 ) عن طريق مربع التحرير والسرد ( رقم الوظيفة ) ان يقوم بحذف هذه الوظيفة من الجدول ( الموظفين4 ) علما بانه يوجد كود في حدث بعد التحديث في نفس الحقل لا اريد ان يتغير ارجو ان لا اكون اطلت عليك ولكني كلي امل في قدرتك والاخوان جميعا ولك تحياتي رابط هذا التعليق شارك More sharing options...
Access XP قام بنشر أغسطس 14, 2004 مشاركة قام بنشر أغسطس 14, 2004 أخي الكريم هذا مثال لجعل الحالة شاغرة في الجدول الثاني db4.rar رابط هذا التعليق شارك More sharing options...
سهل احمد العريشي قام بنشر أغسطس 14, 2004 الكاتب مشاركة قام بنشر أغسطس 14, 2004 شكرا لك عزيزي اكسس ولكن المثال لا يمكن تطبيقه على القاعده لان حقل الحاله لدي هو عباره عن مربع سرد وتحرير ارجو تحميل المثال اذا لم يكن لديك وان كان ارجو التطبيق عليه ولك جزيل الشكر رابط هذا التعليق شارك More sharing options...
Access XP قام بنشر أغسطس 15, 2004 مشاركة قام بنشر أغسطس 15, 2004 هل هذا يفي بالمطلوب mo-2.rar رابط هذا التعليق شارك More sharing options...
سهل احمد العريشي قام بنشر أغسطس 15, 2004 الكاتب مشاركة قام بنشر أغسطس 15, 2004 عزيزي اكسس شكرا على تعبك معايا ولكن انت حذفت من الاستعلام المعايير الموجوده في حقل الحاله فأصبح هكذا يلحق جميع السجلات عموما وجدت طريقة وهي بأضافة حقل اخر واسميته حالة الموظف واعطاني النتيجة 100 على 100 الان اصبح لدي الوظائف الشاغرة هل لديك فكره او طريقة انه في حال عين موظف على احد الوظائف الشاغره ان تحذف هذه الوظيفة تلقائيا من الجدول الموظفين4 مثال في رقم الوظيفة ان يكون هنالك كود في حال وجدت وظيفة مشغولة في الجدول الموظفين يتم حذفها من جدول الموظفين4 عارف اني مغلبك ولكن العشم فيك كبير ياخوي اكسس رابط هذا التعليق شارك More sharing options...
Access XP قام بنشر أغسطس 15, 2004 مشاركة قام بنشر أغسطس 15, 2004 أعتذر عن ذلك فقد قمت بتجربة شئ آخر على القاعدة ... ثم نسيت إعادة الاستعلامات لحالتها قبل ضغطها وتحميلها للمنتدى أما بالنسبة لسؤالك فيمكنك عمل استعلام حذف . رابط هذا التعليق شارك More sharing options...
سهل احمد العريشي قام بنشر أغسطس 17, 2004 الكاتب مشاركة قام بنشر أغسطس 17, 2004 شكرا لك على تواصلك معي والله انك لرائع في صبرك اخي لقد توصلت الى طريق ارجو ان تقول لي ما رأيك بها اولا عملت استعلام للبحث عن غير المتطابقات بين الجدول الموجوده به الوظائف الرسمية وهو جدول ( tmb_1 ) وجدول الموظفين طبعا النتيجة كانت هي اظهار الوظائف الشاغرة ثم عملت استعلام الحاق من الاستعلا م السابق الى جدول الشواغر وهكذا عند حذف اي موظف من جدول الموظفين سوف يذهب عن طريق الاستعلام الى جدول الشواغروهو ( الموظفين4 ) واذا سجل موظف على احد الوظائف الشاغرة طبعا لا يتم ادراجها في جدول الشواغر ارجو ابداء رأيك فهو يهمني جدا وهل من الممكن جعل هذين الاستعلامين يعملان تلقائيا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.