واجهة أكسس الرئيسية

[بوكفوس عبدالسلام]

السلام عليكم ...

عند تنفيذ الواجهة الرئيسية لتطبيقة أكسس ، يوجد فراغ على جهة اليمين للشاشة ( مشار إليه بالسهم الأصفر في الصورة المرفقة ).

كيف يمكنني جعل الواجهة الرئيسية للتطبيق على كامل الشاشة بدون فراغات ؟

[kkhalifa1960]

تفضل أخي @بوكفوس عبدالسلام . ووافني بالرد .

لجعل الواجهة الرئيسية لتطبيق Access (مايكروسوفت أكسس) تُعرض على كامل الشاشة بدون وجود فراغات على الجوانب، يمكنك اتباع الخطوات التالية:

1. إعداد حجم النموذج الرئيسي

• افتح النموذج الرئيسي (Main Form) الخاص بتطبيقك في وضع التصميم (Design View).
• في خصائص النموذج (Property Sheet)، حدد الخصائص التالية:
  • Auto Center: اجعلها Yes.
  • Auto Resize: اجعلها Yes.
  • Border Style: اجعلها None.
  • Popup: اجعلها No.
  • Fit to Screen: اجعلها Yes.
  • Width و Height: اضبطها بحيث تتناسب مع الشاشة.

2. استخدام التعليمات البرمجية (VBA) لتوسيع النموذج

يمكنك استخدام كود VBA لجعل النموذج يُعرض على كامل الشاشة تلقائيًا عند فتحه:

• انتقل إلى علامة تبويب Events في خصائص النموذج.

• في الحدث On Load، اضغط على الزر (...) واختر Code Builder.

• أدخل الكود التالي:

   

  Private Sub Form_Load()
  DoCmd.Maximize
  End Sub

   

هذا الكود سيقوم بتكبير النموذج ليملأ الشاشة عند فتحه.

3. إخفاء واجهة أكسس الافتراضية

إذا كنت تريد إخفاء شريط القوائم والأشرطة الجانبية الخاصة بأكسس لجعل التطبيق يبدو كبرنامج مستقل:

• في خيارات Access:
  • اذهب إلى File > Options > Current Database.
  • قم بإلغاء تحديد الخيارات مثل:
    • Display Navigation Pane.
    • Allow Full Menus.
    • Allow Shortcut Menus.
• اضغط OK وأعد فتح التطبيق.

4. استخدام دقة الشاشة الديناميكية

لضمان توافق النموذج مع أي حجم شاشة، يمكنك استخدام مكتبات أو دوال لجعل النموذج يتكيف مع أبعاد الشاشة الحالية. مثال:

Private Sub Form_Load()
Me.Width = Application.UsableWidth
Me.Height = Application.UsableHeight
Me.Left = 0
Me.Top = 0
End Sub

 

نصيحة إضافية:

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

[Foksh]

الحل بسيط

[بوكفوس عبدالسلام]

السلام عليكم ...

بارك الله في مجهودكم  القيّم  ، 

كل الخطوات التي قدّمتموها لي ، كنت قد أجريتها مسبقا ، حيث أن النموذج يبقى على حاله كما أشرت سابقاً ، و لكن عند طرح الإشكال في اليوتيوب و جدت فيديو يتحدث في هذا الشأن حيث صانع هذا الفيديو إعتمد على كود السيد عصام من قناة أوفيسنا ، و عند تطبيقي لما جاء في محتواه كانت النتيجة غير متوقعة و كما أردت ( صورة مرفقة ).

فتفضلوا برابط الفيديو لتعمّ الفائدة على الجميع :  

 

[kkhalifa1960]

الحمد لله .

[Ahmed_J]

السلام عليكم

كود للاخ @صالح حمادي  ملائمة عناصر النموذج في وضع ملأ الشاشة

https://www.officena.net/ib/topic/74453-ملاءمة-عناصر-النموذج-في-وضع-ملأ-الشاشة/

تم التعديل عليه قليلا للتلائم العناصر  مع حجم الشاشة من حيث (حجم الخط) و(تعديل خصائص العناصر)

Option Compare Database
Option Explicit
Function ResizeForm(frm As Form)
On Error GoTo ErrorHandler
Dim X As Long, Y As Long, x1 As Long, Y1 As Long
Dim moyH As Double, moyW As Double
Dim obj As Control
Dim maxFontSize As Integer
Dim newFontSize As Double
maxFontSize = 20 ' الحد الأقصى لحجم الخط
' أبعاد النموذج قبل التكبير
X = frm.InsideWidth    ' عرض النموذج قبل التكبير
Y = frm.InsideHeight   ' ارتفاع النموذج قبل التكبير
' تكبير النموذج
DoCmd.Maximize
' أبعاد النموذج بعد التكبير
x1 = frm.InsideWidth   ' عرض النموذج بعد التكبير
Y1 = frm.InsideHeight  ' ارتفاع النموذج بعد التكبير
' حساب معامل الارتفاع والعرض
moyH = Y1 / Y
moyW = x1 / X
' تعديل خصائص كل عنصر في النموذج
For Each obj In frm.Controls
With obj
' ضبط الموضع والحجم
.Left = .Left * moyW
.Top = .Top * moyH
.Width = .Width * moyW
.Height = .Height * moyH
' تعديل حجم الخط إذا كان العنصر يدعم ذلك
If .ControlType = acTextBox Or .ControlType = acLabel Or .ControlType = acCommandButton Or .ControlType = acComboBox Then
If Not IsNull(.FontSize) Then
newFontSize = .FontSize * moyH
If newFontSize > maxFontSize Then
.FontSize = maxFontSize
ElseIf newFontSize < 6 Then
.FontSize = 6 ' الحد الأدنى لحجم الخط
Else
.FontSize = newFontSize
End If
End If
End If
End With
Next obj
Exit Function
ErrorHandler:
MsgBox "حدث خطأ: " & Err.Description, vbCritical
End Function

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

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

ملاءمة عناصر النموذج حسب حجم النموذج_.accdb

تم تعديل ديسمبر 27, 2024 بواسطه Ahmed_J