كيف نحمي نماذجنا؟

ضع هذا الكود فى النموذج

Private Sub Customer_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
fixwidth
End Sub

Private Sub Dafa_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
fixwidth
End Sub

Private Sub Form_Current()
fixwidth
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
fixwidth
End Sub

Private Sub Price_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
fixwidth
End Sub

Private Sub fixwidth()
Me.Customer.ColumnWidth = 5025
Me.Dafa.ColumnWidth = 2655
Me.Price.ColumnWidth = 2805
End Sub

شكرا اخي Abo Yossof على ما تفضلت به، فهذا ما كنت اريده، وكنت اظن ان الامر مجرد خاصة من خصائص النموذج نتحكم بها ولكن المسألة، طلعت بدها كود

قمت بوضع الكود كما تفضلت به وعمل بشكل جيد، واحببت ان اضع المثال بعد التعديل كي يستفيد منه كافة الاخوة فهو على ما اعتقد مفيد ولازم لصنع برامج متطورة

وقمت بعمل اضافي من بعد اذنك، وهو اظهار نافذة عند النقر المزدوج على كل من الاسم او المدين او الدائن، يظهر من خلالها عرض العامود الذي تم وضعه في الكود، حتى يعرف الاخوة من اين اتى عرض الاعمدة الذي وضعته حضرتك في الكود، ولا ادري ان كان هناك طريقة اخرى اسرع ؟

شكرا مرة ثانية على سرعة ودقة الاجابة

وارجو الاستفادة للجميع

Question_2007_10_OK.zip

بارك الله فيك أستاذنا أبويوسف .. زادك الله علما.

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

اخي Abo Yossof لاحظت وجود ثغرة خطيرة للغاية ، يمكن من خلالها تخريب النموذج، وذلك في حال قام المستثمر بالضغط على الحد الفاصل وتحرك به باتجاه اليمين متجاوزا كامل حدوده بالكامل باتجاه اراضي الحقل المجاور .

فعندئذ يختفي الحقل بالكامل

والغريب بالامر انه لو تم اغلاق النموذج وفتحه مرة ثانية ، فيبقى الحقل مختفي بالكامل

وقد اوضحت ذلك بالصور المرفقة

ارجو التفضل بالتعديل على المثال المرفق بالمشاركة السابقة

وشكرا

فعلا كلامك صحيح

لكن الحقل يظهر بمجرد اغلاق النموذج و فتحه

عموما مادام الامر يقلقك بهذا الشكل

أنصحك بعدم استخدام الداتا شيت و استخدم

نموذج مستمر أفضل

عندئذ لن يستطيع هؤلاء ( الحشريين) ههههههههههه

ان يفعلوا اى شىء

و على كل حال سأبحث فى الموضوع و ان توصلت لشىء سأخبرك

شكرا اخي ابو يوسف على مرورك

ولكن اؤكد لك ان الحقل لا يظهر بعد ان يختفي، وفيما يلي صورة تؤكد كيف ان الحقل مدين قد اختفى

قمت باغلاق النموذج وفتحه ولكن دون ان يعود ان يظهر وهذه مصيبة كبيرة

ارجو من الله ان يوفقك انت او احد اعضاء منتدانا الغالي لايجاد حل لهذه المشكلة

علماً بان لي رغبة كبيرة بعرض النتائج بهذا الشكل لاننى اجدها اجمل بطريقة العرض من النماذج المستمرة

وشكرا جزيلا

للرفع

وشكرا

كما قلت من قبل

نصيحتى لك هى استخدام نموذج مستمر

عموما

جرب هذا التعديل

Private Sub fixwidth()
    Me.Customer.ColumnHidden = False
    Me.Dafa.ColumnHidden = False
    Me.Price.ColumnHidden = False
    Me.Customer.ColumnWidth = 6135
    Me.Dafa.ColumnWidth = 1980
    Me.Price.ColumnWidth = 2115
End Sub

بارك الله فيك أخي Abo_Yossof وجزاك الله جزيل الثواب في هذه الايام الفضيلة من الشهر المبارك

نعم الجواب جوابك

فقد انحلت المشكلة مئة بالمئة

فلم يعد المستثمر يستطيع العبث ابدا يأي عمود من أعمدة الداتا شيت

شكرا مرة ثانية

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

الله يوفقك ومشكووووووووووووووووووووووووووووووووور