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

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

قام بنشر

السلام عليكم

المطلوب : تنفيذ امر الاخفاء والاظهار بزر امر واحد

بحيث اول كبسة على الزر يقوم بالاخفاء ويتغير اسم الزر الى اظهار

الكبسة الثانية على نفس الزر يقوم بالاظهار ويتحول اسمه الى اخفاء

اخفاء.jpg

hide_show.accdb

  • Like 1
  • تمت الإجابة
قام بنشر

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

 

حيا الله اخوي عبد اللطيف 🙂

 

تفضل:

image.png.c3a4b8e91525a17522c8e47145cd2d68.png

.

ثم

image.png.1e92336d7fe96c5e0b8c969b58133b0b.png

.

بهذا الكود :

Option Compare Database

Private Sub cmd_Hide_Show_Click()

    If Me.cmd_Hide_Show.Caption = "اخفاء" Then
    
        Call Hide
        Me.cmd_Hide_Show.Caption = "اظهار"
    
    Else
    
        Call Show
        Me.cmd_Hide_Show.Caption = "اخفاء"
        
    End If
    
End Sub

Private Sub Hide()

    Me.x1.Visible = False
    Me.x2.Visible = False
    Me.x3.Visible = False
    
End Sub

Private Sub Show()

    Me.x1.Visible = True
    Me.x2.Visible = True
    Me.x3.Visible = True
    
End Sub

 

جعفر

1144.hide_show.accdb.zip

  • Like 3
قام بنشر

حياك الله 🙂

 

واذا ما اردنا ان نكتب عربي في الكود ، فنستفيد من اعدادات الحقل ونحفظ القيمة هناك في tag الحقل ، هكذا :

image.png.c992b0091d79e06823ef4d394898765d.png

.

والكود يصبح (طبعا الكلمات بالعربي للتوضيح فقط ، ويمكنك حذفها من الكود) :

Private Sub cmd_Hide_Show_Click()

    Dim x() As String
    
    'اعمل هذه القيمة في مصفوفة : اخفاء,اظهار
    'والفارزة بين الكلمات عبارة عن فاصلة
    x = Split(Me.cmd_Hide_Show.Tag, ",")
    'x(0) = اول قيمة في المصفوفة ، وهي اخفاء
    'x(1) = ثاني قيمة في المصفوفة ، وهي اظهار
    
    If Me.cmd_Hide_Show.Caption = x(0) Then
    
        Call Hide
        Me.cmd_Hide_Show.Caption = x(1)
    
    Else
    
        Call Show
        Me.cmd_Hide_Show.Caption = x(0)
        
    End If
    
End Sub

 

جعفر

1144.1.hide_show.accdb.zip

  • Like 3
قام بنشر

جزاك الله خيرا استاذى العزيز @jjafferr قمه فالروعه

وجميل المثال الثانى باستخدام التاج واسبليت

هتخلصوا القهوه ههههههههههههههه

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

طبتم واهتديتم

  • Like 1

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

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

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

Important Information