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

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


kaser906

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

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

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

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

الموضوع

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

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

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

235106484.png

 

enbld.rar

رابط هذا التعليق
شارك

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

أخي العزيز

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

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

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

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

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

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

 

 

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

اتفضل

اليك هذا

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

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

 

enbld.rar

  • Thanks 1
رابط هذا التعليق
شارك

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 شوف الصورة1.PNG.6abdca1fb5e22dc0b00a812a4d93d575.PNG

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

رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

 

جعفر

جميل

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

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

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

رابط هذا التعليق
شارك

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

 

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

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

 

رابط هذا التعليق
شارك

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

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

نعم 

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

enbld.rar

  • Like 2
رابط هذا التعليق
شارك

في ‏١٧‏/‏٠٤‏/‏١٤٣٩ 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

 

تم تعديل بواسطه kaser906
رابط هذا التعليق
شارك

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

هذا هو الواقع

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

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

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

 

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

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

والله أعلم

  • Like 1
رابط هذا التعليق
شارك

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

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

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

نعم بالضبط

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

  • Like 2
رابط هذا التعليق
شارك

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

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



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

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

Important Information