تجميد وتنشيط أزرار التنقل بين السجلات

[kaser906]

السلام عليكم ورحمة الله وبركاتة

الموضوع الذي أطرحه الآن كنت طرحته من قبل مدة طويلة من الزمن في أحد المنتديات وحصلت على إجابه لكنها غير فعالة وغير مرضية

حيث كانت تعتمد على إغلاق النموذج وإعادة فتحه من جديد

الموضوع

باختصار كما هو موضح بالصورة المرفقة

المطلوب عند الضغط على زر الأمر يتم إيقاف تنشيط ازرار التنقل بالنموذج

وعند الضغط على زر الأمر الأخر يتم تنشيطها من جديد

 

enbld.rar

[kaser906]

21 ساعات مضت, أبو آدم said:

أخي العزيز

إخوتي الفضلاء

التطبيق المرفق يغطي كافة أزرار التنقل بين السجلات Navigation Buttons و توليفة حالاتها 

يغطي Back و Next و New و First و Last

مع مربع نص لاظهار عدد السجلات مع توليفة أحواله

مع امنياتي بعموم الفائدة 

و الله من وراء القصد ...

 

 

استاذي أبو أدم

ليس هذا ما أريده

اريد الغاء تنشيط ازرار التنقل للنموذج الأساس الواقعة على شريط النموذج من الأسفل

  والمشار اليها في الصورة أعلاة بالمربع الأسود  عند النقر على زر أمر داخل النموذج

[Shivan Rekany]

1 ساعه مضت, kaser906 said:

اريد الغاء تنشيط ازرار التنقل للنموذج الأساس الواقعة على شريط النموذج من الأسفل

  والمشار اليها في الصورة أعلاة بالمربع الأسود  عند النقر على زر أمر داخل النموذج

استأذن من استاذنا ابو ادم

اتفضل

اليك هذا

Private Sub cmdenbld_Click()
    ' للاخفاء
    Me.NavigationButtons = False
End Sub

Private Sub cmdenbld1_Click()
    ' للاظهار
    Me.NavigationButtons = True
End Sub

 

enbld.rar

[Amr Ashraf]

اضافة الى ما قال الاساتذة يمكن من خصائص النموذج فى تبويب Format هتلاقى Navigation Buttons خليها No شوف الصورة

[kaser906]

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

استأذن من استاذنا ابو ادم

اتفضل

اليك هذا

Private Sub cmdenbld_Click()
    ' للاخفاء
    Me.NavigationButtons = False
End Sub

Private Sub cmdenbld1_Click()
    ' للاظهار
    Me.NavigationButtons = True
End Sub

 

enbld.rar

يعطيك العافيه أستاذ شفان

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

اريد فقط تجميد الازرار بدون اخفائها

1 ساعه مضت, Amr Ashraf said:

اضافة الى ما قال الاساتذة يمكن من خصائص النموذج فى تبويب Format هتلاقى Navigation Buttons خليها No شوف الصورة

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

[Amr Ashraf]

اخى الكريم على حد علمى لا يوجد ما يسمى تجميد لأنها ليست زر بالمعنى التقليدى يمكنك عمل Enabled او العكس ولكن يمكن التحكم باظهارها او اخفاءها فقط ... ومتابع اذا كان هناك حل من احد الاخوة

[jjafferr]

هذا سطر ، يا موجود بالكامل ، ويا غير موجود بالكامل ،

لهذا السبب اخي ابو آدم اقترح البديل

 

جعفر

[kaser906]

29 دقائق مضت, Amr Ashraf said:

اخى الكريم على حد علمى لا يوجد ما يسمى تجميد لأنها ليست زر بالمعنى التقليدى يمكنك عمل Enabled او العكس ولكن يمكن التحكم باظهارها او اخفاءها فقط ... ومتابع اذا كان هناك حل من احد الاخوة

اخي بحسب الشرح الذي بالصورة

يعني ان هناك تعليمة برمجية موجودة

ولذلك يبقى السؤال هل يمكن الوصول لهذه التعليمة وتوظيفها حسب المطلوب

20 دقائق مضت, jjafferr said:

هذا سطر ، يا موجود بالكامل ، ويا غير موجود بالكامل ،

هنا  السؤال ؟؟؟

الذي يحتاج إجابة الخبراء

[jjafferr]

وحصلت على الاجابة

[kaser906]

8 دقائق مضت, jjafferr said:

وحصلت على الاجابة

إلى الآن الإجابة مش واضحة

اريد إجابة غير دبلماسية

أما   نعم   أو    لا

[jjafferr]

لا يمكن تجزأت السطر هذا ،

فإما تُظهره بالكامل ، او تخفيه بالكامل.

 

جعفر

[kaser906]

2 دقائق مضت, jjafferr said:

لا يمكن تجزأت السطر هذا ،

فإما تُظهره بالكامل ، او تخفيه بالكامل.

 

جعفر

جميل

الآن استطيع أن أطرح السؤال الأخر

هل يمكن إيقاف عمل الأزرار بعد النقر على زر  أمر

بمعنى لو نقرة على زر التالي لايستجيب وعند النقر على زر السابق لايستجب وعند النقر على زر السجل الأول وعند النقر على زر السجل الأخير نفس الشي

[jjafferr]

التحكم الوحيد لهذا السطر ،

 يا موجود بالكامل ، ويا غير موجود بالكامل ،

يعني يا ظاهر ، او مخفي

يعني نفس الاجابات السابقة

 

جعفر

 

[Shivan Rekany]

12 دقائق مضت, kaser906 said:

 

الآن استطيع أن أطرح السؤال الأخر

هل يمكن إيقاف عمل الأزرار بعد النقر على زر  أمر

بمعنى لو نقرة على زر التالي لايستجيب وعند النقر على زر السابق لايستجب وعند النقر على زر السجل الأول وعند النقر على زر السجل الأخير نفس الشي

هذا السؤال نفس السؤال الاول وهناك حل لكن شوية صعبة عليك

[kaser906]

الله يعطيكم العافية اساتذتي

[Shivan Rekany]

اتفضل اليك هذا الخدعة لكي تقم بذلك

Private Sub cmdenbld_Click()
   Me.Form.RecordSource = ""
   Me.id.ControlSource = ""
    Me.Fname.ControlSource = ""
End Sub

Private Sub cmdenbld1_Click()
    Me.Form.RecordSource = "SELECT Tabl_Emp.id, Tabl_Emp.Fname FROM Tabl_Emp; "
    Me.id.ControlSource = "id"
    Me.Fname.ControlSource = "fname"
End Sub

Private Sub Form_Load()
    Call cmdenbld1_Click
End Sub

 

enbld.rar

[kaser906]

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

اتفضل اليك هذا الخدعة لكي تقم بذلك

Private Sub cmdenbld_Click()
   Me.Form.RecordSource = ""
   Me.id.ControlSource = ""
    Me.Fname.ControlSource = ""
End Sub

Private Sub cmdenbld1_Click()
    Me.Form.RecordSource = "SELECT Tabl_Emp.id, Tabl_Emp.Fname FROM Tabl_Emp; "
    Me.id.ControlSource = "id"
    Me.Fname.ControlSource = "fname"
End Sub

Private Sub Form_Load()
    Call cmdenbld1_Click
End Sub

 

enbld.rar

يعطيك العافية أستاذ شفان

الطريقة فعالة

لكن توجد بها مشكلة عدم الإضافة او التعديل عند النقر على الزر

كل الشكر والتقدير

 

[Shivan Rekany]

9 ساعات مضت, kaser906 said:

لكن توجد بها مشكلة عدم الإضافة او التعديل

نعم 

لكن هذا يعود لخصائص نموذج
من قبل ان افكر في هذه الطريقة كان جربت كم طرائق لكن وحينئذ انا غيرت خاصية النموذج قفل السجل اي ( Record Locks ) يساوي All Records
تم تغير الى No Locks 
والان مافی المشکلە

enbld.rar

[kaser906]

في ‏١٧‏/‏٠٤‏/‏١٤٣٩ at 15:55, Shivan Rekany said:

نعم 

لكن هذا يعود لخصائص نموذج
من قبل ان افكر في هذه الطريقة كان جربت كم طرائق لكن وحينئذ انا غيرت خاصية النموذج قفل السجل اي ( Record Locks ) يساوي All Records
تم تغير الى No Locks 
والان مافی المشکلە

enbld.rar

نفس الشي أستاذ شفان

بعد النقر على زر إيقاف

لايمكن التعديل على سجل ولا يمكن إضافة سجل جديد

أعتقد أن سأكتفي باقتراحك الأول

Private Sub cmdenbld_Click()
    ' للاخفاء
    Me.NavigationButtons = False
End Sub

Private Sub cmdenbld1_Click()
    ' للاظهار
    Me.NavigationButtons = True
End Sub

 

تم تعديل يناير 5, 2018 بواسطه kaser906

[Shivan Rekany]

4 ساعات مضت, kaser906 said:

بعد النقر على زر إيقاف

لايمكن التعديل على سجل ولا يمكن إضافة سجل جديد

في الاول اذا تضغط او لا تضغط على الزر لا يمكنك ان تعمل تعديل او تضيف له سجل جديد
لكن في المشاركتي الاخيرة يمكنك ان تضيف او تعمل تعديل على السجلات 

لكن قبل ان تضغط على الايقاف
وبعد ان تضغط على الايقاف سيكون مصدر النموذج بيساوي لا شيء اي لذلك لا تقدر تعمل اي شيء 

[kaser906]

شوكرا لك استاذ 

[عبد الفتاح كيرة]

الإخفاء جملة أو الإظهار جملة

هذا هو الواقع

أما عدم التمكين فيكون 

لزر السابق عندما لا يكون هناك سجل سابق

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

 

أما مع وجود السجلات السابقة و اللاحقة

فلا معنى لعدم تمكين الأزرار مع إمكانية التنقل

والله أعلم

[Shivan Rekany]

20 دقائق مضت, عبد الفتاح كيرة said:

أما مع وجود السجلات السابقة و اللاحقة

فلا معنى لعدم تمكين الأزرار مع إمكانية التنقل

نعم بالضبط

لذلك قمنا باعطاء الطريقة الثانية اي تغيرنا مصدر النموذج بلا شيء