فيصل الحربي

السلام عليكم ورحمة الله وبركاته إليكم طريقة إخفاء شاشة الأكسس نهائيا بعد فتح النموذج المطلوب 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 -دعواتكم لنا بالتوفيق مرفق مثال على الطريقة ====================== تحياتي hideaccesswindow.zip

السلام عليكم ورحمة الله وبركاته لمنع المستخدم من اغلاق النموذج حتى لو استخدم مفتاحي ALT+F4 إلا بالضغط على زر السماح بالخروج ملاحظة : اذا لم يتم وضع زر للسماح بالخروج فلن يتم إغلاق النموذج . 1- افتح النموذج المراد عدم إغلاقه في وضع التصميم . 2- غير خاصية زر الاغلاق للنموذج إلى ( لا ) . 3- من قائمة عرض اختر تعليمات برمجيه. 4- انسخ الكود التالي في قسم الاعلانات ( Declarations ) . Option Explicit Public blnClose As Boolean 5- ضع في حدث عند التحميل للنموذج الكود التالي blnClose = False 6- ضع زر امر على النموذج واعطه الاسم التالي : السماح بالخروج 7- في حدث عند النقر لزر السماح بالخروج ضع الكود التالي : blnClose = True DoCmd.Close acForm, "FormName", acSaveNo 8- ضع الكود التالي في حدث عند إلغاء التحميل : Dim strMessage As String Dim intStyle As Integer Dim strTitle As String strMessage = "انت تحاول إغلاق النموذج بطريقة غير صحيحة" & _ vbCrLf & "فضلا ... أغلق النموذج بالطريقة الصحيحة وذلك بالضغط على زر السماح بالخروج " intStyle = vbOKOnly + vbCritical strTitle = "إغلاق غير صحيح" If blnClose = False Then MsgBox prompt:=strMessage, buttons:=intStyle, Title:=strTitle Cancel = True End If 9- شغل النموذج وحاول اغلاقه بالضغط على مفتاحي ALT+F4 ... سوف تخرج الرسالة السابقة . 10- إضغط على زر السماح بالخروج ثم حاول إغلاق النموذج . 11- دعواتكم لنا بالتوفيق .

السلام عليكم ورحمة الله وبركاته الدرس الرابع Ms_Access4.zip

السلام عليكم ورحمة الله وبركاته الدرس الثالث Ms_Access3.zip

السلام عليكم ورحمة الله وبركاته الدرس الثاني Ms_Access2.zip

السلام عليكم ورحمة الله وبركاته اليكم أربعة دروس في قواعد البيانات الدرس الأول في المرفقات Ms_Access1.zip

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

السلام عليكم ورحمة الله وبركاته أخي العزيز امير عاطف الطريقة : 1- فتح القاعدة بالضغط على مفتاح الشيفت 2- فتح النموذج المراد التعديل علية 3- فتح محرر فيجوال بيسك 4- الضغط على ايقونة التصميم في محرر فيجوال بيسك عندها سيفتح النموذج في وضع التصميم ، ولكن الكود غير ممكن الوصول اليه اليك الرابط وفيه طريقة حمايه النموذج ( MDE ) من الفتح او التعديل . http://www.arabteam2000.com/vb/showthread....&threadid=22119

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

السلام عليكم ورحمة الله وبركاته أخي العزيز اليكم كود معرفة اول وآخر يوم في الشهر ( بالميلادي ) StartDate = CDate("1/" & DatePart("m", mydate) & "/" & DatePart("yyyy", mydate)) enddate = DateAdd("d", -1, DateAdd("m", 1, StartDate)) Date_Code.zip

السلام عليكم ورحمة الله وبركاته إليكم بريمج يتيح لكم تفعيل مفتاح الشيفت وذلك للتمكن من الدخول الى أي قاعدة معطل بها مفتاح الشيفت . PropertySetter.zip

السلام عليكم هذه أداة إضافيه لبرنامج الاكسس وضيفتها هي عمل توثيق لجميع الكائنات في ملف قاعدة البيانات تحياتي ezydoc2k.zip