اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

لدي مربع سرد وتحرير به القيم التالية

متقاعد

فصل للغياب

تقديم استقالة

مكلف على الوظيفة

منتدب

ولدي ثلاثة استعلامات

الاول لالحاق بيانات من جدول الموظفين الى جدول 1 مثلا للموظف الذي تكون حالته متقاعد او فصل للغياب او تقديم استقالة

الثاني لالحاق بيانات من جدول الموظفين الى جدول 2 مثلا للموظف الذي تكون حالته متقاعد او فصل للغياب او تقديم استقالة

الثالث استعلام حذف لحذف الموظف الذي تكون حالته متقاعد او فصل للغياب او تقديم استقالة

اريد عند اختيار احد القيم بعاليه مثال عند اختيار متقاعد او فصل للغياب او تقديم استقاله ان يقوم باعطاء رساله بانه سوف يتم حذف الموظف من السجلات الرسميه هل تريد المتابعة وعند اختيار نعم يقوم بتنفيذ الاستعلامات الثلاثة فورا

اوردت المثال على هذا الرابط

http://www.arabteam2000-forum.com/index.ph...=post&id=216345

قام بنشر

أخي الكريم

لم استطع رؤية المثال لوجود خلل أو خطأ في الرابط

عموما

يمكنك عمل ذلك بسهولة من خلال الكود التالي :

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

وتقبل مني تحية

قام بنشر

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

وهذه محاولة شرح ورابط لتنزيل المثال

()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

قام بنشر

هذا الكود بعد تعديله

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

قام بنشر

شكرا لك اخي اكسس على ما قمت به هذا العشم فيك وفي الموجودين

اخي لطفا وعذرا لطمعي فيك هل من الممكن في حالة تم حذف موظف ان اجعل حقل الحالة في الجدول (الموظفين4 ) ثابت ودائما يضع عبارة شاغره وليس الحالة التي الحق على اساسها اي لو ان الموظف متقاعد تكون حالته في حقل الحاله في الجدول ( tmb_1) متقاعد بينما تكون الحالة في الجدول (الموظفين4 ) شاغره وعند ادخال بيانات لموظف جديد واختيرت له احد الوظائف الشاغره الموجوده في جدول ( الموظفين4 ) عن طريق مربع التحرير والسرد ( رقم الوظيفة ) ان يقوم بحذف هذه الوظيفة من الجدول ( الموظفين4 ) علما بانه يوجد كود في حدث بعد التحديث في نفس الحقل لا اريد ان يتغير ارجو ان لا اكون اطلت عليك ولكني كلي امل في قدرتك والاخوان جميعا ولك تحياتي

قام بنشر

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

قام بنشر

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

قام بنشر

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

أما بالنسبة لسؤالك فيمكنك عمل استعلام حذف .

قام بنشر

شكرا لك على تواصلك معي والله انك لرائع في صبرك اخي لقد توصلت الى طريق ارجو ان تقول لي ما رأيك بها

اولا عملت استعلام للبحث عن غير المتطابقات بين الجدول الموجوده به الوظائف الرسمية وهو جدول ( tmb_1 ) وجدول الموظفين طبعا النتيجة كانت هي اظهار الوظائف الشاغرة ثم عملت استعلام الحاق من الاستعلا م السابق الى جدول الشواغر وهكذا عند حذف اي موظف من جدول الموظفين سوف يذهب عن طريق الاستعلام الى جدول الشواغروهو ( الموظفين4 ) واذا سجل موظف على احد الوظائف الشاغرة طبعا لا يتم ادراجها في جدول الشواغر ارجو ابداء رأيك فهو يهمني جدا وهل من الممكن جعل هذين الاستعلامين يعملان تلقائيا

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information