• 0
orphan94

اظهار خلايا عن طريق مربع سرد

سؤال

السلام عليكم

اخوتي الكريرام

يوجد لدي مربع  سرد

حين يتم اختيار كلمة  اصنف يتم اظهار مربع A  و  B

ويكون مربع  C  مخفي

 

وحين يتم اختيار كلمة  المورد  يتم اظهار مربع C  ويكون مربع  A و B مخفي

كيف يتم ذالك

ارجوا المساعده

post-69427-0-63212100-1410368996_thumb.j

 

 

 

 

 

تجربه.zip

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

23 إجابة على هذا السؤال .

  • 0

تفضل هذا كود النموذج :)

Private Sub Ctl1_AfterUpdate()    Select Case Me.Ctl1        Case "الصنف"            Me.a.Visible = True            Me.b.Visible = True            Me.c.Visible = False                    Case "المورد"            Me.a.Visible = False            Me.b.Visible = False            Me.c.Visible = True        End Select    End SubPrivate Sub Form_Load()    Me.a.Visible = False    Me.b.Visible = False    Me.c.Visible = FalseEnd Sub

جعفر

2

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اشكر اخي الكريم


هل من الممكن تطبيق في المثال المرفق


0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي الفاضل :)

 

كل اللي عليك عمله هو نسخ الكود من مشاركتي اعلاه ، والصاقه في كود نموذجك ، ومافي شي أخر :)

 

 

جعفر

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اشكرك اخي الكريم

ولكن لم اتمكن من نسخ الكود بشكل سريع

تم عملية انسخ عن طيق اقتباس للمشاركه

واخذ الكون منها بشكل سليم

شكر ا لك

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي العزيز

هناك مشكلة

وهي حين تجربه المثال

نجد ان الخانتا مخفيه ولا تظهر البيانات

 

وكاني لم اقم بالاختيار

 

ارجوا تجربه وايجاد حل لهذه المشكلة

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

ممكن صورة من المشكلة :)

 

جعفر

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

حين فتح النموذج

لا يتم اظهار البينات التي تم اختيارها

وكاني لم اقم باختيارها ولكي تظهر البيانات يجب ان اختارها من جديد

وهذا غير جيد

post-69427-0-49930300-1410457453_thumb.j

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

يعني قصدك:

ان البرنامج شغال كما طلبت:

 

حين يتم اختيار كلمة  اصنف يتم اظهار مربع A  و  B

ويكون مربع  C  مخفي

 

وحين يتم اختيار كلمة  المورد  يتم اظهار مربع C  ويكون مربع  A و B مخفي

 

 

والآن تريد البرنامج يعطيك النتيجة عند فتح النموذج :)

 

استخدم هذا الكود:

Private Sub Form_Load()    Call Ctl1_AfterUpdateEnd Subبدلا عنPrivate Sub Form_Load()    Me.a.Visible = False    Me.b.Visible = False    Me.c.Visible = False    End Sub

جعفر

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي العزيز لم تفهم طلبي

حين يتم اختيار كلمة  اصنف يتم اظهار مربع A  و  B
 

ويكون مربع  C  مخفي

وحين يتم اختيار كلمة  المورد  يتم اظهار مربع C  ويكون مربع  A و B مخفي

 

جميل جدا

 

لكن المشكلة

تم اختيار كلمة صنف

وتم كتابه داخل  مربع A  و   B

الى الان ممتاز

المشكلة

حين اغلاق النموذج وفتحه من جديد

لا يظهر مربع A  و  B

وخاصه ان تم اختيار اصنف

وكاني لم اقم بكتابه أي شي في مربع  A  و   Bويجب ان اختاره من جديد لكي تظهر البينات التي تم كتابتها من قبل

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

هذا بالضبط ما يفعله الكود في مشاركتي السابقة :)

 

جعفر

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الافضل استخدام حث "الحالي" في النموذج ، بدل حدث "عند التحميل" والذي اعطيتك سابقا؟

Private Sub Form_Current()On Error GoTo err_Form_Current    Call Ctl1_AfterUpdate    Exit Suberr_Form_Current:    If Err.Number = 3044 Then        Resume Next    Else        MsgBox Err.Number & vbCrLf & Err.Description    End If    End Sub

جعفر

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اشكرك اخي العزيز

ولكن هناك مشكلة وهي

حين اضافه جديد

يكون ضاهر اخر مربع تم فتح

وهذا ليس مناسب

ويجب ان يكون مخفي وليس ضاهر

حين اضافه جديده

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الله يطول في عمرك اخوي :)

ياريت تخبرني كل المطلوب مرة واحدة وما تعطينا الطلبات بالقطارة :(

لأن المبرمج انت ، وانت فاهم تفاصيل برنامجك ، وإما نحن فنحاول مساعدتك فقط في السؤال اللي تطرحه ، وما نتطرق لبقية البرنامج ، ولا حتى نعرفه :(

 

تفضل هذه الاضافة التي طلبتها :)

حط هذا الكود بدل اللي في مشاركتي السابقة:

Private Sub Form_Current()On Error GoTo err_Form_Current    If Me.NewRecord Then        Me.Ctl1 = ""        Me.a.Visible = False        Me.b.Visible = False        Me.c.Visible = False    Else        Call Ctl1_AfterUpdate    End If    Exit Suberr_Form_Current:    If Err.Number = 3044 Then        Resume Next    Else        MsgBox Err.Number & vbCrLf & Err.Description    End If    End Sub

جعفر

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

حياك الله :)

0

شارك هذا الرد


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

 

 

وهو حين اختيار من ( الصنف ) من مربع سرد 

 

 

يظهر خليه a  و  b

 

 

هذا شي جميل

 

 

ولكن في المستقبل حين تغير من ( الصنف ) في خانه مربع سرد  الى ( الاسم ) 

 

 

لا تختفي  خلة  a و b

 

 

 

 

 

هل من الممكن المساعده في حالة  تغير من ( الصنف ) الى ( الاسم ) 

 

 

حيث ان ( الاسم ) لا يظهر اي  خليه وان تختفي  a و b و c  

 

 

 

 

260.تجربه.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

تفضل :)

 

 

الكود الجديد:

Private Sub Ctl1_AfterUpdate()    Select Case Me.Ctl1        Case "ÇáÕäÝ"            Me.a.Visible = True            Me.b.Visible = True            Me.c.Visible = False                    Case "ÇáãæÑÏ"            Me.a.Visible = False            Me.b.Visible = False            Me.c.Visible = True                    Case Else            Me.a.Visible = False            Me.b.Visible = False            Me.c.Visible = False        End Select    End Sub

جعفر

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اشكرك حبيبي

على المساعده الجميله و المتميزه

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

حياك الله :)

 

 

جعفر

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .