تحديد مساحة الفورم فى اكسيس

اخي الفاضل

السلام عليكم ورحمة الله وبركاته

لجعل النموذج يكون بإرتفاع 400 في 300 عرض او العكس يمكنك من استخدام هذه الاكواد وتوضع في حدث عند الفتح او التحميل للنموذج حسب الكود التالي :

Private Sub Form_Load()
Me.Form.InsideHeight = 5410
Me.Form.InsideWidth = 7600
End Sub

ولكي نقوم بإخفاء شاشة الاكسيس ويبقى النموذج فقط هو الذي يعمل نقوم بعمل التالي :

1. ستجد في المثال المرفق وحدة نمطية بإسم api_ShowWindow يمكنك من استيرادها الى قاعدة البيانات لديك

اذا كنت تجد صعوبة في طريقة عملية الاستيراد فإليك الكود الخاص بالوحدة النمطية

Option Compare Database
Global Const SW_HIDE = 0
Private Declare Function apiShowWindow Lib "user32" _
	Alias "ShowWindow" (ByVal hwnd As Long, _
		  ByVal nCmdShow As Long) As Long

Function fSetAccessWindow(nCmdShow As Long)
Dim loX  As Long
Dim loForm As Form
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End Function

انسخ هذا الكود وضعه في وحده نمطية جديده لديك في قاعدة البيانات

2. افتح النموذج الخاص بك في وضع التصميم ومن ثم اختر خصائص النموذج ثم اختر التبويب حدث وضع في حدث عند الفتح هذا الكود

Private Sub Form_Open(Cancel As Integer)
fSetAccessWindow (SW_HIDE)
End Sub
[/CDOE]
3. الان اختر ايضا خصائص النموذج واختر التبويب الكل وضع التالي
منبثق : نعم
شكلي او مشروط : نعم
نمط الحدود : مربع حوار

وهذا مثال على هذا الشرح
Hide_Access2003.rar

فكرة رائعة , مشكورة عليها

ولكن اذا كان النموذج يستدعي نموذجا اخر او فرعي او تقرير مثلا, فان خاصية "شكلي او مشروط" modalتمنع ظهور اى شيئ ولو قمت بتعطيلهااو تعطيل popup"منبثق" فان الوحدة النمطية لن تظهر شيئا على الاطلاق, فهل من اضافة

شكرا اخت زهرة

اخت زهرة عندي استفسار

حول اخفاء واضهار label

كتبت هذا الكود والمفروض انه يعمل عندما تتغير قيمة مربع النص حيث ان مربع النص تتحدث قيمته عن طريق مربعين اي :

Textbox2=المبلغ الكلي

TextBox3=الواصل

وبالتالي

TextBox1=الباقي فالمطلوب هو عندما يكون هناك باقي يعمل الكود التالي علما اني وضعت الكود في حدث عند التغيير

الكود

if Text1.value>0then
for i=0 to 50
Me.label1.visible=true
Me.label1.visible=false
next
end if

يعني ملخص العملية هو انه اريد الlabel يضهر ويختفي عند الشرط المطلوب

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

مهندس مهند

العراق -بغداد- الاعظمية