أبوبسمله

احسنت اخى @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-إعلانات-شخصية-بأجر-للاعضاء/

بالتوفيق اخى

2 ساعات مضت, صالح حمادي said:

هو مدفوع لكني لم أجربه

فقد سجلت بالموقع قصد تجربتها لكن منعتني بعض الظروف من ذلك

جزاك الله خيرا اخى واستاذى 💐

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

فتركت التسجيل واغلقته خير الحمدلله

10 دقائق مضت, صالح حمادي said:

السلام عليكم

هذا موقع أحد الشركات الهولندية و هي تدعم هذه الخاصية

https://metamicro.nl/en-gb

جزاك الله خيرا اخى واستاذى @صالح حمادي 💐

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

29 دقائق مضت, Khaleel nuher said:

السلام عليكم ورحمة الله وبركاته اخوتي الاعزاء

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

موظف استحقاقه في 2020/7/5  حصل على قدم وقدره شهران

يصبح تاريخ استحقاقه في 2020/5/5

مع كل تمنياتي لكم بالخير والتوفيق الدائم

اهلا بك فى منتدى الاكسس اخى خليل

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

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

بدل اسم حقل التاريخ dDate الى الاسم الذى لديك

 DateAdd("m";-2;[dDate])

بالتوفيق

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

ع قد حالى

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

Replace([figura];Left([figura];InStrRev([figura];"\";InStrRev([figura];Right([figura];1))));"D:\photos\")

Database2.accdb

وعليكم السلام اخى @ازهر عبد العزيز

برجاء وضع الرابط للموضوع للاطلاع عليه

بالتوفيق اخى

واياكم اخى

منذ ساعه, حامد عبد الكريم said:

فهمت من بعض المواقع الاجنبية انه يوجد مواقع غير رسمية تدعم هذا 

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

بالتوفيق اخى

وعليكم السلام

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

واليك الشرح عالرابط التالى مع مثال

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/

ولعل احد من اخواننا واساتذتنا يفيدنا اكتر ان شاء الله

بالتوفيق

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

بالتوفيق اخى فايز