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

الاخ الكريم ...حفظك الله..

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

sss.zip

أخي الكريم

استبدل الوحة النمطية العامة بالكود التالي:

 

Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3

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
	On Error Resume Next
	Set loForm = Screen.ActiveForm
	If Err <> 0 Then
	  If nCmdShow = SW_HIDE Then
	  Else
		loX = apiShowWindow(hWndAccessApp, nCmdShow)
		Err.Clear
	  End If
	Else
		If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then
		ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
		Else
			loX = apiShowWindow(hWndAccessApp, nCmdShow)
		End If
	End If
	fSetAccessWindow = (loX <> 0)
End Function

وفي حدث عند الفتح للنموذج ضع الكود التالي :

fSetAccessWindow (SW_SHOWMINIMIZED)
fSetAccessWindow (SW_HID

E)

وفي حدث عند الفتح للتقرير ضع الكود التالي:

 DoCmd.Maximize

وهذا هو المثال بعد التعديل

sss.rar

((رب اشرح لي صدري ويسر لي امري واحلل عقدة من لساني يفقه قولي))

الاخوة الكرام

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

الاولى : انه تم فتح النوذج في وضع للقراءة فقط ولا يمكن التعدبل فيه وهو جيد ولكن ان اردت تحديث بعض البيانات او تعديلها فكيف ؟؟؟؟؟

الثانية : ان بعد فتح النموذج تخصص جديد واردنا استعراض تقرير فان التقرير يبقى خلف النموذج و لايظهر الا بعد اغلاق النموذج فارجو المساعدة ؟؟؟؟؟؟؟

aleppo6.rar

aleppo6.rar

الاخ slav

وصف المشكله كالآتي

لا يمكنك تعديل او الحذف او الاضافة لان هذه الخواص محدده FALSE وبعد تحويلها إلى TRUE

وكذلك خاصية ENAPLE تم تحويلها الى TRUE لبعض مربعات النص وانحلت المشكله

بالنسبة للتقارير تم تحويلها إلى منبثقه ومشروطه لأن النموذج الرئيسي منبثق وعليه أنحلت المشكله

وبالله التوفيق

لك جزيل الشكر اخ برمجان

وانحلت المشكلة وفرصة سعيدة