أبوبسمله

مرحبا بك اخى فى قسم الاكسس هذا الموقع تعليمى ولكن يمكنك وضع اعلان فالقسم التالى بالموقع https://www.officena.net/ib/forum/157-إعلانات-شخصية-بأجر-للاعضاء/ بالتوفيق اخى

جزاك الله خيرا اخى واستاذى 💐 لقد حاولت التسجيل بالامس وفعلت برساله الموبايل ووصلت رساله تفعيل اخرى ع الايميل لكن لم يكتمل التفعيل وبترجمه الرساله قاموا بتوجهيهى للدعم تبعهم فتركت التسجيل واغلقته خير الحمدلله

جزاك الله خيرا اخى واستاذى @صالح حمادي 💐 هل هو مجانى ام مدفوع ولو امكن شرح بسيط لاخوك الصغير

اهلا بك فى منتدى الاكسس اخى خليل برجاء فتح موضوع جديد ووضح ما تريد مع مثال فعلى لما لديك حتى يتثنى لاخوانك واساتذتنا مساعدتك ومبدئيا لانقاص شهرين من التاريخ انشئ استعلام وبه حقل التاريخ وفى حقل جديد فالاستعلام ضع الكود التالى ثم شغل الاستعلام بدل اسم حقل التاريخ dDate الى الاسم الذى لديك DateAdd("m";-2;[dDate]) بالتوفيق

مشاركه مع اخوانى واساتذتى جزاهم الله خيرا ع قد حالى اعمل استعلام تحديث واختار حقل الصوره وضع المعيار التالى فى التحديث الى مع تغير كلمه المسار التالى الى المسار الجديد بدون اسم الملف Replace([figura];Left([figura];InStrRev([figura];"\";InStrRev([figura];Right([figura];1))));"D:\photos\") Database2.accdb

وعليكم السلام اخى @ازهر عبد العزيز برجاء وضع الرابط للموضوع للاطلاع عليه بالتوفيق اخى

واياكم اخى ارفق هذه المواقع ليطلع عليها اخواننا واساتذتنا لافادتك عنها ان شاء الله بالتوفيق اخى

وعليكم السلام يمكنك استخدام الوحده النمطيه لاختنا ومعلمتنا زهره جزاها الله خيرا لتخفيض مستوى امان الماكرو عند فتح البرنامج واليك الشرح عالرابط التالى مع مثال http://arabteam2000-forum.com/index.php?/topic/136983-الشرح-الكامل-التفصيلي-المصور-لمعرفة-نسخة-الأكسيس-وتخفيض-الأمان-برمجيا/ بالتوفيق اخى Option Compare Database Option Explicit Enum RegHive HKEY_CLASSES_ROOT = &H80000000 HK_CR = &H80000000 HKEY_CURRENT_USER = &H80000001 HK_CU = &H80000001 HKEY_LOCAL_MACHINE = &H80000002 HK_LM = &H80000002 HKEY_USERS = &H80000003 HK_US = &H80000003 HKEY_CURRENT_CONFIG = &H80000005 HK_CC = &H80000005 HKEY_DYN_DATA = &H80000006 HK_DD = &H80000006 End Enum Enum RegType REG_SZ = 1 REG_BINARY = 3 REG_DWORD = 4 End Enum Public Const ERROR_SUCCESS = 0& Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long Public Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long Public Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long Public Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long Public Declare Function RegEnumKey Lib "advapi32.dll" Alias "RegEnumKeyA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, ByVal cbName As Long) As Long Public Function CreateRegKey(hKey As RegHive, strPath As String) Dim hCurKey As Long Dim lRegResult As Long lRegResult = RegCreateKey(hKey, strPath, hCurKey) If lRegResult <> ERROR_SUCCESS Then 'there is a problem End If lRegResult = RegCloseKey(hCurKey) End Function Public Function SaveRegLong(ByVal hKey As RegHive, ByVal strPath As String, ByVal strValue As String, ByVal lData As Long) Dim hCurKey As Long Dim lRegResult As Long lRegResult = RegCreateKey(hKey, strPath, hCurKey) lRegResult = RegSetValueEx(hCurKey, strValue, 0&, REG_DWORD, lData, 4) If lRegResult <> ERROR_SUCCESS Then End If lRegResult = RegCloseKey(hCurKey) End Function

صراحه اخى @عبداللهM لا اعلم ما المشكله لديك فلقد قمت بادخال السريل وتم بنجاح التفعيل ولم تظهر الكتابه مره اخرى فالتقرير الثانى لعل احد اخواننا واساتذتنا يفيد @Barna بالتوفيق اخى

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

جزاك الله خيرا اخى واستاذى محمد @Barna 💐 وفيك بارك الله اخى @عبداللهM مرفق صورتين من ع نفس المرفق للتوضيح

اهلا والدي العزيز محمد @حلبي جزاك الله كل خير وإياكم إن شاء الله ونسأل الله الأجر على قول رسول الله صل الله عليه وسلم سيدنا ومعلمنا ورسولنا وأمام الأنبياء والمرسلين سيدنا محمد صل الله عليه وسلم - الدال على الخير كفاعله جزاهم الله خيرا اخواننا واساتذتنا 💐💐💐

جزاك الله خيرا جزاها الله خيرا ام عهود عذرا ده تسجيل الاداه للعمل وليس الترخيص ع ما يبدوا أنني اقد للتركيز بقالي يومين بعتذر مره اخرى التركيز رايح خالص فقد وفرت ام عهود الترخيص وهو كالتالى من نفس الموضوع فالمشاركه التاليه واقرائها جيدا http://arabteam2000-forum.com/index.php?/topic/170595-التقاط-صورة-الموظف-بالكميرا-او-بالماسح-الضوئي-وحفظها-في-مجلد-الصور/&do=findComment&comment=862306 جزاها الله خيرا وتم تجربه الترخيص فى نفس التقرير الذى به المشكله وعمل جيدا الحمدلله رب العالمين إن شاء الله أحد اخواننا واساتذتنا يفيد بما لديه من معرفه حول الاداه بالتوفيق

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐 بالتوفيق اخى @فايز..

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐

وعليكم السلام ع حسب ما فهمت اخى الفاضل حمل مجموعه الخطوط وفك الضغط ثم حدد المجموعه كامله ثم كليك يمين واثبت الخطوط كالتالى بعد الانتهاء من التثبيت افتح الوورد حدد الجدول وفى الخطوط اختر CarolinaBar-Demo-25E2 ثم اعد كتابه ارقامك Fonts.rar

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

اتفضل اخى @فايز.. ان شاء الله يكون ما تريد بالتوفيق اخى Posters(1)(1).accdb

سورى على فهمى الخطأ للسؤال اخى @عبداللهM الاداه التى تستخدمها dbPix ليست مجانيه وعليك شرائها من http://www.ammara.com/ ولعل احد من اخواننا واساتذتنا يفيدنا اكتر ان شاء الله بالتوفيق

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐 بالتوفيق اخى فايز

وعليكم السلام اخى @فايز.. هل هذا ما تريد ؟ تم حذف تكرار الحقول فالتصميم ولم اجد احسن من هذا الشرح للاستاذ @Bluemind جزاه الله خيرا بالتوفيق اخى Posters(1).accdb

اتفضل اخى قاسم @khasem شوف بيانات المشرف عماد هل هذا ما تريد فى العدد ؟ visit.accdb

اللهم آمين ووالديك وجميع المؤمنين والمؤمنات والمسلمين والمسلمات الاحياء منهم والاموات انت لديك مربع النص الذى به المعادله nn وكتبت معادلتك التاليه ووضعت شروطك وقلت ان كان يوم جمعه او سبت اكتب عطله رسميه وان لم يكن ضع nn طيب ماذا يحتوى nn ؟ =IIf(Format([mm];"dddd")="الجمعة" Or Format([kk];"dddd")="السبت";"عطلة رسمية";[nn]) طيب ما الذى نريد اظهاره انا اخدت من تصميم التقرير انك تريد اسم المدرسه وتفاصيل طبعا حقل اسم المدرسه غير مضاف فقمت باضافته واجعلته غير مرئى واسميته ns =IIf(Format([mm];"dddd")="الجمعة" Or Format([kk];"dddd")="السبت";"عطلة رسمية";[ns]) يارب اكون قدرت اشرحلك واوصلك المعلومه ببساطه اذا اردت اظهار معلومات اخرى فى هذا الحقل اجمعهم فى الاستعلام فى حقل واحد ووضعه فالتقرير واخفه وضع اسمه كما تم الشرح بالتوفيق اخى قاسم

وعليكم السلام اخى قاسم @khasem هل هذا ما تريد ؟ اذا كان نشرح ان لم يكن وضح ماذا تريد ان يظهر مكان الخطأ ان لم يكن هذا عطله رسميه - السبت او الجمعه بعتذر نسيت ارفاق الملف visit.accdb

وعليكم السلام هل تقصد هكذا اخى ام شئ آخر ؟ Pro-In-Tmt.rar