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

كيف اجعل جدول النموذج الفرعى غير قابل للتوسعه اوالضيق (ثابت)


اسلام سيد

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

السلام عليكم

هل ممكن اجعل الجدول اللى فى النموذج الفرعى غير قابل للزياده ( التوسعه والضيق )

اقصد كما فى الصورة ( المربعات فى الجدول سواء الطول او العرض )
لا اريد احد فردها او طيها ( تكون مساحتها ثابته )

 

Untitle1d.png

 

ملفات مرفقه

-------------------------

الفاتورة1.rar

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

هو انا معرفش كود محدد بس ممكن تبحث فى خيارات االاكسس من قائمة ملف  دور ممكن تلاقى خيارات تفيدك فى الموضوع

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

 

 

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

في 10/18/2016 at 14:52, محمد ايمن said:

تفضل اخي الكريم هذا مثال بسيط

db1.zip

اخى ممكن توضيح

انا شايف وحدات نمطية فقط
كيف تستخدم ؟

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

10 ساعات مضت, اسلام سيد said:

اخى ممكن توضيح

انا شايف وحدات نمطية فقط
كيف تستخدم ؟

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

تحياتي

شفان ريكاني

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

في 10/18/2016 at 18:40, Elsayed Bn Gemy said:

هو انا معرفش كود محدد بس ممكن تبحث فى خيارات االاكسس من قائمة ملف  دور ممكن تلاقى خيارات تفيدك فى الموضوع

هل دورت استاذ سيد ومالقيتش ؟!!!

اعتقد ماتفصده يختص بالجداول وهو هن طريق الخيار السماح بالتعديل لبنية الجدول اثناء فتح الجدول

في 10/18/2016 at 09:28, اسلام سيد said:

السلام عليكم

هل ممكن اجعل الجدول اللى فى النموذج الفرعى غير قابل للزياده ( التوسعه والضيق )

اقصد كما فى الصورة ( المربعات فى الجدول سواء الطول او العرض )
لا اريد احد فردها او طيها ( تكون مساحتها ثابته )

 

Untitle1d.png

 

ملفات مرفقه

-------------------------

الفاتورة1.rar

 

خلينا نعرف السبب اولا ؟ ليش ؟ لانه ممكن اخلي المستخدم يغير زي مايحب وعند اعادة الفتح ترجع زي ماهي ! لانه لاحظ لو النص اكبر من العرض في العمود فاحتاج الى تكبير عرض الصف لظهور كامل البيانات او زيادة عرض العمود

والا عايزها كدا وبس استاذ اسلام ؟!!!!

 

تحياتي

في 10/18/2016 at 18:40, Elsayed Bn Gemy said:

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

اؤيدك تماما خصوصا ان ااغلب الاختيار لورقة البيانات هي الميزه التي يريد منعها استاذ اسلام وهي تغيير عرض الاعمدة والصفوف لتناسب البيانات والمحتوى

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

35 دقائق مضت, اسلام سيد said:

جزاكم الله خيرا جميعا

حقيقا اختارت تغير ورقة بيانات الى بيانات مستمرة على الاقل فى الوقت الحالى

اخي

انت سألت على بيت فلان

واحد كلتلك بيته في فلان النتقة

روح للمنتقة ودورها لكي تعرف وين بيته بالضبط

لان حتما مرة راح يحتاج معرفة وين بيته

مع تحياتي

شفان ريكاني

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

 

السلام عليكم
استاذ / محمد ، جزاكم الله خيرا

لكن النموذج يتم توسيعه بين السجلات
وانا لا اريد توسيع السجلات ولا الحقول وكذالك التضيق

بل اريد ان يكون ثابت كما احدده انا فى التصميم

 

لا يعمل.jpg

 

 

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

في ١٨‏/١٠‏/٢٠١٦ at 23:52, محمد ايمن said:

تفضل اخي الكريم هذا مثال بسيط

db1.zip

استاذى / محمد ايمن

بالله وتالله و ووالله ، إن كان عندك وقت ، تشرح لى تفصيلا

 1 - لانى حاولت افهمها فلم انجح

 2 - كيف انقل الوحدات النمطيه

 3- وكيف اعدل فيها لتشمل السجلات ( التوسعه والضيق ) كما هو الحال بين الحقول

* رجاءا فالاخوة لا تعلمه ، وانت تعلمه ، فجعله صدقة لك يوم القيامه

 انت مبدع

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

اخي اسلام

يبدو انك لابد الا بالداتا شيت

اعود لك بتطبيق فكرة خطرة في بالي تمنع تعديل عرض وارتفاع شبكة ورقة البانات

ابشر

تحياتي

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

تحية طيبة اخي اسلام

بداية احرجني قسمك عليي فانا اخذت هذا المثال من احد الاصدقاء في المنتدى و لم ابحث فيه كثيرا

بالنسبة الى الاستخدام

استورد الى برنامج كافة الوحدات النمطية للفئة ( كلاس موديول Class module )

انشئ نموذج جديد في طريقة ورقة البيانات

في قسم التصريحات اكتب هذا الكود

Private clsFreeze As clsFreezeColumnWidths

في حدث ( عند التحميل ) للنموذج اكتب هذا الكود

Set clsFreeze = New clsFreezeColumnWidths
' Call the Setup method
clsFreeze.SetupFreeze Me

في حدث (عند تحريك الماوس ) اكتب هذا الكود 

clsFreeze.ResetAllColumnWidths Me

في حدث ( عند الغاء التحميل ) اكتب هذا الكود

Set clsFreeze = Nothing

 

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

كل ما عليك فعله هو اختيار القيمة المناسبة لك

هذه القيمة تجدها في الوحدة النمطية ( clsFreezeColumnWidths ) ضمن الكودين ( ResetAllColumnWidths ) و ( SetupFreeze )

اسم الكود frm.RowHeight

القيمة الافتراضية لارتفاع الحقل هي ( 230 ) غيرها كما يناسبك ( طبعا يجب تغييرها ضمن هذين الكودين معا )

والمرفق سيشرح افضل مني واي استفسار انا بخدمتك

db2.rar

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

في 10/25/2016 at 17:08, محمد ايمن said:

تحية طيبة اخي اسلام

بداية احرجني قسمك عليي فانا اخذت هذا المثال من احد الاصدقاء في المنتدى و لم ابحث فيه كثيرا

بالنسبة الى الاستخدام

استورد الى برنامج كافة الوحدات النمطية للفئة ( كلاس موديول Class module )

انشئ نموذج جديد في طريقة ورقة البيانات

في قسم التصريحات اكتب هذا الكود


Private clsFreeze As clsFreezeColumnWidths

في حدث ( عند التحميل ) للنموذج اكتب هذا الكود


Set clsFreeze = New clsFreezeColumnWidths
' Call the Setup method
clsFreeze.SetupFreeze Me

في حدث (عند تحريك الماوس ) اكتب هذا الكود 


clsFreeze.ResetAllColumnWidths Me

في حدث ( عند الغاء التحميل ) اكتب هذا الكود


Set clsFreeze = Nothing

 

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

كل ما عليك فعله هو اختيار القيمة المناسبة لك

هذه القيمة تجدها في الوحدة النمطية ( clsFreezeColumnWidths ) ضمن الكودين ( ResetAllColumnWidths ) و ( SetupFreeze )

اسم الكود frm.RowHeight

القيمة الافتراضية لارتفاع الحقل هي ( 230 ) غيرها كما يناسبك ( طبعا يجب تغييرها ضمن هذين الكودين معا )

والمرفق سيشرح افضل مني واي استفسار انا بخدمتك

db2.rar

جزاكم الله خيرا
وجارى الاستفاده منها ان شاء الله

معلش تعبتك معى
استاذى ممكن تبعت لى رابط ايميلك على الفيس فوك فى رساله على الخاص او هنا ان احببت


 

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

السلام عليكم

هذه الفكرة وبشكل بسيط جدا

وعبارة عن كل ماحاول المستخدم تغيير عرض العمود او ارتفاع الصف يرجع كما هو محدد بالكود

يمكن تطويرها فالبرمجة عالم مفتوح

ضع الكود التالي عند رفع الماوس للنموذج الفرعي وليصبح الكود كاملا بالشكل التالي

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.الموديل.ColumnWidth = 1500
Me.سعر_البيع.ColumnWidth = 1500
Me.العدد.ColumnWidth = 1500
Me.نص19.ColumnWidth = 1500
Me.RowHeight = 300
End Sub

بالتوفيق

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

26 دقائق مضت, رمهان said:

السلام عليكم

هذه الفكرة وبشكل بسيط جدا

وعبارة عن كل ماحاول المستخدم تغيير عرض العمود او ارتفاع الصف يرجع كما هو محدد بالكود

يمكن تطويرها فالبرمجة عالم مفتوح

ضع الكود التالي عند رفع الماوس للنموذج الفرعي وليصبح الكود كاملا بالشكل التالي

هل من الممكن توسيط النص او المحاذاه يمين او يسار برمجيا

 

هالشي صعب خصوصا في مربع سرد

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

6 دقائق مضت, co2002co said:

هل من الممكن توسيط النص او المحاذاه يمين او يسار برمجيا

 

هالشي صعب خصوصا في مربع سرد

اي نص تقصد ؟ عنوان العمود في ورقة البيانات ؟ ام القائمة المنسدلة في مربع التحرير ؟

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

في ‎10‎/‎28‎/‎2016 at 18:06, رمهان said:

اي نص تقصد ؟ عنوان العمود في ورقة البيانات ؟ ام القائمة المنسدلة في مربع التحرير ؟

اقصد listbox

 

طبعا بحثعن طرق التوسيط والمحاذاه يمين ويسار

و وجدت الحل وهو تحويل listbox الى combobox

والتعديل عليه ومن ارجاعه الى listbox من جديد

 

 

لكن هاذي العمليه لم تعمل معي خصوصا في كلا من إصدارات اكسس 2016+2013+2010

وفي احد المشاركات قرات رد للشيخ أبو خليل  وعن الاحترافيه ب استخدام 2003

ولما جربت الإصدار اشتغلت الفكره الي ذكرتها لك او عمليه التحويل

ممكن يكون مجرد صدفه او ممكن يكون هناك خلل بالاصدارات الي معي

 

حاليا انا استخدم 2003 مع ان كل شي فيه بدائي جدا الا ان العمل عليه ممتع ومتعب بنفس الوقت

من حيت كتاااابه كل شي بنفسك

 

 

طلبي بحكم انك خبير برمجه

هل ممكن تعمل لنا كود ل listbox

بحيث انا اقدر اخلي النص وسط او محاذاه ل أي عمود انا اختاره

مثلا عندي 10 اعمده

العمود 1 وسط

2 محاذاه يسار

3 محاذاه يمسن

وهكذا

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

  • 5 months later...
في ٢٨‏/١٠‏/٢٠١٦ at 06:30, رمهان said:

السلام عليكم

هذه الفكرة وبشكل بسيط جدا

وعبارة عن كل ماحاول المستخدم تغيير عرض العمود او ارتفاع الصف يرجع كما هو محدد بالكود

يمكن تطويرها فالبرمجة عالم مفتوح

ضع الكود التالي عند رفع الماوس للنموذج الفرعي وليصبح الكود كاملا بالشكل التالي


Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.الموديل.ColumnWidth = 1500
Me.سعر_البيع.ColumnWidth = 1500
Me.العدد.ColumnWidth = 1500
Me.نص19.ColumnWidth = 1500
Me.RowHeight = 300
End Sub

بالتوفيق

اولا :حقيقة لا اعرف كيف اشكرك

ثانيا : والله انشغلت فترة طويله جدا ، وشبة تركت الاكسيس اكثر من شهرين ، وهذا لا يمنعنى من شكرك

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

وهذا هو ما اريده حقا

جزاكم الله خيرا

ربنا يزيدك من فضله

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

السلام عليكم:smile:

 

طريقة العرض اللي انا اتبعها في برامجي بوجه عام:

في 10/18/2016 at 19:40, Elsayed Bn Gemy said:

عرض النموذج الفرعى بدل ورقة بيانات خليها نماذج مستمرة

 

وفي حالات:

في 10/19/2016 at 21:59, رمهان said:

لو النص اكبر من العرض في العمود فاحتاج الى تكبير عرض الصف لظهور كامل البيانات او زيادة عرض العمود

 

فالطريقة اللي اتبعها علشان المستخدم يشوف كل البيانات ، او حتى اذا اراد ادخال بيانات واراد ان يرى المعلومة كامله ،

فأعمل على حدث النقر المزدوج لذلك الحقل الكود التالي:

DoCmd.RunCommand acCmdZoomBox

والذي يفتح نافذة ZoomBox (كما يمكنك فتحها يدويا ، فلما تكون على اي حقل ، استخدم الزرين Shift + F2) ، وسيرى كامل البيانات:smile:

 

جعفر

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

  • 2 weeks later...
في 4/29/2017 at 15:17, jjafferr said:

فالطريقة اللي اتبعها علشان المستخدم يشوف كل البيانات ، او حتى اذا اراد ادخال بيانات واراد ان يرى المعلومة كامله ،

فأعمل على حدث النقر المزدوج لذلك الحقل الكود التالي:


DoCmd.RunCommand acCmdZoomBox

والذي يفتح نافذة ZoomBox (كما يمكنك فتحها يدويا ، فلما تكون على اي حقل ، استخدم الزرين Shift + F2) ، وسيرى كامل البيانات:smile:

 

جعفر

ولو حبيت اشوف عمودين اوثلاثة مع بعض ؟ والسؤال استاذ جعفر كان منع زيادة عرض الصفوف وليس رؤية كامل المحتوى

وشرفت المشاركة

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

11 ساعات مضت, رمهان said:

والسؤال استاذ جعفر كان منع زيادة عرض الصفوف وليس رؤية كامل المحتوى

وشرفت المشاركة

هلا والله بالاستاذ الغائب:smile:

 

جوابي كان على اساس الرقم 1 من:smile:

في 10/19/2016 at 21:59, رمهان said:

1. لانه لاحظ لو النص اكبر من العرض في العمود فاحتاج الى تكبير عرض الصف لظهور كامل البيانات او زيادة عرض العمود

2. والا عايزها كدا وبس استاذ اسلام ؟!!!!

 

جعفر

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

14 ساعات مضت, رمهان said:

ولو حبيت اشوف عمودين اوثلاثة مع بعض ؟

 

لو تابعت الموضوع هنا

 

فتكملة له ، وردا على سوالك لرؤية اكثر من عمود ، 

في النموذج لما نريد ZoomBox ، نستطيع فتحه بالضغط على الزرين Shift + F2 ،

وبعدها رأيت هذا في الكود:

00.z_0029.jpg.ec2538e27515c95ec2fb653277aefe6a.jpg

.

وهذا معناه ان البرنامج الخارجي Utility.accda هو الذي يقوم بفتح ZoomBox ، وانه مجرد نموذج (هذه الملاحظة من اسم النموذج في الكود) ،

فنستطيع عمل نموذج غير منبثق ، ونفتحه بأي عدد من المرات ، هكذا:

 

جعفر

 

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information