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

في كثير من الاحيان، نلجأ الى استخدام الدالة IF أو غيرها من دوال الشروط للتحقق من قيم رقمية. ملاحظة: الدالة تتحقق من الارقام فقط. مثلا لو كان الحقل يتحوي القيمة 1 اظهر لي رسالة جيد واذا كان الحقل يحتوي القيمة 2 اظهرلي رسالة متوسط واذا كان الحقل يحتوي القيمة 3 اظهر لي رسالة ضعيف في الوضع الطبيعي VBA داخل النماذج يكون If txt_Status = 1 Then MsgBox "جيد" ElseIf txt_Status = 2 Then MsgBox "متوسط" ElseIf txt_Status = 3 Then MsgBox "ضعيف" Else MsgBox "لا توجد قيمة مطابقة" End If وفي الاستعلام يكون Check_Value: IIf([text_Status]=1;"جيد";IIf([text_Status]=2;"متوسط";IIf([text_Status]=3;"ضعيف";"لا توجد قيمة مطابقة"))) اما الدالة Choose مختصرة وسهلة اكثر. Nz(Choose(txt_Status, "Good", "Semi-Good", "Bad"), "No Value !") تقوم الدالة بعرض مكان القيمة الصحيحة بين القيم الموضوعه حسب الحقل الموجود txt_Status تحياتي لكم. حسنين

السلام عليكم, كثيرا ما ازعجتني مُشكلة اضافة السجل بواسطة التاب لذلك كنت دائماً اسلك طريق الـ VBA في اضافة وتعديل السجلات برمجياً. لكن الامر طويل وشاق، قمت بالتفكير في طريق لمنع الحفظ التلقائي بالتاب او الانتر.. وجعلت الحفظ يكون عن طريق الزر، الطريقة ليست اختراع ولا شيء, لكن احببت ان اشارككم بما توصلت اليه. تحياتي, حسنين disable_auto_save.accdb

الله يعطيك العافية استاذ حسنين اسمح لى انزل مثال بسيط لا ستخدامها في منشئ التعبير في المثال المرفق حددنا طبيعة عمل الموظف بالاختيار مابين 1 الى 5 ch.accdb

الشكر لله سبحانه ثم للاستاذ حسنين انا فقط وضعت مثال بسيط

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

وعليكم السلام 🙂 شرح وبالتفصيل الممتع 🙂 جعفر

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

السلام عليكم اساتذة واعضاء هذا المنتدى الكريم وجدت هذا البرنامج فى موقع خارجى فاحببت ان اشارككم به لعله يكون فى الإستفادة والإفادة لأحدكم واتمنى ان ينال إعجابكم ,بارك الله فيكم جميعا Solaff.mdb

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

برنامج جميل ومختصر

بارك الله فيك ...

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

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

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

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

If DCount("*", "tbl1", "[Date]= form![Date]") = 1 ThenMsgBox ("مكرر"): Undo مشكور جدا الكود اشتغل 100%

تفضل تجميع حسب اليوم Prog5.rar

السلام عليكم, للاسف كنت اشرح لك بالتفصيل عمل هذه الدوال وكيفية استعمالها لكن صادف ردي مع تحديث المنتدى، وواجهت مشكلة في كتابة الرد.. عموما سارفق لك مصادر اجنبية قم بقرائتها iif.pdf IsNull.pdf Nz.pdf

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

بارك الله فيك وجزاك الله كل خير

دائما وابدا استاذى الكريم ولنجاح اى مشاركة لابد من رفع ملف مدعوم بشرح كافى عن المطلوب ووضع به النتائج التى تريدها تفضل يمكنك هذا بهذا التنسيق [$-2000000]0000 0000 0000 Number Format.xlsx

True = -1 False = 0

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

كانك تتحدث بما في نفسي

وعليكم السلام 🙂 اخي عبد اللطيف ، ولو اني لا اعمل مشاركة في الكثير من المواضيع ، ولكني اقرأ معظمها ، ومواضيعك بالذات 🙂 وفي الوقت الذي يتجه البعض الى عمل البرامج المعقدة المفيدة ، ارى بساطة عملك واهميته 🙂 شكرا لك 🙂 جعفر

السلام عليكم جرب المرفق لعل فيه ما تريد... عدد الشركات في كل قطاع بدون تكرار.xlsx

السلام عليكم ورحمة الله تم عمل المطلوب في الملف المرفق حيث تم ربط المعادلات برقم الحساب وليس باسم الحساب... بالنسبة لعمل ذلك بالأكواد أعتذر منك كثيرا لأني لا أجيدها كثيرا ولعل أحد الإخوة يتفضل بالقيام بذلك... بن علية حاجي ترحيل بيانات من شيت رئيسي الي شيت آخر ( بمعادلات او اكواد ) المهم 1النتيجة - ا-بن عليه (1).xls

تفضل لك ما طلبت استاذ ياسر وتم تنفيذ المطلوب على ملفك : اسم المستخدم : yasser كلمة المرور : 123456 FILE TEST.xlsm

شكرا ابا جودي 🙂 يا جماعة الحقوا عليّ اريد شِبّه او بخور عن العين 🙂 حصلت على شهادتين من اجابة واحدة 🙂 جعفر

وعليكم السلام بما انك وضعت كود عند التحمل للحصول ع المجموع If Nationality = "Saudi" Then Gosi = (Val(BasicSalary) + Val(Housing)) * 0.11 Else Gosi = (Val(BasicSalary) + Val(Housing)) * 0 End If TotalSalary = Val(BasicSalary) + Val(Housing) + Val(Transportation) + Val(OtherBenefits) AccruedSalary = (Val(TotalSalary) / Val(DayMonth)) * (DayAttendees) NetSalary = (Val(AccruedSalary) + Val(Reward) + Val(Addition)) - (Val(Discount) + Val(Deduction) + Val(Gosi)) كان لازم تزيل مصدر تحكم الحقول الملونة بالاخضر لتصبح حقول غر منظمه ::بالتوفيق::

تفضل سيدي الفاضل 🙂 - لا يوجد تعديل على التقارير ، فهي حسب تصميمك ، - النموذج frm_Do_Report_604 يقوم بإضافة السجلات المطلوبة الى الجداول المؤقته الثلاث ، والتي يبدأ اسمها بـ tbl_tmp_rpt ، والكود في النموذج حلو وسهل الفهم 🙂 ، - اعتمد في اخذ البيانات من الاستعلامات qry_604 و qry_tblPME ، لذلك فانت حر التصرف في عمل المعايير التي تريدها ، واذا اردت تغيير اسماء الحقول ، فيجب تغييرها في استعلامات الإلحاق والجداول المؤقتة 🙂 - عملي ليس له علاقة بالكود الموجود سابقا في التقارير . في الواقع ، الآن البرنامج صار عادي وسهل التعامل معاه 🙂 آه وقبل ان انسى: جعفر 1135.3.Consumable Material.accdb.zip

بعد اذن الاساتذة الكرام هذه المعادلة في الخلية F3 معادلة صفيف (CTRL+SHIFT+ENTER) =MID(E3,1,MIN(IFERROR(FIND(ROW($A$1:$A$100)&" ",E3)+1,""))) هذه المعادلة في الخلية G3 معادلة صفيف (CTRL+SHIFT+ENTER) =MID(E3,MIN(IFERROR(FIND(ROW($A$1:$A$50)&" ",E3)+1,""))+1,LEN(E3)) الملف مرفق صفحة salim salim2.xlsx

السلام عليكم بعد اذن استاذنا الكبير بن علية حاجى يمكنك محاولة تفهم المعادلات بنفسك لحسن التعلم فهذه المعادلة تستخدم لفصل المادة : =IF(E3="","",IF(ISERROR(FIND("/",E3,1)),TRIM(MID(E3,1,FIND("الشعبة",E3,1)-1)),TRIM((MID(E3,1,FIND("الشعبة",E3,1)-1))&(MID(E3,FIND("/",E3,1),FIND("الشعبة",E3,1)-1))))) وهذه لفصل الشعبة -فكل ما عليك تغيير رقم الخلية التى بداخل المعادلة للخلية التى تريد الفصل منها =IF(E3="","",IF(ISERROR(FIND("/",E3,1)),TRIM(MID(E3,FIND("الشعبة",E3,1)-1,15)),TRIM(MID(E3,FIND("الشعبة",E3,1)-1,FIND("/",E3,1)-FIND("الشعبة",E3,1)+3))&" "&TRIM(MID(E3,FIND("الشعبة",E3,FIND("/",E3,1)),15)))) اتمنى ان تكون قد تفهمت الموضوع فهو بسيط وسهل

السلام عليكم تم التصرف في الجدول وإضافة المعادلات اللازمة للمطلوب (ربما تكون طويلة بعض الشيء)... بن علية حاجي 22222222222.xlsx

اهلا بك فى المنتدى شرفتنا,شرح هذه الدالة كالتالى: وهى دالة معرفة وهذا هو الكود المرافق للدالة لحسن عملها Function VLOOKON(ParamArray My_Arg()) As Variant Dim Max As Integer Dim Index As Integer Dim FindOK As Boolean Dim MyFind As String Dim CIndex As Integer MyFind = My_Arg(0) CIndex = My_Arg(1) Max = UBound(My_Arg) FindOK = False For Index = 2 To Max If FindOK Then Exit For VLOOKON = My_Arg(Index).Name R = Range(VLOOKON).Rows.Count C = Range(VLOOKON).Columns.Count If CIndex > C Then VLOOKON = "#REF!": Exit Function For MyR = 1 To R If LCase(Range(VLOOKON)(MyR, 1)) = LCase(MyFind) Then VLOOKON = Range(VLOOKON)(MyR, CIndex) Exit Function End If Next MyR Next Index VLOOKON = "#N/A" End Function وهذا ملف ايضا به مثال يبين تطبيق الدالة لحسن استخدامها VLOOKON With No Limitation.xls

تحياتي الخالصة تم عمل المطلوب بالتعديل على معادلات "الترتيب - 2" (وهي معادلات صفيف لكن لا تحتاج إلى تأكيدها بواسطة ctrl+shift+enter). أرجو أن يفي الغرض المطلوب... بن علية حاجي ترتيب اوائل الفصول.rar

السلام عليكم ورحمة الله أعتذر مرة أخرى للخطأ الذي وقع في ملفي المرفق الثاني، مع ملاحظة أن الخطأ مني وليس منك، وقد تم التصحيح في الملف المرفق (أرجو ذلك إن لم يظهر مشكل آخر)... ملاحظة: تم إظافة رقم حساب للبيانات المرحلة "حساب رقم 44" المذكور في اليوم الثالث وغير موجود في جدول الترحيل... بن علية حاجي ترحيل بيانات من شيت رئيسي الي شيت آخر ( بمعادلات او اكواد ) المهم 1النتيجة - ا-بن عليه.xls

استاذ / سليم المعادلة تعمل في الملف المرفق بشكل سليم ولكن القيم التي يتم ترحيلها ليست صحيحة .. راجعها بنفسك فمثلا المفروض ان قيمه الحساب رقم 1120 باسم حساب 120 قيمته في يوم 1 هو 35 قيمه الحساب رقم 1120 باسم حساب 120 قيمته في يوم 2 هو 351.52 ولكن المرحل بالمعادلة اليوم 1 صحيح واليوم الثاني خطا .... وهكذا باقي الحسابات جزاك الله خيرا استاذي

السلام عليكم الاستاذ الفاضل / بن علية حاجي جزاك الله خيرا علي مجهودك الرائع ولكن عذرا وسامحوني اساتذتي اصبحت أحس انني لحوح بعض الشئ .. فالتمس منكم العذر الملف المرفق من سيادتك بالتعديل يعمل بشكل رائع بالنسبة للبيانات الموجودة في الملف والتي تم العمل عليها من قبلكم ولكن عند اضافة يوم جديد في شيت1 مثلا يوم4 واضافة بعض الحسابات الجديدة أجد ان كل البيانات قد تم مسحها ولكن المعادلات موجودة وهذا موضح بالملف المرفق جزاكم الله خيرا ترحيل بيانات من شيت رئيسي الي شيت آخر ( بمعادلات او اكواد ) المهم 1النتيجة - ا-بن عليه.xls

السلام عليكم بن علية حاجي ترحيل بيانات من شيت رئيسي الي شيت آخر ( بمعادلات او اكواد ) المهم 1النتيجة.xls

السلام عليكم ورحمة الله تم عمل المطلوب في الملف المرفق... test 1.xlsx

السلام عليكم ورحمة الله أرجو أني وفقت في تقديم المساعدة... test 1.xlsx

بعد اذن الاستاذ هذا الكود يطبع جميع الشيتات باستثناء شيت DATA ويمكنك تعديله حسب المدى المطلوب sub test 'كود طباعة جميع الشيتات dim ws as worksheet dim sh as worksheet: set sh = sheets("DATA") ' الشيت المستثنى من الطباعة Dim lr As Long For Each ws In Sheets lr = ws.Range("a" & Rows.Count).End(xlUp).Row If ws.Name = "DATA" Then GoTo 1 ' الشيت داتا سميه ما شئت ولك غيره في السطر الثاني و السادس ws.Range("a1:g" & lr).PrintOut 1: Next ws end sub

بعد اذن الاخ علي هذا الكود Option Explicit Sub get_data() Rem ====>> Created By Salim Hasbaya On 2/11/2019 Dim Sh1 As Worksheet, Sh2 As Worksheet Dim tabL1 As Range Dim i%, Ro%, x% Set Sh1 = Sheets("Sheet1") Set Sh2 = Sheets("Sheet2") Set tabL1 = Sh1.Range("A1").CurrentRegion Sh2.Cells(9, 3).Resize(100, 500).ClearContents Ro = tabL1.Rows.Count For i = 3 To 95 Step 3 tabL1.AutoFilter 1, Sh2.Cells(5, i) x = tabL1.SpecialCells(12).Count If x > 4 Then tabL1.Offset(1).Resize(Ro - 1) _ .SpecialCells(12).Offset(, 1).Resize(, 3).Copy _ Sh2.Cells(9, i) End If Next i If Sh1.AutoFilterMode Then Sh1.ShowAllData: tabL1.AutoFilter End If End Sub الملف مرفق tarhil.xlsm

لا يوجد حل دائم. لكن ممكن ان تضغط البرنامج بإحد برامج الضغط والتشفير الخاصة بلغة دوت نت مثلا confuser لكن ايضا ممكن كسرها. هي وغيرها ولو برمجت اداة بنفسك لتشفير السورس كود سيكون كسره بمراقبة الاتصالات الخارجية بواسطة wireshark او اي برنامج اخر لتحليل الاتصالات بالنهاية الحماية لم تخلق الا لكي تخترق

هذه المعادلة في الحلية C4 واسحب نزولاً =MAX($A$4:$A$10000)+ROWS($C$4:C4)

If DCount("*", "tbl1", "[Date]= form![Date]") = 1 ThenMsgBox ("مكرر"): Undo ضع الكود في حدث تاريخ الحجز قبل التحديث أو بعده

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