اظهار زر عندما تكون احد صفحات الجدولة نشطة

[محمدنجار]

:: السلام عليكم ...... وكل عام واداريوا واعضاء المنتدى بخير

:: استكمالا لموضوع الصفحات المبوبة واجابة الاستاذ جعفر رعاه الله

:: كيف بمكن اضهار الزر cmd4  غندما تكون صفحة bbb  هي النشطة ..... مع الشكر

Tapages.rar

[يوسف أحمد]

و عليكم السلام

 

كل عام وانت و الجميع بخير و عافية اخي العزيز محمد

 

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

 

If Me.TabCtl0.Value = 1 Then
    Me.Cmd4.Visible = True
    MsgBox "bbbbbbbbbbbbbbbb"
 Else
    Me.Cmd4.Visible = False
 End If

 

تفضل مثالك بعد التعديل

 

بالتوفيق

Tapages.rar

[Shivan Rekany]

4 ساعات مضت, محمدنجار said:

:: السلام عليكم ...... وكل عام واداريوا واعضاء المنتدى بخير

:: استكمالا لموضوع الصفحات المبوبة واجابة الاستاذ جعفر رعاه الله

:: كيف بمكن اضهار الزر cmd4  غندما تكون صفحة bbb  هي النشطة ..... مع الشكر

Tapages.rar

اتفضل الي هذا الكود

Private Sub TabCtl0_Change()
 If Me.TabCtl0 = 1 Then
    Me.Cmd4.Visible = True
    MsgBox "bbbbbbbbbbbbbbbb"
 Else
    Me.Cmd4.Visible = False
 End If
End Sub

 

Tapages.rar

[يوسف أحمد]

اخي محمد

 

استدراك : الاجراء يتم استدعاؤه بحدث عند الفتح للنموذج  ( و ليس بحدث في الحالي للنموذج )  و حدث عند التغيير لعنصر علامة الجدولة   ... خطأ غير مقصود 

 

 

تم تعديل سبتمبر 4, 2017 بواسطه يوسف أحمد

[محمدنجار]

1 ساعه مضت, يوسف أحمد said:

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

If Me.TabCtl0.Value = 1 Then
    Me.Cmd4.Visible = True
    MsgBox "bbbbbbbbbbbbbbbb"
 Else
    Me.Cmd4.Visible = False
 End If

 

:: اشكرك من فلبي اخي العزبز يوسف ... فكرة جميلة .... ولكن ماذا لو كان لكل صفحة زر ينبغي ضهورة عندما تكون نشطة .... مع اعتذاري في تأخر الرد .

16 ساعات مضت, Shivan Rekany said:

اتفضل الي هذا الكود

Private Sub TabCtl0_Change()
 If Me.TabCtl0 = 1 Then
    Me.Cmd4.Visible = True
    MsgBox "bbbbbbbbbbbbbbbb"
 Else
    Me.Cmd4.Visible = False
 End If
End Sub

 

Tapages.rar

:: شكرا لك اخي الكريم شيفان ...  نعم نفس اجابة الاستاذ يوسف..... ولكن ماذا لو كان لكل صفحة زر ينبغي ضهورة عندما تكون نشطة .... مع اعتذاري في تأخر الرد .

[يوسف أحمد]

لا شكر على واجب اخي العزيز محمد

 

استبدل الاجراء بالتالي : 

 

Select Case Me.TabCtl0
    Case 0
         Me.Cmdaaa.Visible = True
         Me.cmdbbb.Visible = flase
         Me.cmdccc.Visible = flase
         MsgBox "aaa"
   Case 1
         Me.cmdbbb.Visible = True
         Me.Cmdaaa.Visible = flase
         Me.cmdccc.Visible = flase
         MsgBox "bbb"
    Case 2
         Me.cmdccc.Visible = True
         Me.Cmdaaa.Visible = flase
         Me.cmdbbb.Visible = flase
         MsgBox "ccc"
End Select

 

تفضل المرفق بعد التعديل

 

بالتوفيق

 

 

Tapages.rar

تم تعديل سبتمبر 5, 2017 بواسطه يوسف أحمد

[محمدنجار]

2 ساعات مضت, يوسف أحمد said:

لا شكر على واجب اخي العزيز محمد

:: نعم بالضبط ..انا ممتن لك كثيرا ... وهذا بس من ذوقك وكرم إخلاقك اخي العزيز يوسف .

تم تعديل سبتمبر 5, 2017 بواسطه محمدنجار

[يوسف أحمد]

بارك الله فيك و اكثر من امثالك اخي العزيز محمد 

 

ممكن ان تستخدم زر امر واحد فقط   .... سا شرح لك الطريقة ان اردت تنفيذها

 

سيتم ذلك بتعيين قيمة مختلفة لخاصية زر الامر ( علامة او بالانجليزية  Tag  ) عند اختيار تبويب معين من علامة الجدولة  ..   ثم بعد ذلك تقوم بعمل ما تريد فعله من زر الامر بناءً على قيمة هذه الخاصية .

 

سيتغير الاجراء ليكون كالتالي 

 

Select Case Me.TabCtl0
    Case 0
         Me.Cmd.Tag = 0
         MsgBox "aaa"
   Case 1
         Me.Cmd.Tag = 1
         MsgBox "bbb"
    Case 2
         Me.Cmd.Tag = 2
         MsgBox "ccc"
End Select

 

 

ثم في حدث عند النقر لزر الامر سنقوم بتنفيذ الاوامر حسب قيمة الخاصية   ... هنا قمت انا بعرض رسائل 

و الكود لزر الامر سيكون كالتالي :

 

Select Case Me.Cmd.Tag
    Case 0
        MsgBox "This is aaa"
    Case 1
        MsgBox "This is bbb"
    Case 2
        MsgBox "This is ccc"
End Select

 

 

تفضل الملف به الفكرة 

 

بالتوفيق  

 

 

Tapages.rar

[محمدنجار]

7 ساعات مضت, يوسف أحمد said:

بارك الله فيك و اكثر من امثالك اخي العزيز محمد 

تفضل الملف به الفكرة

:: الله الله عليك  استاذ يوسف  فكرة  ولاأروع  ..... بها يتم اختصار الوقت والحجم وكثرة  الاوامر .... لك مني اجمل  الأمنييات ..لكل  خير وسرور ..

[محمدنجار]

في 9/5/2017 at 16:43, يوسف أحمد said:

ممكن ان تستخدم زر امر واحد فقط   ....

:: شكرا اخي العزيز أستاذ يوسف ... أسأل الله تعالى لك حسن الختام ...

:: هناك نقطة واحده اود طرحها ... وهي بمجرد الانتقال للصفحة يتم فتح التقرير ...

:: احتاج تعديل حقول الصفحة اولا ومن ثم فتح التقرير من الزر على ضوء التعديل ... وقد عملته على ضوء ماتفضلت به .. لكن هل بالامكان اختصار التقارير الى واحد بدل ثلاثة ؟.

Tapages2.rar

[يوسف أحمد]

جزاك الله خير اخي العزيز محمد على دعواتك  ... و لك بمثل ما دعوت به و زيادة

 

لعمل ذلك قم بوضع الكود التالي بحدث عند التنسيق لمنطقة تفصيل التقرير

 

Select Case Forms!frm1.Form!Cmd.Tag

    Case 0
        Me.aa = DLookup("aa", "tbl1", "id= " & Me.ID)
        Me.aaa = DLookup("aaa", "tbl1", "id= " & Me.ID)
    Case 1
        Me.aa = DLookup("bb", "tbl1", "id= " & Me.ID)
        Me.aaa = DLookup("bbb", "tbl1", "id= " & Me.ID)
    Case 2
        Me.aa = DLookup("cc", "tbl1", "id= " & Me.ID)
        Me.aaa = DLookup("ccc", "tbl1", "id= " & Me.ID)

End Select

 

مع ضرورة حذف مصدر البيانات لمربعات النص على التقرير ( aa  و aaa  )  لأنه يتم التحكم بمحتواهما بالكود اعلاه 

 

ثم تضع سطر الكود التالي لفتح التقرير بحدث عند النقر لزر الامر

 

DoCmd.OpenReport "Rpt1a", acViewPreview

تفضل ملفك بعد التعديل

 

بالتوفيق

Tapages2.rar

تم تعديل سبتمبر 7, 2017 بواسطه يوسف أحمد

[يوسف أحمد]

و يمكن ايضاً تعديل التسميات لتناسب اسماء الحقول المعنية  ... سيتغير الكود الى التالي : 

 

Select Case Forms!frm1.Form!Cmd.Tag
    Case 0
        Me.aa = DLookup("aa", "tbl1", "id= " & Me.ID)
        Me.aaa = DLookup("aaa", "tbl1", "id= " & Me.ID)
        Me.lbl1.Caption = "aa"
        Me.lbl2.Caption = "aaa"
    Case 1
        Me.aa = DLookup("bb", "tbl1", "id= " & Me.ID)
        Me.aaa = DLookup("bbb", "tbl1", "id= " & Me.ID)
        Me.lbl1.Caption = "bb"
        Me.lbl2.Caption = "bbb"
    Case 2
        Me.aa = DLookup("cc", "tbl1", "id= " & Me.ID)
        Me.aaa = DLookup("ccc", "tbl1", "id= " & Me.ID)
        Me.lbl1.Caption = "cc"
        Me.lbl2.Caption = "ccc"
End Select

 

تفضل المرفق بعد التعديل

 

بالتوفيق

Tapages2.rar

تم تعديل سبتمبر 8, 2017 بواسطه يوسف أحمد

[محمدنجار]

23 ساعات مضت, يوسف أحمد said:

و يمكن ايضاً تعديل التسميات لتناسب اسماء الحقول المعنية  ... سيتغير الكود الى التالي : 

فضل المرفق بعد التعديل

:: اخي استاذ يوسف انا ممتن لك كثيرا لما تفضلت به لقدكفيت ووفيت  ... ولقد حصلت بفضلك على اكثر ما طلبت ... اسأل الله ان يحفظك ومن تحب بحفظه ويظلك تحت ظله .