فورم بحث عن طريق اسم وفورم ادخال (ترحيل بيانات) جاهزين للعمل والتعلم

[محمد القمجي]

بسم الله الرحمن الرحيم 

اقدم لكم اخواني اليوم فورم للبحث والترحيل بشكل منفصل لللاخ aliz اتمنى ان يفيدكم 

لا تنسونا من الدعاء 

وشكرااااا

فورم بحث وادخال جاهز.rar

[ياسر خليل أبو البراء]

بسم الله ما شاء الله

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

أنا استفدت كثيرا خصوصا أنني لا أجيد التعامل مع اليوزرفورم .. بصراحة بدأت أحب التعامل معاها بسبب ملفك الجميل .. الرائع

فيه جزئية عايز أسألك عليها

ايه الجزء دا في الكود:

Private Sub ToggleButton2_Click()
If Me.ToggleButton2.Value = True Then
Frame1.Visible = False
Frame2.Visible = True
End If
End Sub

[محمد القمجي]

بارك الله فيك

يسعدني ان نجد من يتعلم

هذه الجزئيه ليس لها عﻻقه بكود البحث او الترحيل وانما تستخدم لوضع زر بضغطتين مختلفتين

[جلال الجمال_ابو أدهم]

بارك الله فيك_ تحياتى

[محمد القمجي]

تسلم ابو ادهم تشكر

[محمد القمجي]

up

[الجموعي]

بارك الله فيك أخي على هذا العمل الجميل

[الجموعي]

 

بسم الله ما شاء الله

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

أنا استفدت كثيرا خصوصا أنني لا أجيد التعامل مع اليوزرفورم .. بصراحة بدأت أحب التعامل معاها بسبب ملفك الجميل .. الرائع

فيه جزئية عايز أسألك عليها

ايه الجزء دا في الكود:

Private Sub ToggleButton2_Click()
If Me.ToggleButton2.Value = True Then
Frame1.Visible = False
Frame2.Visible = True
End If
End Sub

 

 من بعد إذن الأستاذ محمد

شرح بسيط مني للجزئية

Private Sub ToggleButton2_Click()
'بداية الشرط عند الضغط على زر تبديل
If Me.ToggleButton2.Value = True Then
'ظهورالإطار 1 = خطأ
Frame1.Visible = False
'ظهورالإطار 2 = صحيح
Frame2.Visible = True
' نهاية الشرط
End If

End Sub

[ياسر خليل أبو البراء]

الاخ الحبيب الجموعي

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

أنا قصدت أني لم ألمس الكود في اليوزرفورم أي أنه ليس له تأثير باليوزرفورم .......!!

تقبل تحياتي

[الجموعي]

 

الاخ الحبيب الجموعي

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

أنا قصدت أني لم ألمس الكود في اليوزرفورم أي أنه ليس له تأثير باليوزرفورم .......!!

تقبل تحياتي

 

أخي الكريم

معذرة..... كلامك مضبوط ..... سوء فهم

ودي وتقديري

[ياسر خليل أبو البراء]

هل يمكن إضافة زر Toggle Button لأن خبرتي ضعيفة في UserForms ؟

أريد أن أرى تأثيرها على الإطار Frame

[الجموعي]

 

هل يمكن إضافة زر Toggle Button لأن خبرتي ضعيفة في UserForms ؟

أريد أن أرى تأثيرها على الإطار Frame

 

 

نعم يمكنك ذلك

الكود

Private Sub ToggleButton1_Click()
If Me.ToggleButton1.Value = True Then
Frame1.Visible = False
Frame2.Visible = True
End If
If Me.ToggleButton1.Value = False Then
Frame1.Visible = True
Frame2.Visible = False
End If
End Sub

Private Sub UserForm_Activate()
Frame2.Visible = False
End Sub

شاهد المرفق

 

Toggle Button.rar

[ياسر خليل أبو البراء]

بارك الله فيك وجزاك الله كل خير ..

[الجموعي]

 

بارك الله فيك وجزاك الله كل خير ..

 

وفيك بارك الله أستاذي أبو البراء

كل هذا بفضلكم

جزيتم خيرا

[محمد القمجي]

بارك الله بيكم اخواني

تسلم ايدك استاذ الجموعي جزاك الله خيرا