ياشباب ثلاث اسئلة كل سؤال يقول انا؟؟

اعزائي لقد عملت هذا الكود المنقول من الاخ fahadam والاخ اوحمود لكن كما تلاحظون وجود زري امر واحد اضهار النموذج والثاني اخفاء اخواني لااريد زرين اريد ظهور

الامر امر الاخفاء على طول عند تشغيل البرنامج من غير اضافة زري امر شكرا

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)

'Usage Examples

'Maximize window:

' ?fSetAccessWindow(SW_SHOWMAXIMIZED)

'Minimize window:

' ?fSetAccessWindow(SW_SHOWMINIMIZED)

'Hide window:

' ?fSetAccessWindow(SW_HIDE)

'Normal window:

' ?fSetAccessWindow(SW_SHOWNORMAL)

'

Dim loX As Long

Dim loForm As Form

On Error Resume Next

Set loForm = Screen.ActiveForm

If Err <> 0 Then 'no Activeform

If nCmdShow = SW_HIDE Then

MsgBox "Cannot hide Access unless " _

& "a form is on screen"

Else

loX = apiShowWindow(hWndAccessApp, nCmdShow)

Err.Clear

End If

Else

If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then

MsgBox "Cannot minimize Access with " _

& (loForm.Caption + " ") _

& "form on screen"

ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then

MsgBox "Cannot hide Access with " _

& (loForm.Caption + " ") _

& "form on screen"

Else

loX = apiShowWindow(hWndAccessApp, nCmdShow)

End If

End If

fSetAccessWindow = (loX <> 0)

End Function

'************ Code End **********

قم بانشاء نموذج وهو النموذج الرئيسي

لبرنامجك وضع به زرين وسمي احدهما

اخفاء الشاشة الرئيسية

واربط معه الكود التالي

fSetAccessWindow SW_HIDE

والثاني

اظهار الشاشة الرئيسية

واربط معه الكود التالي

fSetAccessWindow SW_SHOWNORMAL

ومن ثم غير بعض الخصائص الخاصة بالنموذج الى

ما يلي

Pop Up = YES

Modal = YES

شباب السؤال الثالث حليته ولله الحمد انتهى موضوعه انسوه بفضل

ردودكم السابقة شكرا لكم بقي سؤالين بس

لو سمحتوا وين القى برنامج او الحزمة المستقلة عن اكسس وهي

خاصة بالحزم والذهاب

Microsoft Access Tool Kite

ارجوا الرد السريع

ياجماعة ابي رد اذا امكن

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

هذا غير قابل للتنزيل و لا بد أن تنسخه ممن يملكه

و هو غير منتشر

أنا ليس لدي سوي الاصدار الخاص ب 97 و لم أنجح فى الحصول علي 2000 أو 2002 منه.

أوضح للأخوة أين تسكن ليتمكن أحد من اعطاؤك نسخة

انا في منطقة تبوك

افهم من كذا انه مافيه اجابات مقنعة ياعرب