helmy_foad

الان نموذج شاشة التسجيل يعمل و كذلك نموذج تسجيل الإشتراكات بالنسبة لنموذج الإشتراكات المنتهية فبة مشكلة فى الإستعلام سافكر فى حلها ______123456.rar

جارى بحث المشكلة

الحمد لله وصلت للحل و هو من تطبيقات الاخت زهرة وفقها الله Private Sub command20_Click() Dim strPasswd strPasswd = InputBox("الرجاء ادخال الرقم السري الصحيح", "Enter Password") If strPasswd = "" Or strPasswd = Empty Then MsgBox "لم يتم ادخال الرقم السري", vbInformation, "Required Data" Exit Sub End If If strPasswd = "helmy" Then DoCmd.Close DoCmd.Openquery "querydel", acNormal Else MsgBox "معذرة اخي الكريم الرقم السري خاطىء", vbOKOnly, "Important Information" Exit Sub End If End Sub حيث أن command20 هو أسم الزر و helmy هو كلمة السر و querydel هو اسم الإستعلام و ممكن إستخدامة لفتح نموذج بتغيير العبارة DoCmd.Openquery "querydel", acNormal إلى DoCmd.Openform "form1", acNormal حيث form1 هو أسم النموذج

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

ألف شكر أخ التقنى على تثبيت الموضوع و الحقيقة أننى أيضاً تعلمت طريقة اخرى من الأخت و الأستاذة زهرة أيضاً تعمل بكفاءة و احب ان أفيد بها الزملاء فى منتدى اوفيسنا و هى كالتالى : تقوم بعمل وحدة نمطية module تضع فيها هذا الكود : 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 ثم فى النموذج الأساسى الذى يبدأ عند فتح قاعدة البيانات قم بوضع هذا الكود فى صفحة اكواد vba Private Sub Form_Open(Cancel As Integer) fSetAccessWindow (SW_HIDE) End Sub ثم بعد ذلك نقوم بتغيير خصائص كل النماذج و التقارير الموجودة فى قاعدة البيانات بحيث أنة فى التبويب الكل أو (all) أبحث عن منبثق أو popup و إجعلة نعم أو yes ثم تحتة مباشرة شكلى او مشروط modal و إجعلة نعم أو yes ثم تحتة مباشرة نمط الحوار border style إجعلة مربع حوار او dialog و كما قلت هذا فى كل التقارير و النماذج اهم شئ ضع زر إنهاء للأكسيس فى الفورم بحيث تقوم بإغلاق البرنامج منة لكى لا يبقى الأكسيس عالقاً فى الذاكرة و أخيراً فى كل التقارير ضع الكود التالى فى صفحة اكواد vba Private Sub Report_Open(Cancel As Integer) DoCmd.Maximize End Sub و ذلك لكى يعمل التقرير بملئ الشاشة و ذلك عند عرض التقرير و مرفق مثال على هذا من عمل الاخت زهرة و تحياتى للجميع Hide_Access2003.rar

أنا لا اعرف طريقة لمنع الحذف و اترك هذا للسادة المشرفين لكن هناك العديد من البرامج التى تقوم بإستعادة الملفات الممسوحة من على الجهاز حتى لو حذفت من سلة المحذوفات مثل برنامج recover 4 all أو easy recovery

كنت أريد أن أقوم بإخفاء شاشة الاكسيس ، فقمت بالبحث فى المنتديات الاجنبية و وجدت هذة الطريقة و جربتها و كانت سليمة 100 % و نبدأ بالخطوات : 1 - نسخ هذا الكود و لصقة فى module و نسمية باى اسم فهذا لا يهم Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long Dim dwReturn As Long Const SW_HIDE = 0 Const SW_SHOWNORMAL = 1 Const SW_SHOWMINIMIZED = 2 Const SW_SHOWMAXIMIZED = 3 Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean If Procedure = "Hide" Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE) End If If Procedure = "Show" Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED) End If If Procedure = "Minimize" Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED) End If If SwitchStatus = True Then If IsWindowVisible(hWndAccessApp) = 1 Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE) Else dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED) End If End If If StatusCheck = True Then If IsWindowVisible(hWndAccessApp) = 0 Then fAccessWindow = False End If If IsWindowVisible(hWndAccessApp) = 1 Then fAccessWindow = True End If End If End Function ---------------------- 2- قم بعمل ماكرو أسمة mcrHide ضع بة اكشن run code و فى خانة Function ضع الكود التالى fAccessWindow ("Minimize", False, False) ------------------------------ 3 - قم بعمل ماكرو أخر أسمة mcrRestore ضع بة نفس الاكشن السابق run code و فى خانة Function ضع الكود التالى fAccessWindow ("Show", False, False) ------------------------------- 4 - الأن الخطوة الاكثر مللاً إذا كانت لديك العديد من النماذج قم بتغيير خصائص كل النماذج : popup قم بتحويلها إلى yes بدلاً من no ------------------------------- 5- فى النموذج الرئيسى الذى تريدة ان يبدأ بالفتح ضع الكود التالى : Private Sub Form_Open(Cancel As Integer) DoCmd.RunMacro "mcrHide" End Sub ----------------------------- 6 - فى كل التقارير ضع الكود التالى عند الحدث OnOpen DoCmd.RunMacro "mcrRestore" و عند الحدث OnClose DoCmd.RunMacro "mcrHide" ------------------------------- و بهذا تكون قد إنتهت الخطوات ربما تظهر انها خطوات طويلة ، لكنها طريقة فعالة جداً و تعطى منظر إحترافى جميل للبرنامج و اعتذر للإطالة و تحياتى للجميع New_Microsoft_Access_Application.rar

اف شكر أخى يوسف أعتقد ان تحويل نوع الحقل إلى text بدلاً من number هو الأسهل خصوصاً انه لن يتسبب فى مشاكل واضحة ألف شكر

السلام عليكم فى قاعدة البيانات ، إذا كان المطلوب تسجيل رقم الموبايل ( الجوال) الخاص بالشخص و هو مثلاً عندنا فى مصر يبدأ بأحد الأرقام الاتية : 012 010 018 و بالتالى فسيكون الرقم المدون هو مثلاً : 0121234567 المشكلة أن الاكسيس يحذف الصفر من على اليسار فيصبح 121234567 فما الحل لهذة المشكلة ، حيث أننى أريد أن يظهر الصفر على اليسار

هل هذا ما تريدة يا أخ مشاكس ؟ _____.rar

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

و هذا رابط مباشر للكتاب بدلاً من الرابيد شير أضغط هنا

أليك برنامج المكتبة للاخ hamdynose LIBRARY.rar

ما رأيكم فى هذا الحل الرائع لقد وجدتة فى كتاب access cook book لمن يريد تحميل هذا الكتاب أضغط هنا

أشكرك أخى يوسف لقد وجدت الحل بالفعل أنظر المرفق _______________.rar

أشكرك على الرد يا اخ يوسف لكن ليس هذا القصد من السؤال فلنفترض انة لا توجد نماذج إطلاقاً فقط جدول او أثنين مرتبطين بعلاقة و إستعلام بالفترة الزمنية عن البضاعة التى تم توريدها فى الفترة من ( ) إلى ( ) و قمت بعمل تقرير على هذا الإستعلام بحيث إذا فتحت التقرير يطلب منك الأكسيس وضع تاريخ البداية ، ثم تاريخ نهاية المدة فى نافذة مخصصة ثم يظهر لك التقرير المطلوب هو أن يظهر فى التقرير أن هذا التقرير عن الفترة من ( ) إلى ( )

السلام عليكم لدى تقرير مبنى على إستعلام قائم على أساس between[from]and[to] و اريد أن تظهر عبارة الفترة من (التاريخ الاول ) إلى ( التاريخ الثانى) فى رأس الصفحة فى التقرير ، و كلما قمت بتغيير الفترة الزمنية تم تغييرها فى التقرير كيف يمكن عمل ذلك ؟؟؟؟

يمكنك عمل النموذج المستمر كما فى الصورة المرفقة

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

لدى قاعدة بيانات من تصميم الاستاذ عادل القاسمى فيها كل ما طلبت من وظائف تجدها فى المرفقات _____________________________________________________________________.rar

قم بتحميل هذة القاعدة http://www.officena.net/ib/index.php?act=A...ost&id=7374 و هى خاصة بى و ضعها فى مجلد و ضع معها الصور فى نفس المجلد و قم بملئ البيانات و وضع صورة مختلفة لكل موظف و سترى النتيجة ملحوظة يجب أن تملأ البيانات الوظيفية و الشخصية ، لأن بها العديد من الحقول المطلوبة إجبارياً

أخى العزيز ستجد فى هذا المثال نموذج لهذا الزر http://www.officena.net/ib/index.php?act=A...ost&id=7374

لو وضعت قاعدة البيانات و الصورة فى مجلد واحد قم بمسح إمتداد الصورة فى السجل فى الجدول ، و أجعلة أسم الصورة فقط أى لو أسم الصورة flower و إمتدادها jpg بيكون أسمها فى السجل flower.jpg فقط بدون أسم المجلد و لا الدرايف انا عندى قاعدة بيانات للموظفين ، و لكل موظف صورة قمت بوضع كل صور الموظفين مع قاعدة البيانات فى مجلد واحد بهذة الطريقة ثم قمت بإخفاء الصور ، حتى لا يصبح المجلد شكلة مزدحماً و هذة الطريقة مفيدة جداً إذا كنت ستنقل قاعدة البيانات من مكان لأخر ، من المنزل إلى العمل مثلاً فتقوم بنقل المجلد بالكامل

هل من الممكن أن يعمل الأوت لوك وحدة تلقائياً عند بدء تشغيل الويندوز و يقوم أيضاً بعملية send/receive ???????????????????

اشكرك أستاذى رضوان و جارى تنفيذ تعليماتك