اظهار النموذج الرئيسي فقط في برنامج

من القائمة tools اختر الامر Startup اكتب اسم النموذج المراد جعله كشاشة افتتاح البرنامج وقم بحذف العلامات من امام كافة مربعات الاختيار لمنع التعديلات ولاخفاء نافذة فاعدة البيانات

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

تحياتي :D

الاخ العزيز ايهاب عثمان المحترم

شكرا: لك على اجابتك ولكن ليس هو ما اسئل عنه اريد يختفي برنامج الاكسس والبرنامج المرفق للاخت زهرة يوضح كلامي حيث انك ترى فقط الواجهة الاساسية واطلب ايضا" كيفية تعديل قاعدة البيانات

اخوك

اسامة العراقي

هل جربت الخطوات التي ذكرته؟؟؟؟

انها تنفذ ماتريد.

ثم اين البرنامج المرفق :wacko:

الاخ العزيز

شكرا" على تواصلك

ماريده هو جعل النموذج الرئيس يظهر فقط ويختفي الاكسس نهائيا" كما في المثال المرفق برنامج للاخت زهرة المحترمة

علما" ان سئلت مرة ثانية في المنتدى بعنوان برنامج واجهة رئيسة سؤال ثاني

مع جزيل الشكر والتقدير

اسامة العراقي

zahrah.rar

كيف يمكن التراجع عن الأوامر اختفى كل شي ولا استطيع تحرير البرنامج

؟؟؟؟؟؟؟

اخي الفاضل

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

هذه الخطوات شرح من قبل الاخت زهرة في سؤال لي في المنتدى وقامت مشكورة بالجواب وبعد اذنها اقوم بعرضه مرة ثانية

اتبع الشرح التالي بدقه حتى يعمل البرنامج معك يشكل سليم

1. انشئ وحدة نمطية جديده وضع بها هذا الكود

CODE

Option Compare Database

Option Explicit

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

او استورد الوحدة النمطية من المثال الى قاعدة بياناتك

2. من خصائص النموذج ومن تبويب الكل اختر منها

1. اشرطة التمرير لا هذا ولا ذاك

2. محددات السجلات لا

3.الخطوط المقسمة لا

4. ازرار التنقل لا

5.تغيير حجم تلقائي نعم

6. توسيط تلقائي نعم

7. منبثق نعم

8. شكلي او مشروط نعم

9. نمط الحدود مربع حوار

10 . مربع عنصر التحكم لا

11. زر التصغير والتكبير بلا

12. زر الاغلاق لا

3. في حدث عند الفتح ضع هذا الكود

CODE

Private Sub Form_Open(Cancel As Integer)

fSetAccessWindow (SW_SHOWMINIMIZED)

fSetAccessWindow (SW_HIDE)

End Sub

4. من اشرطة قوائم برنامج الاكسيس العلويه اختر ادوات واختر منها بدء التشغيل وقم بإزالة كل علامات الصح من المربعات

5. من نفس هذه الخيارات اختر من مربع التحرير والسرد ( عرض النموذج / الصفحة ) نموذجك الذي ترغب ان يكون هو بداية التشغيل

6. قم بعمل زر اغلاق للنموذج لانك لن تستطيع بعد هذا العمل اغلاق النموذج بطريقة سهلة الا من خلال زر الاغلاق هذا

7. قم بحقظ ما قمت به .

قم الان بإغلاق النموذج وقاعدة البيانات واعد فتحها وانظر لنموذجك ماذا حل به

ملاحظة : تستطيع الدخول على هذه العملية ورؤية الاكواد من خلال الضغط على مفتاح SHIFT من لوحة المفاتيح حتى تظهر لك اطار قاعدة البيانات . وعند الاغلاق ستعود القاعدة كما هي فقط نموذج بدون اظهار اطار او كائنات قاعدة البيانات

ملاحظة : قمت بإخفاء كائنات قاعدة البيانات ولن تظهر لك حتى تقوم بإظهارها من شريط قوائم الاكسيس ثم ادوات ثم خيارات ثم تبويب عرض ووضع علامات الصح جميعها

وهذا الشرح من الاخت المحترمة زهرة

المثال المرفق موجود بأسم zahrah