kaser906 قام بنشر يناير 3, 2018 مشاركة قام بنشر يناير 3, 2018 السلام عليكم ورحمة الله وبركاتة الموضوع الذي أطرحه الآن كنت طرحته من قبل مدة طويلة من الزمن في أحد المنتديات وحصلت على إجابه لكنها غير فعالة وغير مرضية حيث كانت تعتمد على إغلاق النموذج وإعادة فتحه من جديد الموضوع باختصار كما هو موضح بالصورة المرفقة المطلوب عند الضغط على زر الأمر يتم إيقاف تنشيط ازرار التنقل بالنموذج وعند الضغط على زر الأمر الأخر يتم تنشيطها من جديد enbld.rar رابط هذا التعليق شارك More sharing options...
kaser906 قام بنشر يناير 3, 2018 الكاتب مشاركة قام بنشر يناير 3, 2018 21 ساعات مضت, أبو آدم said: أخي العزيز إخوتي الفضلاء التطبيق المرفق يغطي كافة أزرار التنقل بين السجلات Navigation Buttons و توليفة حالاتها يغطي Back و Next و New و First و Last مع مربع نص لاظهار عدد السجلات مع توليفة أحواله مع امنياتي بعموم الفائدة و الله من وراء القصد ... استاذي أبو أدم ليس هذا ما أريده اريد الغاء تنشيط ازرار التنقل للنموذج الأساس الواقعة على شريط النموذج من الأسفل والمشار اليها في الصورة أعلاة بالمربع الأسود عند النقر على زر أمر داخل النموذج رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر يناير 3, 2018 مشاركة قام بنشر يناير 3, 2018 1 ساعه مضت, kaser906 said: اريد الغاء تنشيط ازرار التنقل للنموذج الأساس الواقعة على شريط النموذج من الأسفل والمشار اليها في الصورة أعلاة بالمربع الأسود عند النقر على زر أمر داخل النموذج استأذن من استاذنا ابو ادم اتفضل اليك هذا Private Sub cmdenbld_Click() ' للاخفاء Me.NavigationButtons = False End Sub Private Sub cmdenbld1_Click() ' للاظهار Me.NavigationButtons = True End Sub enbld.rar 1 رابط هذا التعليق شارك More sharing options...
Amr Ashraf قام بنشر يناير 3, 2018 مشاركة قام بنشر يناير 3, 2018 اضافة الى ما قال الاساتذة يمكن من خصائص النموذج فى تبويب Format هتلاقى Navigation Buttons خليها No شوف الصورة رابط هذا التعليق شارك More sharing options...
kaser906 قام بنشر يناير 3, 2018 الكاتب مشاركة قام بنشر يناير 3, 2018 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 شوف الصورة ليس هذا هو المطلوب رابط هذا التعليق شارك More sharing options...
Amr Ashraf قام بنشر يناير 3, 2018 مشاركة قام بنشر يناير 3, 2018 اخى الكريم على حد علمى لا يوجد ما يسمى تجميد لأنها ليست زر بالمعنى التقليدى يمكنك عمل Enabled او العكس ولكن يمكن التحكم باظهارها او اخفاءها فقط ... ومتابع اذا كان هناك حل من احد الاخوة رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 3, 2018 مشاركة قام بنشر يناير 3, 2018 هذا سطر ، يا موجود بالكامل ، ويا غير موجود بالكامل ، لهذا السبب اخي ابو آدم اقترح البديل جعفر رابط هذا التعليق شارك More sharing options...
kaser906 قام بنشر يناير 3, 2018 الكاتب مشاركة قام بنشر يناير 3, 2018 29 دقائق مضت, Amr Ashraf said: اخى الكريم على حد علمى لا يوجد ما يسمى تجميد لأنها ليست زر بالمعنى التقليدى يمكنك عمل Enabled او العكس ولكن يمكن التحكم باظهارها او اخفاءها فقط ... ومتابع اذا كان هناك حل من احد الاخوة اخي بحسب الشرح الذي بالصورة يعني ان هناك تعليمة برمجية موجودة ولذلك يبقى السؤال هل يمكن الوصول لهذه التعليمة وتوظيفها حسب المطلوب 20 دقائق مضت, jjafferr said: هذا سطر ، يا موجود بالكامل ، ويا غير موجود بالكامل ، هنا السؤال ؟؟؟ الذي يحتاج إجابة الخبراء 1 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 3, 2018 مشاركة قام بنشر يناير 3, 2018 وحصلت على الاجابة رابط هذا التعليق شارك More sharing options...
kaser906 قام بنشر يناير 3, 2018 الكاتب مشاركة قام بنشر يناير 3, 2018 8 دقائق مضت, jjafferr said: وحصلت على الاجابة إلى الآن الإجابة مش واضحة اريد إجابة غير دبلماسية أما نعم أو لا رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 3, 2018 مشاركة قام بنشر يناير 3, 2018 لا يمكن تجزأت السطر هذا ، فإما تُظهره بالكامل ، او تخفيه بالكامل. جعفر رابط هذا التعليق شارك More sharing options...
kaser906 قام بنشر يناير 3, 2018 الكاتب مشاركة قام بنشر يناير 3, 2018 2 دقائق مضت, jjafferr said: لا يمكن تجزأت السطر هذا ، فإما تُظهره بالكامل ، او تخفيه بالكامل. جعفر جميل الآن استطيع أن أطرح السؤال الأخر هل يمكن إيقاف عمل الأزرار بعد النقر على زر أمر بمعنى لو نقرة على زر التالي لايستجيب وعند النقر على زر السابق لايستجب وعند النقر على زر السجل الأول وعند النقر على زر السجل الأخير نفس الشي رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 3, 2018 مشاركة قام بنشر يناير 3, 2018 التحكم الوحيد لهذا السطر ، يا موجود بالكامل ، ويا غير موجود بالكامل ، يعني يا ظاهر ، او مخفي يعني نفس الاجابات السابقة جعفر 1 رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر يناير 3, 2018 مشاركة قام بنشر يناير 3, 2018 12 دقائق مضت, kaser906 said: الآن استطيع أن أطرح السؤال الأخر هل يمكن إيقاف عمل الأزرار بعد النقر على زر أمر بمعنى لو نقرة على زر التالي لايستجيب وعند النقر على زر السابق لايستجب وعند النقر على زر السجل الأول وعند النقر على زر السجل الأخير نفس الشي هذا السؤال نفس السؤال الاول وهناك حل لكن شوية صعبة عليك 1 رابط هذا التعليق شارك More sharing options...
kaser906 قام بنشر يناير 3, 2018 الكاتب مشاركة قام بنشر يناير 3, 2018 الله يعطيكم العافية اساتذتي رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر يناير 3, 2018 مشاركة قام بنشر يناير 3, 2018 اتفضل اليك هذا الخدعة لكي تقم بذلك 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 2 رابط هذا التعليق شارك More sharing options...
kaser906 قام بنشر يناير 4, 2018 الكاتب مشاركة قام بنشر يناير 4, 2018 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 يعطيك العافية أستاذ شفان الطريقة فعالة لكن توجد بها مشكلة عدم الإضافة او التعديل عند النقر على الزر كل الشكر والتقدير رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر يناير 4, 2018 مشاركة قام بنشر يناير 4, 2018 9 ساعات مضت, kaser906 said: لكن توجد بها مشكلة عدم الإضافة او التعديل نعم لكن هذا يعود لخصائص نموذج من قبل ان افكر في هذه الطريقة كان جربت كم طرائق لكن وحينئذ انا غيرت خاصية النموذج قفل السجل اي ( Record Locks ) يساوي All Records تم تغير الى No Locks والان مافی المشکلە enbld.rar 2 رابط هذا التعليق شارك More sharing options...
kaser906 قام بنشر يناير 5, 2018 الكاتب مشاركة قام بنشر يناير 5, 2018 (معدل) في ١٧/٠٤/١٤٣٩ 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 رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر يناير 5, 2018 مشاركة قام بنشر يناير 5, 2018 4 ساعات مضت, kaser906 said: بعد النقر على زر إيقاف لايمكن التعديل على سجل ولا يمكن إضافة سجل جديد في الاول اذا تضغط او لا تضغط على الزر لا يمكنك ان تعمل تعديل او تضيف له سجل جديد لكن في المشاركتي الاخيرة يمكنك ان تضيف او تعمل تعديل على السجلات لكن قبل ان تضغط على الايقاف وبعد ان تضغط على الايقاف سيكون مصدر النموذج بيساوي لا شيء اي لذلك لا تقدر تعمل اي شيء 1 رابط هذا التعليق شارك More sharing options...
kaser906 قام بنشر يناير 6, 2018 الكاتب مشاركة قام بنشر يناير 6, 2018 شوكرا لك استاذ 1 رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر يناير 7, 2018 مشاركة قام بنشر يناير 7, 2018 الإخفاء جملة أو الإظهار جملة هذا هو الواقع أما عدم التمكين فيكون لزر السابق عندما لا يكون هناك سجل سابق ولزر التالى عندما تنتهى السجلات ولا يكون هناك سجل تال أما مع وجود السجلات السابقة و اللاحقة فلا معنى لعدم تمكين الأزرار مع إمكانية التنقل والله أعلم 1 رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر يناير 7, 2018 مشاركة قام بنشر يناير 7, 2018 20 دقائق مضت, عبد الفتاح كيرة said: أما مع وجود السجلات السابقة و اللاحقة فلا معنى لعدم تمكين الأزرار مع إمكانية التنقل نعم بالضبط لذلك قمنا باعطاء الطريقة الثانية اي تغيرنا مصدر النموذج بلا شيء 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.