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

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

قام بنشر (معدل)

السلام عليكم

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

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

 

Untitle1d.png

 

ملفات مرفقه

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

الفاتورة1.rarFetching info...

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

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

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

 

 

  • Like 2
قام بنشر
  في 18‏/10‏/2016 at 15:40, Elsayed Bn Gemy said:

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

Expand  

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

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

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

السلام عليكم

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

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

 

Untitle1d.png

 

ملفات مرفقه

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

الفاتورة1.rarFetching info...

Expand  

 

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

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

 

تحياتي

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

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

Expand  

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

  • Like 1
قام بنشر
  في 19‏/10‏/2016 at 20:12, اسلام سيد said:

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

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

Expand  

اخي

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

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

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

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

مع تحياتي

شفان ريكاني

قام بنشر (معدل)

 

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

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

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

 

لا يعمل.jpg

 

 

تم تعديل بواسطه اسلام سيد
قام بنشر
  في 18‏/10‏/2016 at 21:52, محمد ايمن said:

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

db1.zipFetching info...

Expand  

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

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

 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
قام بنشر
  في 26‏/10‏/2016 at 00: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.rarFetching info...

Expand  

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

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


 

قام بنشر

السلام عليكم

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

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

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

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

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
قام بنشر
  في 28‏/10‏/2016 at 14:30, رمهان said:

السلام عليكم

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

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

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

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

Expand  

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

 

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

  • Like 1
قام بنشر
  في 28‏/10‏/2016 at 14:58, co2002co said:

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

 

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

Expand  

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

  • Like 1
قام بنشر
  في 28‏/10‏/2016 at 15:06, رمهان said:

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

Expand  

اقصد listbox

 

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

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

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

 

 

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

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

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

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

 

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

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

 

 

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

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

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

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

العمود 1 وسط

2 محاذاه يسار

3 محاذاه يمسن

وهكذا

  • 5 months later...
قام بنشر
  في 28‏/10‏/2016 at 14: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

بالتوفيق

Expand  

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

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

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

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

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

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

قام بنشر

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

 

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

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

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

Expand  

 

وفي حالات:

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

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

Expand  

 

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

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

DoCmd.RunCommand acCmdZoomBox

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

 

جعفر

  • Like 1
  • 2 weeks later...
قام بنشر
  في 29‏/4‏/2017 at 12:17, jjafferr said:

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

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

DoCmd.RunCommand acCmdZoomBox

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

 

جعفر

Expand  

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

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

  • Like 1
قام بنشر
  في 9‏/5‏/2017 at 20:47, رمهان said:

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

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

Expand  

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

 

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

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

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

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

Expand  

 

جعفر

قام بنشر
  في 9‏/5‏/2017 at 20:47, رمهان said:

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

Expand  

 

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

 

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

في النموذج لما نريد 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