ابوخليل

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

لا اعلم عن طريقتك او فكرتك بعد الحروف في السجلات لماذا لا تستخدم دالة 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

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

عليكم السلام اولا منهج استاذنا جعفر هو عدم التعدي على خصوصيات العميل ، وهنا قدم لنا درسا لكيفية خفض امان برنامجنا فقط ثانيا : من واقع تجربة يمتنع عمل الكود من داخل اكسس حال فتحه ، لهذا نضطر لاستخدام وسيط او ملف خارجي لهذه المهمة . بالنسبة لي استخدم ملف تنفيذي يتم تشغيله اثناء تنصيب برنامجي وهذا هو الملف .. يعمل على 12 ، 14 ، 15 ، 16 low_new.rar

هذه المشكلة شائعة ومعروفة : يحدث خطأ عندما تكون قيمة احد الحقول المجموعة فارغة ويتم تجاوز هذا الخطأ بتحويل قيمة الحقل الى صفر عندما يكون خاليا وذلك باستخدام الدالة NZ ونستخدمها كالتالي في جميع الحقول مثلا : =[ZZ1].[Form]![ZZ] تصبح هكذا : =NZ(=[ZZ1].[Form]![ZZ]);0)

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

هو بزززززززاته يعني ما لي عذر .. مسكت يدي حتى وقفتني على الباب الف شكر لشرحك الجميل .. كتب الله اجرك

السلام عليكم ضمن ادوات وخصائص اكسس / ملف / ....... يبدو انني الغيت خصيصة السؤال قبل حذف العناصر والكائنات سهواً .. ولكن اين مكانها ؟ واين اجدها ؟ .. لا اعلم فلم اهتد اليها . دلوني عليها جزيتم خيرا ... اوفيس 2019

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

اشرح لي نظريا كيف نطبق هذا الشرط ؟ من اختار من المعلمين ؟ ومن اختار من الطلاب -------------------------------------------- اذا اخترت معلمي اااالرياض وجميع الطلاب ما عدا طلاب الرياض سيأخذ معلمي الرياض جميع الطلاب من المدن المعروضة هنا .. لا نصيب للمعلمين الآخرين من الطلاب ------------------------------------------------------------------- اذا اخترت جميع المعلمين واستثنيت طلاب مدينة معينة .. سيبقى هؤلاء الطلاب خارج التوزيع --------------------------------- العملية غير منضبطة ... على كل حال تم الغاء اختيار المدينة وتم التوزيع بناء على المجموعة فقط ايضا اظهار مجموع عدد الحصص الكلي ( الايام ) يجب ملاحظة التالي : المفترض لكل معلم 20 حصة خلال الشهر ولكن في مجموع الحصص ستلاحظ نقص في عدد الحصص والسبب جاء من ان بعض المعلمين مجاز مجاز في بعض الايام لم اتمكن من فرض كلي في اختلاف المدينة بين المعلم والطالب .. ولكن ستجد توافق لمرة واحدة احيانا ( تعدل يدويا ان اردت) جرب على المجموعة D فهي المنضبطة في عدد المعلمين وايامهم اما بقية المجموعات فيوجد فرق بين عدد المعلمين وعدد ايامهم هذه محاولة قابلة للتطوير لمن اراد المساعدة من احبتنا واخوتنا هنا توزيع الطلاب على ايام الدورة2.rar

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