استاذي اعزك الله
 
	المشكلة دة كود اخفاء واجهة اكسيس
 
	ption Compare Database 
	Option Explicit 
	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
 
	في الوحدة النمطة
 
	-------------
 
	كود حدث فتح النموذج
 
	Private Sub Form_Open(Cancel As Integer) 
	fSetAccessWindow (SW_HIDE) 
	End Sub
 
	وهذا يقوم بعملة المشكلة انه بخفي الواجهة للاكسيس والنموذج وانا اريد ان يخفي النموذج ويفتح واجهة الاكسيس ولا اريد نموذج اخر
 
	شكرا لحضرتك