السلام عليكم استاذ @صالح حمادي استاذ @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