أبوبسمله

وعليكم السلام اخى واستاذى @محمد سلامة مشاركه لاخى واستاذى @ابو تراب جزاه الله خيرا ومنورين الموقع اساتذتى 💐 ارفق لك مثال لاختنا زهره جزاها الله خيرا Private Sub Rn_AfterUpdate() If DLookup("[رقم الملف]", "[الحضور]", "[رقم الملف]=" & Me![Rn] & " AND [التاريخ] =#" & Date & "#") Then MsgBox "معذرة اخي الكريم .... هذا الرقم سبق ادخاله من قبل", vbCritical, "تنبيه" DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70 DoCmd.Close Else DoCmd.Requery "الاسم1" DoCmd.Requery "الوظيفة1" DoCmd.RunCommand acCmdSaveRecord End If End Sub ارجو ان يفى بالغرض معك استاذى بالتوفيق za-عدم تكرار الرقم-END.rar

مشاركه مع اخى واستاذى العزيز @kha9009lid جزاه الله خيرا 💐 استخدم استعلام تحديث للحقل المراد طالما انك تريد وضع مسافات انا واضع 5 مسافات كمثال لاظهارها بالتوفيق

احسنت اخى @ledoledo وجزاك الله خيرا مشاركتك الحل لنستفيد بارك الله فيك 💐

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

مشاركه مع اخى العزيز @محمد احمد لطفى جزاه الله خيرا 💐 هل هذا ما تريد اخى @ازهر عبد العزيز ان كان فهذا ما اجابك به اخى واستاذى العزيز @kanory جزاه الله خيرا 💐 بالتوفيق اخى New Microsoft Access قاعدة بيانات.accdb

جزاك الله خيرا مهندسنا العزيز @محمد طاهر 💐 اخى الفاضل @mo81177 برجاء فضلا لا امرا عند طرح موضوع ارفق مثال لما لديك حتى تحصل على اجابه سريعه ومفيده على ملفك كفكره عامه يمكن استخدام استعلام تحديث لتحديث حقل الكميه بالكميه بالحقل الاخر قبل الحذف استخدمت مثال عندى لتوضيح الفكره لتحديث حقل الكميه بجدول conform من جدول tabl2 شوف الكميه بجدول conform للاصناف شغل الاستعلام qry وادخل رقم الصنف 2 او 4 او 5 سيتم زياده الكميه من tabl2 لجدول conform ارجو ان اكون قد وضحت لك الفكره بالتوفيق اخى استرجاع الفاتورة البيع -2.mdb

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

مرحبا بك اخى فى قسم الاكسس هذا الموقع تعليمى ولكن يمكنك وضع اعلان فالقسم التالى بالموقع 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