مشكلة عند تغيير حجم الشاشة

[ازهر عبد العزيز]

السلام عليكم

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

[jjafferr]

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

 

54 دقائق مضت, ازهر عبد العزيز said:

كنت اعمل بنصائح الاساتذة هنا جاعلا النماذج غير منبثقة

اهنئك على الشجاعة في اتخاذ هذا القرار ، وتأكد بأنك على الطريق الصحيح 🙂

 

ولجعل جميع الكائنات في اتجاه واحد من الشاشة :

اختار جميع الكائنات ، ثم اختار احد الجهات التسعة التي تريد تثبيت الكائنات بها ، والتجربة خير برهان :

.

جعفر

[ابوبسمله]

مشاركه مع معلمنا العزيز جعفر جزاه الله عنا كل خير 

اطلع أيضا ع شرح اكتر فالرابط التالي لأخي واستاذي د حسنين 

 

بالتوفيق اخي ازهر 

[Ahmed_J]

السلام عليكم اساتذتي الاعزاء 

 في البرنامج المرفق وهو للاستاذ @SEMO.Pa3x  وتم التعديل عليه من قبل الاستاذ @jjafferr

كل شيء تمام عند تشغيل البرنامج   وتم تجربته على شاشة 1920 * 1080   وشاشة 1366* 768  وهو يعمل بصورة ممتازة

هل من الممكن عن طريق الاكواد  عمل مايلي (تم التعديل عليها عن طريق خصائص النموذج ولم تنجح):

1- اريد اخفاء الازرار  (التكبير والتصفير والاغلاق) علما انه بخصائص النموذج عاملهم (no)

2- النموذح يمكن طيه بسحب الماوس من الاعلى (يمكن تغيير حجمه) وقابل للنفل هل يمكن تثبيتة بصورة ثابته بالشاشة وجعله غير قابل للنقل

وشكرا لكم

example_semo.accdb

تم تعديل مايو 20, 2021 بواسطه Ahmed_J

[jjafferr]

10 ساعات مضت, Ahmed_J said:

هل من الممكن

 

تمت الاجابة على طلبك في الموضوع الاصل 🙂

 

جعفر

[jo_2010]

خالص الشكر استاذنا ومعلمنا الجليل جعفر 

[ابو جودي]

في ١٨‏/٥‏/٢٠٢١ at 06:21, jjafferr said:

اهنئك على الشجاعة في اتخاذ هذا القرار ، وتأكد بأنك على الطريق الصحيح 🙂

 

انا مش فاهم ايه موضوع ان تكون النماذج غير منبثقة وما المشكلة من كونها تكون منبثقة ممكن التكرم بالتوضيح جزاكم الله خيرا

[Ahmed_J]

السلام عليكم استاذ @ابا جودى

الفكرة هو جعل النموذج  يعمل على كل الشاشات باختلاف احجامها ودقة شاشاتها  (يمليء الشاشة) وجعل الازرار داخل النموذج تاخذ حجمها ومكانها الطبيعي دون تغيير .

تحياتي لك  

[ابو جودي]

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

السلام عليكم استاذ @ابا جودى

الفكرة هو جعل النموذج  يعمل على كل الشاشات باختلاف احجامها ودقة شاشاتها  (يمليء الشاشة) وجعل الازرار داخل النموذج تاخذ حجمها ومكانها الطبيعي دون تغيير .

تحياتي لك  

بصراحة معلومة جديدة بالنسبة لى 

ولكن المشكلة ان اختفى نموذج وراء اخر 

[jjafferr]

في ٢٩‏/٥‏/٢٠٢١ at 21:30, ابا جودى said:

وما المشكلة من كونها تكون منبثقة

 

سبحان الله ، الله ارادك ان تقع في فخ احد مشاكل النماذج المنبثقة :

مساعدة في فتح عدد اكثر من نموذج داخل النموذج الرئيسي - قسم الأكسيس Access - أوفيسنا (officena.net)

 

جعفر

[Ahmed_J]

السلام عليكم جميعا

استاذ @jjafferr استاذ @ابا جودى  استاذ @ازهر عبد العزيز

انا جربت هذه الطريقة (النماذج غير منبثقة) على اربعة شاشات  دقة (1280*1024) و(1024*768) و(1366*768)و (1920*1080) 

وكانت النتيجة ممتازة جدا (كل شيء تمام  والنماذج تعمل مليء كل الشاشات)

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

تحياتي للجميع

[jjafferr]

شكرا على المعلومة والتأكيد اخوي احمد 🙂

 

جعفر

[ابو جودي]

7 ساعات مضت, jjafferr said:

 

سبحان الله ، الله ارادك ان تقع في فخ احد مشاكل النماذج المنبثقة :

مساعدة في فتح عدد اكثر من نموذج داخل النموذج الرئيسي - قسم الأكسيس Access - أوفيسنا (officena.net)

 

جعفر

السلام عليكم

استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr 

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

[صالح حمادي]

اطلع على هذا الموضوع

 

[Ahmed_J]

السلام عليكم استاذ @صالح حمادي استاذ @jjafferr  استاذ @ابا جودى استاذ @ازهر عبد العزيز

الكود يعمل بصورة صحيحة وهو عمل ممتاز جدا ورائع 

* فقط في حاجة تحصل  لما يكون عندك اكثر من نموذج  (عندما تكون في النموذج الواحد حقول كثيرة مثل قاعدة بيانات الموظفين )

-  عند فتح  قاعدة البيانات على النموذج الاول  او عند الانتقال من نموذج الى اخر تظهر (شاشة اشبه بالبيضاء  لمدة  2 ثانية )  قارغة وبدون  عناصر 

ثم تظهر بعد ذلك الحقول (كان النموذج بطيء في فتحه لمدة 2 ثانية)

هل من حل لهذه المشكلة او تسريع عمل فتح النماذج؟

وشكرا لك استاذي العزيز وتحياتي للجميع

Option Compare Database
Function salah(frm As Form)
On Error Resume Next
Dim x, y, X1, Y1 As Integer
Dim moyH, moyW As Double
Dim obj As Control
Dim str As String
x = frm.InsideHeight   'ارتفاع النموذج قبل التكبير
y = frm.InsideWidth ' عرض النموذج قبل التكبير
DoCmd.Maximize
X1 = frm.InsideHeight    'ارتفاع النموذج بعد التكبير
Y1 = frm.InsideWidth   ' عرض النموذج بعد التكبير
moyH = X1 / x 'معامل الإرتفاع
moyW = Y1 / y ' معامل العرض
For Each obj In frm.Controls
With obj
.Left = .Left * moyW
.Top = .Top * moyH
.Width = .Width * moyW
.Height = .Height * moyH
.FontSize = .FontSize * moyW
End With
Next
End Function

 

تم تعديل يونيو 5, 2021 بواسطه Ahmed_J

[Ahmed_J]

UP