ابوخليل

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

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

عليكم السلام 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

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

انت لم تذكر هذا من قبل .. ويمكن وجهة نظر مقبولة بهذا الشرط ... سوف ارى ما يمكن عمله اما التواريخ وتنسيقها انظر تنسيقاتك في وندوز واضبطها عندي كل شيء تمام

غريب!! كيف مدرس في الرياض يدرس طلاب في جدة ... اذا ما فائدة اضافة المدن؟ عندي التاريخ صحيح عزيزي المسألة في الاعداد .. يدرج التواريخ الواقعة بين التاريخين في جدول Tbl_TeachersTemp تأكد من هذا الجدول بقية العمليات مجرد نقل

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

لا اصف لكم المعاناة التي واجهتها من اجل بلورة الفكرة وتصور التنفيذ ولكن .. الحمد لله توصلت الى تحقيق المطلوب فكل الاشتراطات تحققت ولكن التنفيذ لا يتم بضغطة زر واحدة .. التوزيع يتم بناء على اختيار : المدينة / والمجموعة ... الآن اعتقد انه من الممكن التعديل على المثال وضم هذه العمليات تحت زر واحد توزيع الطلاب على ايام الدورة.rar

اللي انا عملته ان الكود ياخذ الرقم او الرقمين اللي يمين حرف x الحل الوحيد امامك انك تضع شي مشابه حتى يقبلها الكود ولا يظهر خطأ مثلا : اجازة عادية ويمثل لها بـــ x0 اجازة مرضية ويمثل لها بـــ x00 غياب ويمثل لها بـــ x000 عطله ويمثل لها بـــ x0000 وهكذا .. الكود يرى هذه ارقام ويقبلها والصفر لا يؤثر على المجاميع

العنوان لا يصف الموضوع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف هذا موضوعك الاول ، لم يمض عليه الا ساعة فقط وقد تم التنبيه بالالتزام بقواعد المشاركة يغلق ،،،

اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف سبب الاغلاق كتبته لك على العنوان نفسه : عنوان مخالف وانت خالفت شرطين ليس شرطا واحدا نحن هنا نغلب المصلحة العامة على المصلحة الشخصية بمثل هذا العنوان ستضيع الفائدة على من يبحث عن مثل طلبك ، حتى انت لو بحثت عنه في المستقبل لن تجده ------ سبب الرد هو اعتراض صاحب الموضوع

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

اين تضع هذه الكلمة ؟ هل في حقول الـــــــ x ؟ اذا صحيح هذا لا يمكن لأنها حقول رقمية لا تقبل الا الأرقم وايضا ينبني عليه عمليات حسابية يمكن حل المشكلة بأن تجعل القيمة الافتراضية للحقل صفر وفي هذه الحالة لست ملزم بكتابة شيء .