نجوم المشاركات

احتمال يكون الخلل من تفعيل بعض خصائص قاعدة البيانات الصورة في المرفقات هي لخيارات قاعدة بيانات mdb ابحث عن الخاصية المحاطة بالمربع الاحمر في الخيارات الخاصة بالاصدار الذي تعمل عليه ثم ازل العلامات من مربع الخيار ان وجدت ثم اغلق قاعدة البيانات وافتحها من جديد

بارك الله لك أستاذ صالح وجعلنا الله جميعا من الصالحين مشكلة هذه الطريقة أن الدالة savesetting تخزن في الريجيستري في مسار محدد HKEY_CURRENT_USER\SOFTWARE\VB and VBA Program Settings والأفضل في هذه الحالة استعمال الريجيستري بطريقة عادية بدون savesetting باستخدام WScript.Shell وهذا ما حدث في هذا الموضوع الجديد والبسيط وفقنا الله وإياكم لكل ما تحبه وترضاه

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

اعرض الملف عمل نسخة تجريبية لمدة محددة بعدها التفعيل بسيريال خاص بكل جهاز بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ------------------------ كل عام أنتم بخير وسعادة ورضا رمضان مبارك ================ استكمالا لسلسلة ما خف وزنه وغلا ثمنه موعدنا اليوم مع ملف يحتاجه كل مهتم بعمل نسخة تجريبية في الأكسس لمدة أسبوع أو شهر أو أي مدة تحددها في الكود ************************** ولا يطلب البرنامج التفعيل إلا بعد انتهاء المدة التجريبية وكذلك لا يجوز اللعب في تاريخ الجهاز لأنه سيتم اكتشافه /////////////////////////////////////////// مرفق ملفان واحد للبرنامج وملف لإنشاء السيريال للتجربة والاختبار واكتشاف الثغرات وهذا فيديو شرح الفكرة والكود +++++++++++++++++++++++++ ولا ينقصني سوى دعاؤكم لي بالخير في الدنيا والآخرة ********************** الكود يعمل على كل إصدارات الأوفيس لأنه تم عمله بأوفيس 2003 دمتم في رعاية الله وحفظه =-*/+=-*/+=-*/+=-*/+ إن شاء الله صاحب الملف أ / محمد صالح تمت الاضافه 07 يون, 2017 الاقسام قسم الأكسيس

تفضل المرفق... تقسيم السنوات و الاشهر و الايام على 2.rar

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

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

قم بتغيير قيم الخلايا D6 و D7 و D8 إلى 9 ، 10 ، 9 (خلايا الشهور) وانظر ماذا يحدث للنتائج... بن علية حاجي

بعد إذن الأستاذ جمال أخي الكريم يرجع الخطأ لاستعمال أسماء الحقول باللغة العربية وتصحيح هذا الخطأ هو ما يلي Private Sub comb_Search_AfterUpdate() On Error Resume Next Me.Filter = "[" & Nz(comb_Search, "رقم المستفيد") & "] Like ""*" & txt_Search & "*""": Me.FilterOn = True Me.txt_Search.SetFocus End Sub Private Sub txt_Search_Change() On Error Resume Next FindAsType = txt_Search.Text Me.Filter = "[" & (Nz(comb_Search, "رقم المستفيد")) & "] Like ""*" & FindAsType & "*""": Me.FilterOn = True txt_Search.SetFocus txt_Search = FindAsType txt_Search.SelStart = Len(FindAsType) End Sub لاحظ الأقواس قبل وبعد اسم الحقل * يبدو أنه أثناء إعدادي للرد سبقني بها أخي شيفان تقبل منا منكم صالح الأعمال

استأذن من استاذنا @Gamal.Saad واستأذن من استاذي الحبيب @رمهان اتفضل القي نظرتا الى الصورة انا غيرت مصدر كومبوبوكس والكود اصبح Private Sub comb_Search_AfterUpdate() On Error Resume Next Me.Filter = "[" & (Nz(comb_Search, "رقم المستفيد")) & "]" & " Like ""*" & FindAsType & "*""": Me.FilterOn = True End Sub Private Sub txt_Search_Change() On Error Resume Next FindAsType = txt_Search.Text Me.Filter = "[" & (Nz(comb_Search, "رقم المستفيد")) & "]" & " Like ""*" & FindAsType & "*""": Me.FilterOn = True txt_Search.SetFocus txt_Search = FindAsType txt_Search.SelStart = Len(FindAsType) End Sub واليك المرفق بعد تعديل مثال .rar

تفضل اخى هل هذا ما تريد ؟ تحويل الاشهر الى سنوات و الايام الى اشهر.rar

يمكنك الاستعانة بهذا الملف D_M_Y.rar يمكنك الاستعانة بهذا الملف

السلام عليكم ورحمة الله تم تحويل الكل إلى أيام (المجموع الكلي بالأيام على أساس الشهر من 30 يوم) ثم تحويل هذه الأيام إلى أعوام وشهور وأيام... بن علية حاجي تحويل الاشهر الى سنوات و الايام الى اشهر.rar

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

بواسطة تنسيق الخلايا

مكرر

أهااا تريد أن تكتب داخل vba لكل نموذج وليس أن يعمل الكود لكل النماذج ! يبدو أن النماذج لديك كثيرة للغاية على العموم سأجرب لك [Event Procedure] ولو توصلت لنتيجة سأوافيك إن شاء الله

لدى حقل a وحقل b المعادلة التى احتاج اليها اذا ( a تساوى b فان a تساوى صفر)

هههههههه لا أعلم من الذي يجب عليه أن يقولها أنا أم أنت للرفع + up

مشكور جزيل الشكر رفع الله درجاتك وتمسك التراب يصبح ذهب انت والاخوة الافاضل ظبطت معي باربع جداول وحاليا اطبع التقرير لتدقيقه لانني بالبيت ادامك الله نفذته في query 3 -------------------- للرفع --------------------- tajmiaa1.rar

أشكر كل من شارك في هذا الموضوع اللهم ارزقنا علما نافعا وعملا متقبلا نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا

تقدرون تستخدم هذا الكود بدل الكود السابق Dim WMI As Object Dim wmiCollection As Object Dim wmiMember As Object Set WMI = GetObject("winmgmts:\\") Set wmiCollection = WMI.InstancesOf("Win32_PhysicalMedia") For Each wmiMember In wmiCollection MsgBox Trim(wmiMember.SerialNumber) Exit For Next Set wmiMember = Nothing Set wmiCollection = Nothing Set WMI = Nothing للمعلومات قم بزيارة هذه الموضوع م.2022.شفان ريكاني

اهلا بك في منتداك اتفضل استخدمت هذا الكود Private Sub Command16_Click() Dim Sql As String Sql = "UPDATE Table1 SET Table1.Holiday = IIf([Cat]<12,[Holiday]+40,[Holiday]+50);" DoCmd.SetWarnings (warningsoff) DoCmd.RunSQL (Sql) DoCmd.SetWarnings (warningson) Me.Refresh End Sub واليك المرفق بعد تعديل Udpate Total.rar م.2021.شفان ريكاني

السلام عليكم يتصور حدوث هذا في كود تحديث update يمر على الحقل ويقارن ويطبق التعديل ويمكن تضع هذا الكود في عنصر تحكم حقل غير منضم داخل النموذج =IIf([a]=[b];0;[a]) وكذلك يمكن تطبيقه عند ادخال القيمة في النموذج وفي حدث بعد التحديث لحقل a If a = b Then a = 0 اي لما ادخل قيمة في a تساوي قيمة b تتحول لصفر بمجرد خروجي من الحقل

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

كل ما يحتويه المصنف ورقة واحدة و لا اعرف الى اين تريد الترحيل و ما هي الشروط المطلوبة

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

المرفق راائع جزاك الله كل خير وبارك فيك ولكن مع هذا الكود يجب اضافه نسخ التسطير ونسخ جميع التسيقات الموجوده بالصف الثامن حفظك الله ورعاك

وفقك الله أخي ياسر خليل أبو البراء وجزاك الله خيرا

السلام عليكم ا / محمد حضرتك حددت الاعمده المطلوب ترحيلها والى اين ولكن -- حضرتك حددت العمودين T - Y ( المجموع ) - والعمود C - كأعمدة لا يراد ترحيلها في حين انها موجوده في شيت الدور الثاني - ؟؟؟؟؟؟؟ العمود N على الرغم من ان حضرتك محدده كعمود يراد ترحيله الا انه غير موجود بشيت الدور الثاني ؟؟؟؟؟؟ انظر المرفق وابدي ملاحظاتك 4.rar

اهلا بك باذن الله تعالى .... جزاك الله كل خير

جرب هذا الشيء كتابة اعمدة بدلا من الصفر salim.rar

جميل جداً اخي صالح فبارك الله فيك وجعل اعمالك هذه في ميزان حسناتك ووفقك في دنياك واخرتك وحفظك الله من كل مكروه وادعو الله ان يشفي لك والدك ان شاء الله

السلام عليكم و رحمة الله تعالى و بركاته تقبل الله منا و منكم الصلاة و الصيام و القيام إخوتي في هذا المنتدى الغالي آسف جدا لتأخري في الرد لكثرة إنشغالاتي هذه الفترة من مرض الوالد إلى ضغط العمل المهم: لقد قمت بإضافة الملاحظات التي أشار إليها الإخوة إلى البرنامج و هي كالتالي: 1- ملاحظة الأستاذ @Shivan Rekany التي تخص مشكلة تقديم التاريخ قمت بالتعديل على المرفق بحيث إذا كانت المدة بين تاريخ اليوم و آخر إستعمال للبرنامج أكبر من 7 أيام يظهر البرنامج رسالة للتأكد من أن تاريخ الجهاز صحيح. 2- ملاحظة الأستاذ @sandanet التي تخص عدم التفعيل إذا كان البرنامج مفعل. الآن أصبح البرنامج يرفض التفعيل إذا كانت المدة المتبقية أكبر من 15 يوما. 3- ملاحظة الأخ @Aliko في ما يخص استعمال رقم الهارديسك. رقم النسخة الآن غير ثابت فهو يتغير من جهاز إلى آخر حسب رقم الهارديسك. و هذا هو المرفق:‫‫فترة تجريبية2003.rar ‫‫فترة تجريبية.rar بالنسبة للاشخاص الذين قاموا باستعمال المرفقات الموجودة في المشاركات السابقة عليهم بتشغيل البرنامج الموجود في هذا المرفق من أجل مسح جميع البيانات السابقة من الرجستري و البدء من جديد. حذف المجلدات من الرجستري.rar أهلين أخي ابا جودى تقبل الله صيامك لا يتم تفعيل النسخة بنفس الرقم السابق جرب المرفق الأخير نعم. و سوف أعدل على الكود في الأيام القادمة إن وجدت بعض الوقت من أجل أن يبقى التفعيل صالحا حتى بعد الفورمات إن شاء الله لاحظ الكود الموجود في المرفق فأنا استعملت نفس الكود

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

شكرا استاذنا العلامة محمد صالح شرح ولا اروع درر ونفائس وعمل احترافي نادر جعله الله في موازين اعمالك

أ محمد صالح اشكرك على الشرح الوافى وهذا هو المطلوب لك تحياتى وكل عام وحضرتك بخير

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

يمكن تنفيذ أمر الحماية في الإكسل لعدم تعديل محتويات الخلايا objXLSheet.protect وذلك بعد تنفيذ أمر الاحتواء التلقائي autofit أي قبل السطرين التاليين مباشرة 'close up other rs objects If Not rs Is Nothing Then rs.Close Set rs = Nothing

السلام عليكم ما فيه فكرة سوى القيام بحذف جميع الهوامش (جعل قيمتها = 0) ثم تحجيم الورقة حتى تحتويها كل الصفحة (وبالأحرى تحتوي كل أعمدتها) ثم تعديل ارتفاع الصفوف حتى تكون البيانات مقروءة... ليس لي فكرة أخرى... بن علية حاجي

الاخت شادية اهلا بك بالمنتدى لو فيه اعمال لك نتمنى نشوفها بالمنتدى

استأذن من السيد @Gamal.Saad حسب فهمي لسؤالك هذا ما هو السبب تريد ان تضع الكود في كل النموذج حسب فهمي يكفيك ان تعطي الكود في مكان واحد وهو سيعمل المطلوب على كل النماذج لماذا تريد ان يكرر الامر عند فتح كل نموذج ممكن تفهمني السبب ؟ م.2011.شفان ريكاني

في حدث عند التحميل يرفض النموذج أمر الفتح الجديد في وضع التصميم DoCmd.OpenForm Name_Frm, acViewDesign أوك هل تريد تشغيل الكود لكافة النماذج عدا النموذج الحالي في كل مرة يفتح فيها النموذج الحالي ؟ أم تريد تشغيل الكود لكافة النماذج عدا النموذج الحالي مرة واحدة فقط أثناء فتح النموذج الحالي؟ أم تريد تشغيل الكود لكل النماذج بما فيهم النموذج الحالي في كل مرة فتح فيها النموذج الحالي ؟ أم تريد تشغيل الكود لكل النماذج بما فيهم النموذج الحالي مرة واحدة فقط أثناء فتح النموذج الحالي؟ الحالات الأربعة شبه متاحة من الوهلة الأولى فيما عدا حالة واحدة

المفترض أنه كذلك بالفعل For Each Frm In DBS.AllForms Name_Frm = Frm.name DoCmd.OpenForm Name_Frm, acViewDesign .Modal = true DoCmd.close acForm, Name_Frm, acSaveYes Next لاحظ أول سطر وآخر سطر

وعليكم السلام جرب الكود التالي Sub ExportActiveSheetToNewWorkbook() 'YasserKhalil *** 07-06-2017 '--------------------------- Dim wb As Workbook Dim ws As Worksheet Dim str As String Set ws = ActiveSheet str = ws.Range("A2").Value Application.DisplayAlerts = False If wb Is Nothing Then ws.Copy ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value Set wb = ActiveWorkbook If Dir(ThisWorkbook.Path & "\ملفات العملاء\" & str & ".xlsx") <> "" Then MsgBox "Workbook Is Already Existing", vbCritical wb.Close False Else wb.SaveAs Filename:=ThisWorkbook.Path & "\ملفات العملاء\" & str & ".xlsx" wb.Close True MsgBox "Workbook Exported Successfully ...", 64 End If End If Set ws = Nothing Set wb = Nothing Application.DisplayAlerts = True End Sub

نعم اخي احمد سوف يستمر البرنامج بالعمل لان فكرة البرنامج هي في حال عطبت احدى قطع الجهاز فسيقوم برنامج الحماية بالتأكد من بقية القطع فلو وجد ان سيريلات 2 من القطع لم تتغير من اصل ثلاث 3 قطع فسوف يستمر البرنامج بالعمل باعتبار القطعة الثالثة معطوبة

نعم أخي شفان هذه هي الإجابة شكرا جزيلا أنا أضفت برنامج التفعيل مع المرفق لأن الهدف من المنشور هو تعليمي فقط طبق هذا الكود: SaveSetting "mm", "nn", "nember_days", 0 نعم يمكن ذلك باستخدام رقم الهارديسك إلا إدا كنت تعرف اسم المجلد الرئيسي و اسم القسم و اسم المفتاح و هذا لا يمكن معرفته لأنه موجود لاكود و النسخة التي تعطى للمستخدم تكون مغلقة

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

السلام عليكم الاستاذ القدير / ياسر الحافظ فارس المنتدي النبيل بارك الله فيك واسعد ايامك وازال كل هم وغم عنكم اخواننا الكرام مرورك فقط شرف لي ولموضوعي استاذنا فما بالكم بمتابعتة والثناء عليه اما بالنسبة للصورة الرمزية هي لابنتي ( سمـــــــــــــــا ) واسعد كثيرا وارحب ليس باستفساراتك بل باضافاتك التي ستكون اضافة للموضوع يستفيد منها الجميع جزاك الله خيرا