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

اخى مصطفى ولعدم حدوث خطأ ما يمكن استبدال الكود السابق بالمثال بالتالى If Me.mony2 = NZ("",0) Then n2 = (tex_loan * tex_charg / 100) Else n2 = (tex_loan * tex_charg / 100) + Me.mony2 End If End Sub لما قرائته فى هذه المشاركه أولا يوجد 3 أنواع من القيم يجب أن نميز بينها وان كان هناك توضيح اكثر من اخواننا واساتذتنا فليشاركوننا فنحن طلاب علم ونتعلم هذا والله اعلى واعلم وجزاهم الله خيرا اساتذتنا واخواننا اللذين نتعلم منهم تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق طبتم واهتديتم

الاخ فارس النايلي ملاحظة قبل تنفيذ التجميع : يجب ان يكون ملف التجميع موجود في نغس فلدر ملفات المصدر وسوف يقوم ملف التجميع بتجميع كل شيتات ملفات المصدر الموجودة في نغس الفولدر شاهد المرفق My_Folder_Xlsm.rar

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

السلام عليكم اتصور ان الرسالة تبين انه انت استخدمت رموز محجوزة للنظام والله اعلم

اشكركم جميعا اساتذتي الكرام بارك الله بيكم @عبد اللطيف سلوم @Khalf @خالد سيسكو @أحمد الفلاحجى @ابوآمنة هذا هو المطلوب تحياتي للجميع

استاذنا الفاضل / @أحمد الفلاحجى جزاك الله خير وبارك الله فيك على ما تقدمه من مساعدات لى سؤال بسيط وهو هل الكود معناه انه فى حالة ان mony2 يساوي فراغ او صفر ام ماذا ارجو توضيح الكود بارك الله فيك

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

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

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

وعليكم السلام ورحمة الله وبركاته قم بعمل استعلام تحديث لكافة البيانات او قوم بوضع الكود في وحدة نمطية وقم بعمل تشغيل له من زر امر في النموذج او ارفاق مثال لعمل اللازم ملاحظة اخي الكريم : لا يحب تكرار طرح الموضوع ثلاث مرات متتالية فهذا محالف لقوانين الموقع ممنوعات : تعرض المشاركة للالغاء الفوري 1. ممنوع نهائيا وبشكل قاطع تكرار الموضوع نفسه أو فتح موضوع جديد للمطالبة برد في موضوع سابق https://www.officena.net/Tips/Questions.htm تحياتي

وعليكم السلام على منا فاهم فالكود فانت جعلت قيمه mony2 = نص فاذا جمعت رقم على نص فكيف يكون ولنفرض قيمه mony2 = 100 + القيمه الاولى = 10 الناتج سيكون 10010 اذا كان حقل mony2 ضعه كما هو من غير علامات التنصيص واذا كان حقل نصى فاستخدم داله لتحويله لرقم ليتم الجمع مثلا val(mony2) والاوجب ارفاق ملف تقبل تحياتى طبتم واهتديتم

تفضل 3 طرق لتصفح الانترنت من الاكسس ، والبحث عن اسم الطالب في Google.com . وهذا كود الازرار: Private Sub cmd_FollowHyperlink_Click() url_address = "http://www.google.com/search?lr=lang_ar&cr=&hl=ar&ie=windows-1256&oe=windows-1256&q=" Application.FollowHyperlink url_address & Me!name End Sub Private Sub cmd_ie_Click() Dim ie As Object Set ie = CreateObject("internetexplorer.application") url_address = "http://www.google.com/search?lr=lang_ar&cr=&hl=ar&ie=windows-1256&oe=windows-1256&q=" ie.Visible = True ie.Navigate url_address & Me!name End Sub Private Sub cmd_objIE_Click() 'Reference to Microsfot Internet Controls 'c:\windows\system32\ieFrame.dll Dim web As WebBrowser Set web = Me.objIE.Object url_address = "http://www.google.com/search?lr=lang_ar&cr=&hl=ar&ie=windows-1256&oe=windows-1256&q=" web.Silent = True 'stop script errors web.Navigate url_address & Me!name End Sub جعفر 255.web.accdb.zip

من هنـــــــــــــــــــــــا مع ملاحظة أن بعض جمل الاس كيو ال لا تظهر سليمة فى الاكسبلورر ، لذا يرجي نسخها اذا أردنا تنفيذها أو مشاهدتها فى المثال المرفق Q3.zip

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

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

تفضل اخي الكريم تم عمل استعلام تحديث وهو كالتالي UPDATE Table1 SET Table1.m = DateAdd("yyyy",60,[datebirth]-1); Database1(3).rar تحياتي

تمام جزاكم الله خيرا نتيجة الاستعجال كان الخطأ

[data2] & Chr(13) & Chr(10) &[data1]

وعليكم السلام 🙂 استخدم فاصل الاسطر : vBCrLf مثلا : السطر الاول & vBCrLf & السطر الثاني Constant Value Description ---------------------------------------------------------------- vbCr Chr(13) Carriage return vbCrLf Chr(13) & Chr(10) Carriage return–linefeed combination vbLf Chr(10) Line feed vbCr : - return to line beginning Represents a carriage-return character for print and display functions. vbCrLf : - similar to pressing Enter Represents a carriage-return character combined with a linefeed character for print and display functions. vbLf : - go to next line Represents a linefeed character for print and display functions. جعفر

نعم انا فهمت السؤال ، وجوابي كان ، اذا ABC = Null فسيكون الجواب len([ABC]) = Null ، بينما نحن نريد الجواب ان يكون len([ABC]) = 0 جعفر

الهدف من استعمال سطر واحد بدل عن مجموعة اوامر ، هو لتسهيل الامر والكود علينا ، ومعرفتنا اذا الحقل فيه قيمة ، معناه ان طول القيمة والتي نعرفها عن طريق الامر Len فإننا نريد ان نعرف اذا طول الحقل = 0 او لا اليك نتائج هذه العمليات : Debug.Print Len("234") = 3 Debug.Print Len("") = 0 Debug.Print Len(Null) = Null Debug.Print Len(Null & "") = 0 فالامر Len اعطانا قيمة 0 لما قيمة الحقل تكون "" ولكنه اعطانا Null لما قيمة الحقل تكون Null ، ولكن Null ليس رقم ،مما يجعلنا نضطر نرجع الى الامر IsNull ، معناه انه يجب ان نستخدم اكثر من امر في السطر الواحد (كما اوضحت سابقا). جعفر

وهنا توضيح للدالة بمثال : الطريفة اللي اتبعها انا للتعامل مع الحقل ، سواء الفارغ او Null او بدون قيمة : بدل عن if isnull([ABC]) or [ABC]="" then استعمل if len([ABC] & "") = 0 then جعفر 🙂

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

بارك الله فيك استاذ wahid-chaoui وجزاك الله كل خير على تقديم المساعدة أستاذ hamadaelsamadony كان عليك لزاما قبل رفع المشاركة استخدام خاصية البحث بالمنتدى فهناك مئات المشاركات التى تخص طلبك ويجب عليك توضيح طلبك بشكل كافى ووافى وتدعيم دائما المشاركة برفع ملف اكسيل فلا تنجح اى مشاركة الا برفع الملف وذلك لأنه لا يمكن العمل على التخمين -ومساعدة على عدم اهدار وقت الأساتذة أين الضغط على الإعجاب على الإجابة الممتازة المقدمة من الأستاذ wahid-chaoui ؟!!! 💙

هذا لا علاقة له بالاوفيس ، وانما بإعدادات لغة Unicode الوندوز : جعفر

السلام عليكم حل سريع / افتح ملف اكسس جديد وانقل فيه كل محتويات البرنامج القديم ان شاء الله يضبط معاك

ارجع الى موضضوع الاستاذ محمد عصام أنقر هنا ::بالتوفيق::

استعمل الخاصية Option Explicit قبل كلمة Sub بحيث يظهر لك الكود مكان الخطأ باللون الاصفر

جرب هذا الماكرو اذا وجدت اي خلية اصغر من صفر يقوم الكود بتحديدها لاصلاحها Dim Rg As Range Dim cel As Range, first_ad$, Other_Ad$ Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.EnableEvents = False Range("B1:D20").Interior.ColorIndex = 6 If Not Intersect(Target, Range("B1:D20")) Is Nothing _ And Target.Count = 1 Then Set Rg = Range("B1:D20").Find("-", lookat:=2) If Not Rg Is Nothing Then first_ad = Rg.Address: Other_Ad = first_ad Do Rg.Interior.ColorIndex = 50 Set Rg = Range("B1:D20").FindNext(Rg) Other_Ad = Rg.Address If Other_Ad = first_ad Then Exit Do Loop End If Else For Each cel In Range("B1:D20") If cel < 0 Then cel.Interior.ColorIndex = 50 Next End If Application.EnableEvents = True End Sub الملف مرفق MY_code.xlsm

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

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

اتفضل شوف كده واخبرنا بالنتيجه اخى تقبل تحياتى مثال-111.rar

ومشاركة مع الزملاء الكود Private Sub znumbers_BeforeUpdate(Cancel As Integer) Dim Rs As DAO.Recordset Set Rs = CurrentDb.OpenRecordset("wared") Rs.MoveFirst Do Until Rs.EOF If Rs!znumber = [znumbers] And Rs!zdate = Me.zdates Then MsgBox "يجب ألا يتكرر تاريخ ورقم الكتاب معاً", vbExclamation Me.Undo Cancel = True End If Rs.MoveNext Loop Set Rs = Nothing End Sub نظام وارد.saleh101.accdb

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

السلام عليكم انظر للصورة اخي الكريم

ومشاركه مع اخوانى بداله Dcount مع التاريخ محاوله منى على قدى بالتوفيق اخى نظام وارد-1.accdb

وعليكم السلام-تفضل نظام_الملاك_2019.xlsm

بارك الله فيك وزادك الله من فضله

تفضل لقد قمت بالتعديل على الملف ليقوم بضغط الواجهة مباشرة دون ظهور خيارات أخرى mas_backup2.mdb

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

السلام عليكم الحمد لله تم عمل المطلوب وذلك باضافة شرط اخر للمعادلة =IF(AND(COUNTIF($D$3:$D$8;$BP$5)>1;D3=$BP$5);TRUE;FALSE) جزاكم الله خيرا وشكرا لجهود الاساتذة الذين فتحوا الملف وارادوا مساعدتي ولكن اعتقد طرحي للسؤال لم يكن بالشكل الصحيح ولذلك تاخر الاساتذة بالرد والاّ جوابه بسيط جدا تحياتي لكم ووافر احترامي معادلة التنسيق الشرطي للمكرر حسب خلايا محددة.xls

وعليك السلام ورحمة الله وبركاته جرب هذا لعله يفي الغرض يجب عدم دمج الخلايا في الجزء الخاص بالتعامل بالأكواد البرنامج.xlsm

أستاذ / sam_farh بالفعل الملف به ما تريد أنه عند فتحه على أي جهاز يختفي الشريط وإذا أغلق الملف وفتحه مرة أخرى يختفي لأنه الكودي يشتغل في حدث ThisWorkBook عند الفتح ولإثراء الموضوع جرب هذا بإذن الله يفي الغرض Hide.xlsm

جرب هذا الكود Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = "$A$2" And Target.Count = 1 Then Call find_Please(Me, Range("a2")) End If Application.EnableEvents = True End Sub '++++++++++++++++++++++++++++ Sub find_Please(SH As Worksheet, Rg) Dim Principal As Worksheet Dim Ro%, m%: m = 4 SH.Range("A4:E" & Rows.Count).Clear Set Principal = Sheets("serch") For Each SH In Sheets If SH.Name <> Principal.Name Then On Error Resume Next Ro = SH.Range("c:c").Find(Rg, lookat:=1).Row On Error GoTo 0 If Ro > 0 Then Principal.Cells(m, 1).Resize(, 5).Value = _ SH.Cells(Ro, 1).Resize(, 5).Value m = m + 1 End If End If Next If m = 4 Then _ MsgBox "Current Account Not Found": Exit Sub With Principal.Range("A4:E" & m - 1) .Borders.LineStyle = 1 .Font.Bold = True .Font.Size = 14 .HorizontalAlignment = 2 .VerticalAlignment = 2 .Interior.ColorIndex = 24 .InsertIndent 1 End With End Sub الملف مرفق Search_Account.xlsm

هذا مثال للكود قم باختيار القاعدة و اضغط على زر الضغط و لاحظ النتيجة Compact.accdb

فى التقرير توجد خاصية Running Sum للحصول علي المجموع التراكمي للسجلات أما فى النماذج ، فللحصول علي المجموع التراكمي ، فهذا ملف مرفق به مثالين للأخوة حارث و أبو هاجر Cum____.rar

هذا مثال علي حساب التراكمي الكامل و التراكمي حتي القيمة السابقة فى النموذج ، ثم اضافة سجل جديد الي الجدول به القيمة و التراكمي و التراكمي حتي السجل السابق أرجو التجربة مع تحياتي PrevCum.rar

السلام عليكم يمكنك تطبيق مثال الأخ حارث وابو هاجر ولكن .. مع تعديل استثناء السجل الحالي مثلا فى مثال الاخ حارث =DSum("[price]";"[table2]";"[num1]<=[forms]![MForm1]![TSForm1]![num1]") تصبح =DSum("[price]";"[table2]";"[num1]<[forms]![MForm1]![TSForm1]![num1]") و أيضا اضافة شرط الاسم الي جزء الشرط فى معادلة ال Dsum اذا أردت التراكمي السابق لكل شخص علي حدة

مثال للأخ حارث قم بتشغيل الزر فى النموذج يقوم بانشاء جدول به الأخطاء و أرقامها errortable_harith.zip

سؤال الأخ ابو وليد هو ماار يده عند اختيار الاسم من جميع مربعات التحرير والسرد ان يقوم بالبحث في الجدول aa وينظر من يحمل أكبر رقم من الموجودين في مربعات التحرير والسرد ويضع اسمه في مربع النص mix اتمنى ان تكون المعلومة وصلت ؟ سؤال اخر لو حبيت اضيف واحد جديد على الجدول وابغى رقمه يكون مثلا 6 كيف اخلي رقم 6 يصير 7 وهكذا للي بعده يعني 7 يصير 8 ........الخ واسماء مربعات التحرير والسرد هي كالتالي p11 - p12 - m11 - m12 - b11 - b12 - f11 - f12 يمكن عمل ذلك عن طريق استخدام الدالة Dmax وتجد شرح مفصل لها هنا بقسم خلاصة مشاركات الأكسس اضغط هنا -------------------------------------------------------- ويتم تطبيق ذلك عند وضع الكود التالي عند حدث زر الامر mix = DMax("[الاسم]", "aa", "[الاسم] = forms!mana!p11 or [الاسم] = forms!mana!p12 or [الاسم] = forms!mana!m11 or [الاسم] = forms!mana!m12 or [الاسم] = forms!mana!b11 or [الاسم] = forms!mana!b12 or [الاسم] = forms!mana!f11 or [الاسم] = forms!mana!f12") -------------------------------------------------------- بالنسبة للسؤال الثاني ... تم وضعه بمشاركة مستقلة منعاً لتداخل الأسئلة اضغط هنا