ابوخليل

تم تحقيق طلبك الأول الافضل تجعل طلبك الثاني في موضوع مستقل جديد لأنه يخص التقارير ABC2.accdb

يبدو ان قيمة me.type_in_ara في المثال تختلف عن قيمتها في برنامجك حاول ان ترفع مثالا مطابقا تماما لما هو موجود في برنامجك

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

تفضل حسب طلبك وشرحك بالصورة بالضبط علما بعد رفعي لهذه الاجابة تبين لي ان Other غير منضبط وبحاجة لضبط خاص Private Sub TYPE_IN_ARA_AfterUpdate() Dim i As Integer i = DCount("TYPE_IN_ARA", "TBL_IN_ARA", "TYPE_IN_ARA=" & Me.TYPE_IN_ARA) If TYPE_IN_ARA = 1 Then Me.AI = i + 1 ElseIf TYPE_IN_ARA = 2 Then Me.BO = i + 1 ElseIf TYPE_IN_ARA = 3 Then Me.CR = i + 1 Else Me.OTHER = i + 1 End If End Sub ABC2.accdb

غير مفهوم .. ليش تقرير واستعلام وتاريخ ... فعلى شرحك اعلاه يكون آخر سجل يحمل مجموع عدد مرات التكرار يعني ادخلت حرف A عشرين مرة في عشرين سجل .. هنا السجل ألأخير سيحمل رقم 20 صح ؟

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

تفضل حسب ما فهمت على الاقل هذه الفكرة تفيدك ABC.accdb

1- اضبط هوامش التقرير بحيث تكون مناسبة 2- يجب تحجيم عرض المحتوى .. شيئا فشيئا والتجربة كل مرة حتى تختفي الرسالة القصد ان لا يكون اتساع وعرض الحقول في السجل اكبر من عرض التقرير الافتراضي ... لأن عرض التقرير الافتراضي لا يتغير الا عند تغيير حجم الورق فهو يمثل صورة طبق الأصل للورقة التي تم اختيارها للطباعة عليها .

فائدة جميلة .. قد تخفى على الفطن

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

انظر هنا ترقيم في الاستعلام حسب الشهر

المرفق في اول مشاركة ..

السلام عليكم العلاقات بين الجداول هي للربط والتقييد ربط وتقييد وملزم بها فقط عند ادراج النماذج الفرعية . وعن نفسي لا احرص عليها الا للضرورة الموجبة ولكن ليس هذا على اطلاقه ، فبعض الاعمال يكون الربط جزءا لا يتجزأ من تصميم الجداول

تفضل : جمع كل صفحة / ومجموع ما قبله / والمجموع الكلي . اولا تم التجميع على مستوى الاعمدة ثم استخراج الاجمالي حسب المعادلة حقول التجميع تمت تغطيتها بحقول الاجمالي بحيث تختفي تحتها DataFarms.rar

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

انا فقط عملت حسب طلبك على اصلاح حقل البحث ,,, لا تحديث ولا ادخال قيم ايضا لاحظت عدم وجود بيانات في المرفق .. بمعنى كيف اللي يريد يساعدك يفحص ؟

انت غيرت المسميات عن المثال الاول حتى حقول البحث انت غيرت اسماءها ، وهو سبب عدم ظهور النتائج تم التعديل وآمل منك اخي الكريم انك تخصص مستقبلا لكل استفسار موضوع وعنوان جديد يخصه New3.rar

عليكم السلام من اعدادات وندوز الاعدادات الاقليمية

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

عليكم السلام myTxtSahm=fnAreaSahm([حقل المجموع الكلي(اسهم)]) myTxtQerat=fnAreaQerat([حقل المجموع الكلي(اسهم)]) myTxtFdan=fnAreaFdan([حقل المجموع الكلي(اسهم)]) اتمنى ان هذا واضح باعتبار myTxtSahm هو حقل الاسهم في التقرير و myTxtQerat هو حقل القراريط التقرير و myTxtFdan هو حقل الأفدنة في التقرير

نسخ لصق هذا كل الموجود في المشروع : Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long 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& Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long Private 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 Private 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 Private 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 Private 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 Private 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 Private Sub Timer1_Timer() Dim strVM As String Dim strVS As String On Error Resume Next 'strVM = SaveRegLong(HKEY_LOCAL_MACHINE, "Software\Microsoft\Office\11.0\Access\Security", "Level", 1) 'strVS = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\11.0\Access\Security", "Level", 1) strVS = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\12.0\Access\Security", "VBAWarnings", 1) strVS = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\14.0\Access\Security", "VBAWarnings", 1) strVS = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\15.0\Access\Security", "VBAWarnings", 1) strVS = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\16.0\Access\Security", "VBAWarnings", 1) Unload Me End Sub

ان عملته على فيجوال 6 ويمكن عمله في اكسس بالاكواد نفسها هل تريد مشروع الفيجوال ؟ ام يكفي ان اسحب منه كامل الاكواد ؟

'strVS = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\11.0\Access\Security", "Level", 1) strVS = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\12.0\Access\Security", "VBAWarnings", 1) strVS = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\14.0\Access\Security", "VBAWarnings", 1) strVS = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\15.0\Access\Security", "VBAWarnings", 1) strVS = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\16.0\Access\Security", "VBAWarnings", 1) برنامج التحزيم يخدم بعدة اشياء : منها تشغيل التطبيقات اثناء التنصيب او بعد الانتهاء ومنها تنفيذ الأوامر كتسجيل المكتبات ونحوه . ولكني لا حظت في الآونة الاخيرة قوة حماية وندوز .. وعدم السماح للبرامج العادية بتجاوز الحماية خاصة فيما يخص ملفات النظام اللي اقصده انه يكون في ملف التعديل اوامر تتجاوز حماية وندوز ، وكما ترى الملف يقوم بالتعديل على الريجستري ، ورقم واحد في سطر الكود يمثل درجة امان الماكرو ، والارقام من 11 الى 16 تمثل اصدارة اكسس . لا .. لا يشترط .. فبعض الملفات يتيح لنا برنامج التحزيم من توجيهها الى المجلدات المؤقته انا اجعل هذا الملف اعلاه ضمن مجلد البرنامج فقد يحتاجه العميل فيما لو قام بتنصيب اوفيس جديد

عملت لك زر لتفريغ الحقول وتحديث النموذج Bank2.rar

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