عاشق الأمير

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

ما انحلت المشكلة معاي لأني جربت اللي قلت عليه وبعد إغلاق البرنامج و فتحه مرة ثانية طلعت عندي مشكله في التسمية أريد مراجعة الخطوات مرة ثانية... آسف على التعب شكراً أخواني

أخوي ضبط ما تقول مع برنامج وآخر لا

أخوي متى بالتحديد أضغط على زر SHIFT لأني جربت ولا فتحت

بسم الله الرحمن الرحيم أخواني/ السلام عليكم ورحمة الله... أنا عملت غلطه بسيطة. عملت برنامج بالأكسس وعملة الواجهة, بعدها دخلت على بدء التشغيل وجعلتها مباشرة التشغيل المشكلة أني الأن إذا فتحت الواجهة لا أستطيع التعديل على البرنامج لأني لم أحفظها في نسخة أخرى. ما أدري ويش العمل؟؟!

السلام عليكم ورحمة الله وبركاته إليكم طريقة إخفاء شاشة الأكسس نهائيا بعد فتح النموذج المطلوب 1- انشئ قاعدة بيانات جديده 2- انسخ الكود التالي ثم الصقه في وحده نمطيه جديدة وسمها أي اسم ترغب به الكود =============================================== كود 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 =============================================== 3- انشئ نموذج جديد وسمه اي اسم ترغب به 4- غير خصائص النموذج الى pop up=yes modal=yes 5- ضع زر امر لإغلاق النموذج مع الأكسس 6- ضع في حدث عند الفتح الكود التالي الكود ============================================== كود fSetAccessWindow (SW_SHOWMINIMIZED) fSetAccessWindow (SW_HIDE) ============================================== 7- من قائمة أدوات اختر بدء التشغيل ثم حدد النموذج لكي يفتح في بدء التشغيل 8- إحفظ عملك ثم قم بإنهاء القاعدة . 9- شغل القاعدة وسوف ترى ان خلفية الأكسس مختفيه تماما ما عدا النموذج الذي اخترته من قائمة بدء التشغيل . 10 -دعواتكم لنا بالتوفيق مرفق مثال على الطريقة أخواني / هذا ما فعله الأخ : فيصل الحربي بصراحة أنا ما عرفت أطبق الخطوات لأن الأوفيس عندي بالعربي يا ليت تعيدوا لي الطريقة بشيء من التبسيط

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته شخباركم أخواني الأعزاء عندي مشكله يا شباب أنا عملت برنامج على الأكسس وبعدها ابي أجعل البرنامج يشتغل بس بدون ما تظهر صفحة الأكسس أو حتى الإطار الخاجي لها يعني أبقى النافذة بتاعت البرنامج هي اللي تكون موجودة فقط أرجو الإستعجال في الرد لكم تحياتي

السلام عليكم ورحمة الله وبركاته هل لمن يريد التعلم مكان لديكم بالحقيقة انا لا أعلم الخطوات التي يمكنني من خلالها وضع قناع إدخال أو اسم المستخدم و كلمة مرور على البرنامج في الأكسس لو سمحتم أريد الخطوات العملية آسف على التثقيل ممكن ترسلوها على إيميلي