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

[عبد اللطيف سلوم]

السلام عليكم

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

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

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

hide_show.accdb

[jjafferr]

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

 

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

 

تفضل:

.

ثم

.

بهذا الكود :

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

[عبد اللطيف سلوم]

 يسلموا ايديك معلم جعفر

دائما سباق للخير

ومنكم نستفيد

[jjafferr]

حياك الله 🙂

 

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

.

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

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

[أبوبسمله]

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

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

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

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

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