محمد أبوعبدالله

Book1.rar السلام عليكم ورحمة الله وبركاته اشكركم اخواني جزيل الشكر استاذي الفاضل ياسر مرفق الملف بعد اضافة الكود وتنفيذ تعليمات حضرتك ولكن للاسف لا يقوم بالفترة حسب القائمة برجاء توضيخ اين المشكلة بالضبط ========= استاذي الفاضل محمد الدسوقي اشكرك جزيل الشكر ولكن ايضا تظهر مشكلة عند اختيار صف برجاء الاطلاع على الصورة

بسم الله الرحمن الرحيم الاخوة الكرام السلام عليكم ورحمة الله وبركاته ارجو من الاخوة الكرام المساعدة في الملف المرفق وهو خاص بقوائم الفصول في الورقة 2 توجد قائمة في الحقل J1 اريد عند اختيار الصف من هذه القائمة يتم استدعاء البيانات من الورقة 1 حسب الصف ارجو ان تكون الفكرة واضجة ولكم جزيل الشكر تحياتي Book1.rar

بحث اعرض الملف بحث صاحب الملف المراغي تمت الاضافه 27 فبر, 2016 الاقسام أدوات عامة

zahrah_multi_Search اعرض الملف zahrah_multi_Search صاحب الملف المراغي تمت الاضافه 26 فبر, 2016 الاقسام أدوات عامة

وعليكم السلام ورحمة الله وبركاته مرحبا اخي الكريم لم توضح ما هو اصدار الاوفيس الذي تعمل عليه ولم توضح ايضاً طريقة التحزيم مبدئياً : حمل access runtime الخاص بنفس النسخة التي تعمل عليها ( جميع الاصدارات الخاصة بـ access runtime متاحة مجاناً بمايكروسوفت ) ثم استخدم برنامج Smart Install Maker لتحزيم البرنامج تحياتي

تفضل اخي الكريم تحياتي db1.rar

تفضل اخي الكريم تحياتي db1.rar

وعليكم السلام ورحمة الله وبركاته مرفق مثال تم تصميمه لتنفيذ المطلوب تحياتي db1.rar

السلام عليكم استخدم الكود التالي مع تغيير ما يلزم للبحث بكود الموظف Dim Rs As Object Set Rs = Me.Recordset.Clone Rs.FindFirst "[IdCustomer] = '" & Me![Textbox1] & "'" If Not Rs.EOF Then Me.Bookmark = Rs.Bookmark تحياتي

نعم اخي الكريم محمد سلامة الكود يقوم بتعطيل زر الشيفت ولكن ما المقصود بالغاء الشيفت نهائي فبعد وضع الوحدة النمطية الشابقة عند استخدام الكود بالشكل التالي يقوم بتعطيل الشيفت SetProperties "AllowBypassKey", DB_BOOLEAN, False والكود بالشكل التالي يقوم بتمكين زر الشيفت SetProperties "AllowBypassKey", DB_BOOLEAN, True تحياتي

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

السلام عليكم هذا الكود يوضع في وحدة نمطية جديدة Public Function SetProperties(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer On Error GoTo Err_SetProperties Dim db As DAO.Database, prp As DAO.Property Set db = CurrentDb db.Properties(strPropName) = varPropValue SetProperties = True Set db = Nothing Exit_SetProperties: Exit Function Err_SetProperties: If Err = 3270 Then 'Property not found Set prp = db.CreateProperty(strPropName, varPropType, varPropValue) db.Properties.Append prp Resume Next Else SetProperties = False MsgBox "SetProperties", Err.Number, Err.Description Resume Exit_SetProperties End If End Function وفي النموذج الرئيسي للبرنامج نضع الامر التالي في حدث Form_Load SetProperties "AllowBypassKey", DB_BOOLEAN, False تحياتي

وعليكم السلام ورحمة الله وبركاته مرحبا اخي الكريم ما تطلبه هو بالضبط فائدة قاعدة البيانات العلائقية باختصار يمكنك انشاء جدول باسم الاباء تضع فيه جميع البيانات اللازمة ثم تنشىء جدول باسم الابناء وتضع فيه اسم الاب فقط ووضع حقل غريب مأخوذ من جدول الاب وعمل العلاقة بينهم ( واحد الى متعدد ) تحياتي تم انشاء المطلوب ( جدولين + استعلام ) برجاء المراجعة واخباري بالنتيجة تحياتي db1.rar

السلام عليكم ورحمة الله وبركاته مرحبا اخي الكريم راجع الرابط التالي سيفيدك جدا http://www.officena.net/ib/topic/39795-استخراج-معلومات-النظام-بالفيجوال-بيسك-منقول تحياتي

السلام عليكم راجع المرفق الجديد بعد انشاء نموذج جديد تحيلاي Datterr_3.rar

السلام عليكم يوجد استعلام باسم XDater12 برجاء الاطلاع عليه تحياتي

السلام عليكم مرحبا اخي الكريم راجع المرفق تحياتي Datterr.rar

وعليكم السلام ورحمة الله وبركاته مرحبا اخي الكريم استخدم الاداة المذكورة في موضوع اداة تخفيض الامان تحياتي

وعليكم السلام ورحمة الله وبركاته مرحبا اخي الكريم يمكنك انشاء استعلام ووصع معيار في التاريخ كالتالي between forms!xdat!dat01 and forms!xdat!dat02 xdat هو اسم النموذج dat01 هو حقل بداية التاريخ dat02 هو حقل نهايةالتاريخ تحياتي

السلام عليكم بارك الله فيك اخي الكريم ادخل اي تاريخ في حقل date_to لتظهر النتيجة تحياتي تم التعديل ليعمل تلقائيا ان شاء الله تحياتي سنوات الخدمة للموظف01.rar تم التعديل ليعمل تلقائيا ان شاء الله

وعليكم السلام ورحمة الله وبركاته مرحبا اخي الكريم برجاء مراجعة المرفق تحياتي سنوات الخدمة للموظف.rar

السلام عليكم تفضل المرفق به الكود داخل موديول نسخة 2013 + نسخة 2003 تحياتي 001.rar

السلام عليكم مرحبا اخي الكريم استخدم الكود التالي لعدم عرض الشيتات Sub auto_open() On Error Resume Next With Application .DisplayFullScreen = True .CommandBars("Full Screen").Visible = False .CommandBars("MyToolbar").Enabled = True .CommandBars("MyToolbar").Visible = True .CommandBars("Worksheet Menu Bar").Enabled = False End With On Error GoTo 0 End Sub تحياتي