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

السلام عليكم كود طباعة وكود تحويل pdf Sub Print_Managers_Deputies() Dim wsData As Worksheet, wsReport As Worksheet Dim lastRow As Long, i As Long Dim idVal As String, roleVal As String Application.ScreenUpdating = False Application.EnableEvents = False Set wsData = ThisWorkbook.Sheets("data") Set wsReport = ThisWorkbook.Sheets("التقرير مدير وكيل") lastRow = wsData.Cells(wsData.Rows.Count, "A").End(xlUp).Row For i = 3 To lastRow idVal = wsData.Cells(i, "A").Value roleVal = wsData.Cells(i, "E").Value If (InStr(1, roleVal, "مدير", vbTextCompare) > 0) _ Or (InStr(1, roleVal, "وكيل", vbTextCompare) > 0) Then wsReport.Range("L2").Value = idVal wsReport.PrintOut wsReport.Range("L2").Value = 1 End If Next i MsgBox "تمت طباعة جميع المديرين والوكلاء.", vbInformation Application.ScreenUpdating = True Application.EnableEvents = True End Sub Sub sav_PDFall2() Dim wsData As Worksheet, wsReport As Worksheet Dim lastRow As Long, i As Long Dim roleVal As String Dim folderPath As String, pdfPath As String Dim safeName As String Application.ScreenUpdating = False Application.EnableEvents = False Set wsData = ThisWorkbook.Sheets("data") Set wsReport = ThisWorkbook.Sheets("التقرير مدير وكيل") wsReport.Unprotect password:="0" folderPath = ThisWorkbook.Path & "\التقرير مدير وكيل" If Dir(folderPath, vbDirectory) = "" Then MkDir folderPath lastRow = wsData.Cells(wsData.Rows.Count, "A").End(xlUp).Row For i = 3 To lastRow roleVal = wsData.Cells(i, "E").Value If (InStr(1, roleVal, "مدير", vbTextCompare) > 0) _ Or (InStr(1, roleVal, "وكيل", vbTextCompare) > 0) Then wsReport.Range("C9").Value = wsData.Cells(i, "B").Value safeName = wsReport.Range("C9").Value safeName = Replace(safeName, "/", "-") safeName = Replace(safeName, "\", "-") safeName = Replace(safeName, ":", "-") safeName = Replace(safeName, "*", "-") safeName = Replace(safeName, "?", "-") safeName = Replace(safeName, """", "-") safeName = Replace(safeName, "<", "-") safeName = Replace(safeName, ">", "-") safeName = Replace(safeName, "|", "-") pdfPath = folderPath & "\" & safeName & ".pdf" wsReport.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=pdfPath, _ Quality:=xlQualityMinimum, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False End If Next i MsgBox "تم حفظ جميع ملفات PDF للمديرين والوكلاء في:" & vbCrLf & folderPath, vbInformation wsReport.Protect password:="0" Application.ScreenUpdating = True Application.EnableEvents = True End Sub الملف طباعة وظائف محددة.xlsm

السلام عليكم ورحمة الله وبركاته الكود Sub CheckAbsence() Dim ws As Worksheet Dim lastRow As Long, i As Long, j As Long Dim countConsecutive As Long, maxConsecutive As Long Dim countTotal As Long Dim msg As String Dim cell As Range Set ws = ThisWorkbook.Sheets("ورقة1") lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row For i = 2 To lastRow countConsecutive = 0 maxConsecutive = 0 countTotal = 0 ' المرور على نطاق الغياب C:AG For Each cell In ws.Range("C" & i & ":AG" & i) If cell.Value = "غ" Then countConsecutive = countConsecutive + 1 countTotal = countTotal + 1 If countConsecutive > maxConsecutive Then maxConsecutive = countConsecutive End If Else countConsecutive = 0 End If Next cell msg = "" If maxConsecutive >= 15 Then msg = "مفصول" ElseIf maxConsecutive >= 5 Then msg = "إنذار أول" End If If countTotal >= 30 Then msg = "مفصول" ElseIf countTotal >= 24 Then msg = "إنذار ثالث" ElseIf countTotal >= 16 Then msg = "إنذار ثاني" ElseIf countTotal >= 8 And msg = "" Then msg = "إنذار أول" End If ws.Cells(i, "AH").Value = msg Next i End Sub الملف سجل غياب الطلاب1.xlsb

وعليكم السلام ورحمة الله وبركاته تم انشاء كود الطباعة والمعاينة اتمنى ان تجد في الحل طلبك لك وافر الاحترام Sub Print_All_Employees() Dim ws As Worksheet Dim cell As Range Dim rng As Range Set ws = ThisWorkbook.Sheets("إداريين") Set rng = ws.Range("C3:C137") Application.ScreenUpdating = False For Each cell In rng If cell.Value <> "" Then ws.Range("CQ6").Value = cell.Value ws.PageSetup.PrintArea = "CP5:CY47" ws.PrintOut End If Next cell ws.Range("CQ6").Value = rng.Cells(1, 1).Value Application.ScreenUpdating = True MsgBox "تمت طباعة جميع الموظفين بنجاح.", vbInformation End Sub طباعة الكل بضغطة.xlsm

وعليكم السلام ورحمة الله وبركاته ,, جرب اكتب اي قيم رقمية وانقر كلمة يساوي test.zip

محاولتي: معادلة طرح وجمع تاريخين_02.xlsx

و عليكم السلام ورحمة الله و بركاته تفضل =INT((DATEDIF(D13;E13;"y")+DATEDIF(D14;E14;"y")+(DATEDIF(D13;E13;"ym")+DATEDIF(D14;E14;"ym")+(DATEDIF(D13;E13;"md")+DATEDIF(D14;E14;"md"))/30)/12)) & " years; " & MOD(DATEDIF(D13;E13;"ym")+DATEDIF(D14;E14;"ym")+INT((DATEDIF(D13;E13;"md")+DATEDIF(D14;E14;"md"))/30);12) & " months; " & MOD(DATEDIF(D13;E13;"md")+DATEDIF(D14;E14;"md");30) & " days" معادلة طرح وجمع تاريخين 2.xlsx

المشكلة تظهر لشهري 8 و 9 وليس 9 فقط والسبب هي وجود قيم فارغة في الحقل Add_Days التابع للجدول moa_details الان لديك حلين إما تعبئة الحقول الفارغة بالقيمة 0 أو إستخدام دالة Nz في الإستعلام تحياتي

السلام عليكم اليك الملف المرشحين1.xlsb

الملف يعمل و الكود شغال و دي النتيجة النتيجة

جربت الملف لا توجد اي مشكلة الكود يعمل جيدا , اذا كان pdf مفتوحا تخدت هذه المشكلة او اذا كان اسم العميل يحتوى على اي من الحروف الاتية تخدث المشكلة \ / : * ? " < > | جرب على جهاز احر وتامل من الاعضاء التجربة لنتاكد

هحاول اختصر لك الموضوع اولا القاعدة الخلفية هتغلق بكلمة سر قوية ثانيا القاعدة الامامية هتغلقها بكلمة سر (ممكن تحولها ايضا لقاعدة accde لاضافة طبقة حماية ^_^ ) هتعمل قاعدة اخري لفتح القاعدة الامامية وتكون accde وهي التى ستمرر كلمة السر للقاعدة الامامية وتفتحها هتلاقي مواضيع كثير وطرق كثير فقط ابحث واختر المناسب لك

المطلوب الأول هو من جنس المطلوب الثاني ولا داعي لتكرار الجداول المعادلات المستخدمة هي من نوع الصفيف وليست معادلات عادية تفضل example1.xlsx

الاخوه الأفاضل @Foksh @منتصر الانسي كل الشكر والتقدير لكم وبارك الله بكم وبعلمكم

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

فعلاً كلامك صحيح 100% ، وانا اعتمدت على ان الفكرة لن يكون بها تكرار - بسبب بنية الجدول - ، ففي القطعة الواحدة لن يكون لها مثلاً = كوي مكررة ، وهذا ما دعاني لعدم التطرق لفكرة دمج التكرار

بعد إذن الأخ @Foksh قمت بتعديل المثالين لدمج القيم بدون تكرار قد يكون هذا التعديل غير ملائم لصاحب السؤال ولكني رأيت وضعه لإثراء الموضوع (وقد يحتاجه أحد الأعضاء مستقبلاً) تحياتي at_aziz.rar

اضم صوتي لصوت مشرفنا الغالي

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

ربما هو المطلوب BASE-E5_02.accdb

جزاك الله خيرا استاذنا الفاضل

السلام عليكم ورحمة الله وبركاته تم استبدال التكستبوكس بكمبوبكس فبدل كتابة الاسم تجد الاسماء جاهزة في فائمة البيانات ستحتوى تلقائيًا بعرض الصفحة اثناء الطباعة بعد الإنشاء، يظهر مربع حوار 3 خيارات: نعم = طباعة مباشرة لا = حفظ كـ PDF إلغاء = معاينة قبل الطباعة خفظ pdf باسم العميل الملف متابعة (1).xlsm

وضحت الفكرة استاذنا ايشر خيرا ان شاء الله

تقضل للتجربة لعله المطلوب V1 مجزر .xlsx

تم تعديل الكود ملاحظة : في الجدول ومعيار تصفية النموذج عندك مكتوب (أستاذة) وفي الكود مكتوب (أساتذة) راجع أيهما خطأ وقم بتصحيحه تحياتي BASE-E6.rar

يسعدنا أنك حصلت على إجابتك الشافية التي حققت طلبك ، ولذا . نرجو منك تصويب إختيارك للإجابة الصحيحة وهي للأستاذ @عبدالله بشير عبدالله مشكوراً على جهوده والإخوة والأساتذة دون استثناء 💐

اولا شكرا جزيلا على الكود الرائع اما بخصص 30 يوم منفصلة فى تكون على مدار العام وليس شهر لان الغياب يحسب على مدار العام وليس كل شهر منفصل

وعليكم السلام ورحمة الله وبركاته جرب هذا التعديل مخزن3 (1).xlsm

جرب هذا SELECT TB1.SAMEE FROM TB1 LEFT JOIN TB2 ON TB1.SAMEE = TB2.SAMEE WHERE TB2.SAMEE IS NULL;

ولا يهمك اخي الكريم 😇

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

يسعدنا أنك حصلت على إجابتك الشافية التي حققت طلبك ، ولذا . نرجو منك تصويب إختيارك للإجابة الصحيحة وهي للأستاذ @عبدالله بشير عبدالله مشكوراً على جهوده والإخوة والأساتذة دون استثناء 💐 شكراً لاهتمامك ورحابة صدرك 😇

شكرا جزيلا لك أخي الكريم عبد الله بشير عبد الله وربنا يبارك في حضرتك

في هذه المشاركة سأحاول أن اشارك حضراتكم بعض المحاضرات و الدروس التي يلقيها خبراء عالميين في مجال الاكسيس المحاضرة الاولى : Access Add-in Helper with Geoffrey L. Griffith أولا تعريف : ADD In Microsoft Access Add-in هو برنامج إضافي (Plug-in أو Extension) يتم تثبيته داخل Microsoft Access لإضافة وظائف أو أدوات جديدة غير موجودة بشكل افتراضي في البرنامج. 🔹 بمعنى آخر: الـ Add-in عبارة عن موديول أو ملف برمجي (عادةً يكون مكتوب بلغة VBA أو VB6 أو .NET) يندمج مع واجهة Access ويضيف لك قوائم أو أزرار أو أوامر خاصة تساعدك على تنفيذ مهام متكررة أو متقدمة بسهولة. 🔹 أمثلة على ما يقدمه الـ Add-in: أدوات لتسريع كتابة الأكواد (Code Libraries). قوالب جاهزة للتقارير أو النماذج. أزرار إضافية على الـ Ribbon أو الـ Menu bar. وظائف جاهزة لتحليل البيانات أو إصلاح قواعد البيانات. 🔹 مكانها في Access: تظهر عادة في قائمة Add-ins داخل الـ Ribbon. يمكن تشغيلها مثل أي أداة مدمجة في Access. 🔹 أشكال الـ Add-in: ملف .MDA أو .ACCDA (قديماً MDE/ACCDE). ممكن يتوزع مع البرنامج أو تثبته بشكل مستقل. ثانيا: ملخص الفيديو أداة جيفري المساعدة للوظائف الإضافية في Access (Access Add-in Helper) قدم جيفري أداة قام بإنشائها لمساعدة المستخدمين على إنشاء وتوزيع وظائفهم الإضافية الخاصة. كان دافعه لإنشاء هذه الأداة هو الصعوبة التي واجهها شخصيًا في تذكر جميع الخطوات اللازمة لإنشاء وظيفة إضافية. لذلك، قرر إنشاء تطبيق مستقل يقوم بأتمتة هذه العملية لتجنب الأخطاء. ستكون الأداة متاحة مجانًا على منصة GitHub قريبًا. الميزات الرئيسية للأداة المساعدة: عملية مؤتمتة: تأخذ الأداة المستخدم عبر خطوات إرشادية لإنشاء وتوزيع الوظائف الإضافية. قابلة للتخصيص: يمكن تخصيص الإعدادات، والتي تشمل أسماء المشاريع، ونماذج بدء التشغيل، وإعدادات التطبيق، وخصائص قاعدة البيانات. كتالوج للوظائف الإضافية: تحتوي الأداة على كتالوج للوظائف الإضافية المجانية المتاحة للتنزيل، ويخطط جيفري لتحديثه بمساهمات من المجتمع. سهولة الاستخدام: يمكن للمستخدمين فتح دليل الوظائف الإضافية وعرض سجلات الأخطاء بسهولة. أيقونة مُولَّدة بالذكاء الاصطناعي: تتميز الأداة بأيقونة فريدة تم إنشاؤها بواسطة الذكاء الاصطناعي. محرر خصائص قاعدة البيانات (Database Property Editor) تم استلهام هذه الأداة من اقتراح قدمه "جورج" في اجتماع سابق. وهي تتيح للمستخدمين عرض خصائص قاعدة البيانات وتعديلها وحذفها. الميزات الرئيسية لمحرر الخصائص: إدارة الخصائص: يمكن للمستخدمين إضافة الخصائص أو تعديلها أو حذفها. تعرض الأداة فهرس الخاصية ونوعها وقيمتها. أنواع البيانات: تتضمن قائمة بأنواع بيانات DAO (Data Access Objects) القابلة للتعيين. سهلة الاستخدام: تم تصميم الأداة لتكون بسيطة وسهلة الاستخدام. النقاش والأسئلة والأجوبة مجموعات الخصائص (Property Collections😞 سأل "جون" عن مجموعات الخصائص المختلفة في Access. أوضح جيفري أن أداته تركز حاليًا على الخصائص على مستوى قاعدة البيانات، ولكنه قد يوسع وظائفها في المستقبل. مفتوحة المصدر: ستكون الأداة مفتوحة المصدر، مما يسمح للمجتمع بالمساهمة في تطويرها. الخصائص المخفية: ناقش الحاضرون الخصائص المخفية المتنوعة في Access. وأشار "جورج" إلى أن بعض هذه الخصائص، مثل خيار استخدام محرر Monaco، يمكن تفعيلها. تخزين البيانات في الخصائص: ناقش الحاضرون إيجابيات وسلبيات تخزين البيانات في مجموعات الخصائص مقابل استخدام جدول مخصص للإعدادات، حيث يفضل جيفري استخدام جدول الإعدادات. تصحيح الأخطاء المباشر: عمل الحاضرون معًا للعثور على خطأ برمجي في أداة "محرر الخصائص" وإصلاحه خلال الاجتماع. تثبيت الوظائف الإضافية: سأل "براين" عن تحديات تعديل وتحديث الوظائف الإضافية، خاصة مع تحديثات Office 365 المتكررة التي قد تزيلها. ناقش الحاضرون حلولاً لذلك، مثل استخدام كائن مساحة العمل (workspace object) لفتح وتعديل الوظيفة الإضافية. ثالثا : ملف حوار الاجتماع مرفق باللغة الإنجليزية تجدونه في المرفقات ان شاء الله . و يمكن بسهولة يتم ترجمته من خلال ChatGpt AP; Microsoft Access Add-in Helper with Geoffrey L. Griffith (English_ASR).rar

وعليكم السلام ورخمة الله وبركاته ربما تفصد اخفاء الاعمدة وليس الخذف كما ورد في طلبك الكود يخفى العمود كله فارغ أو كله قيمه تساوي (0 أو 0%) → يخفي العمود بالكامل. الكود في البداية يظهر كل الأعمدة ثم يعيد إخفاء المناسب تم ربط الكود مع امر الفلترة اظافة التسطير لناتج الفلترة هذا خسب فهمى لطلبكم الكود Sub فلترة_اخفاء() Dim wsSrc As Worksheet, wsDst As Worksheet Dim lastRow As Long Dim rng As Range, col As Range, c As Range Dim hideCol As Boolean Dim rngOut As Range Application.ScreenUpdating = False Set wsSrc = ThisWorkbook.Sheets("المجمع") Set wsDst = ThisWorkbook.Sheets("1") lastRow = wsDst.Cells(wsDst.Rows.Count, "A").End(xlUp).Row If lastRow >= 5 Then wsDst.Rows("5:" & lastRow).ClearContents wsDst.Rows("5:" & lastRow).ClearFormats End If wsDst.Columns("A:W").Hidden = False lastRow = wsSrc.Cells(wsSrc.Rows.Count, "E").End(xlUp).Row If lastRow < 2 Then Exit Sub wsSrc.Range("E1:W" & lastRow).AdvancedFilter _ Action:=xlFilterCopy, _ CriteriaRange:=wsDst.Range("Criteria"), _ CopyToRange:=wsDst.Range("Extract"), _ Unique:=False lastRow = wsDst.Cells(wsDst.Rows.Count, "A").End(xlUp).Row If lastRow < 5 Then GoTo Done Set rngOut = wsDst.Range("A5:W" & lastRow) With rngOut.Borders .LineStyle = xlContinuous .Color = vbBlack .Weight = xlThin End With rngOut.EntireColumn.Hidden = False For Each col In rngOut.Columns hideCol = True For Each c In col.Cells If Not (isEmpty(c.Value) Or c.Value = 0 Or c.Text = "0%") Then hideCol = False Exit For End If Next c If hideCol Then col.EntireColumn.Hidden = True Next col Done: Application.ScreenUpdating = True End Sub الملف W1.xlsm تحياتي

بارك الله فيك وجزاك الله خير اخي الفاضل @Foksh كل الحلول جميله وتوصل للهدف المطلوب الف شكر لك استاذي احترامي وتقديري🌹🌹

حسناً .. سأقدم لك حلين اثنين ، ولربما سيكون هناك حلول أخرى من الأخوة والساتذة والمعلمين .. الأول :- باستخدام الدالة البسيطة التالية :- Public Function Foksh_TXTK1() As String Dim rs As DAO.Recordset Dim result As String Set rs = CurrentDb.OpenRecordset("SELECT TXTK1 FROM Tablek WHERE TXTK1 Is Not Null", dbOpenSnapshot) Do While Not rs.EOF If rs!TXTK1 <> "" Then result = result & rs!TXTK1 & " , " End If rs.MoveNext Loop If Len(result) > 3 Then result = Left(result, Len(result) - 3) End If Foksh_TXTK1 = result rs.Close Set rs = Nothing End Function مع استخدام استعلام ليكون مصدر سجلات النموذج ، كمثال :- SELECT Tablek.IDK, Tablek.Emp_Code, Tablek.TXTK1, Foksh_TXTK1() AS at_aziz FROM Tablek; لاحظ ان إسم الحقل الأخير (at_aziz) هو من سيعرض القيم ، وسيكون مصدر بيانات مربع النص TXT1 في نموذجك . الثاني :- باستخدام دالةبسيطة مشابهة تقريباً :- Private Sub Foksh(frm As Form) Dim rs As DAO.Recordset Dim combinedText As String Set rs = frm.RecordsetClone rs.MoveFirst Do While Not rs.EOF If Not IsNull(rs!TXTK1) And rs!TXTK1 <> "" Then If combinedText <> "" Then combinedText = combinedText & " , " End If combinedText = combinedText & rs!TXTK1 End If rs.MoveNext Loop Me.TXT1.Value = combinedText rs.Close Set rs = Nothing End Sub ونستدعيها في حدث "في الحالي - Form_Current" ، بالشكل التالي :- Private Sub Form_Current() Foksh Me End Sub مرفق الحلين :- at_aziz.zip

وعليكم السلام ورحمة الله وبركاته .. لا اعلم ان كان ما فهمته صحيحاً ، لكن جرب هذا التعديل في المرفق . مع العلم ان القيم افتراضية من عندي ، فجرب كما ترغب في القيم واعطنا النتيجة BASE-E5.zip

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

تسلم استاذي بارك الله فييك

Let's get Access talking!

مشاركة الأستاذ @AbuuAhmed ، جميلة وتؤدي الغرض بكفاءة باستعمال Case بدلاً من الجملة الشرطية If .. ومشاركة معه ضمن نفس الاسلوب باستعمال If If typ = "مهندسين" Then rs!evalu_moubadara_chaksia = 4.5 rs!evalu_itkan_elamel = 4.5 rs!evalu_nachatat_tarbia = 4.5 rs!evalu_absence = 8 rs!evalu_retard = 4 rs!evalu_tatwir = 4.5 ElseIf typ = "أساتذة" Then 'عدل القيم اسفلها حسب رغبتك rs!evalu_moubadara_chaksia = 4.5 rs!evalu_itkan_elamel = 4.5 rs!evalu_nachatat_tarbia = 3 rs!evalu_absence = 8 rs!evalu_retard = 4 rs!evalu_tatwir = 4.5 rs!evalu_absence_prof = 12 rs!evalu_retard_prof = 4 rs!evalu_nadawat_prof = 6 rs!evalu_nachatat_tarbia_prof = 6 rs!evalu_mobadara_prof = 12 Else rs!evalu_absence_prof = 12 rs!evalu_retard_prof = 4 rs!evalu_nadawat_prof = 6 rs!evalu_nachatat_tarbia_prof = 6 rs!evalu_mobadara_prof = 12 End If وسأنصحك باستعمال فكرة الستاذ أبو احمد اذا كانت الجمل الشرطية كثيرة لأنها أسرع في الأداء 😇 * وجهة نظري غير ملزمة طبعاً

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

وعليكم السلام ورحمة الله وبركاته .. نعم أخي تستطيع ذلك ، في المرفق التالي فكرة مشتقة من أحد المشاريع القديمة ، وتقوم بنفس الطلب الذي تريده . فقط املأ الارقام وانقر زر ارسال واتس اب تم حذف بعض الوظائف الخاصة بالمشروع الأصلي .. WhatsApp Sender WF.accdb

أشرطة مخصّصة باستخدام شريط الاوامر Custom Ribbons Using CommandBars (Adrian Bell) Using Web APIs in Access by George Young Access Version Control – Highlights along the Journey with Adam Waller Using Class Modules in the Real World

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

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

تفضل How To Find And Replace Fill Color In Excel?

تفقيط مبلغ معين (من الأرقام الى الحروف) سواء باللغة العربية أو الإنجليزية طريقةإستخدام معادلتى التفقيط لأى مبلغ باللغة الإنجليزبة أوالعربية:- 1- أبحث عن الـFolder المسمى XLSTART عل ى جهاز الكمبيوتر الخاص بك وغالبا ستجده فى program files وداخل Microsoft office 2- أنسخ الملفين الموجودين داخلالفولدر المسمى معادلة التفقيط (فى المرفقات) وهما Copy of Copy of EHAB و Copy of Copy of PERSONALوضعهما داخل الفولدر المسمى XSTART السابق الإشارة اليه فى الخطوة رقم1 3- انت الأن جاهز لإستخدام المعادلات 4- لاستخدام المعادلة داخل أى Excel sheet كالأتى إذهب الى الخلية التى تريد ان تكتب داخلها التفقيط وأذهب الى Formula tab واضغط على الأيقونة Insert function وفى المكان المخصص لـ Or select a category إختار User Defined بعدها ستجد المعادلات المطلوبة , إختار المعادلة المطلوبة إذا كانت باللغة العربية أو الأنجليزية وستظهر فى الخلية التى أنت واقف عليها وإختار الخلية الى بها الأرقام المطلوب تفقيطها وأضغط Enter ستجد المبلغ بالحروف المطلوبة معادلة التفقيط.rar

السلام عليكم استخراج تاريخ الميلاد من الرقم القومي وهي طلب للاخ الحبيب الاستاذ محمدي عبد السميع يطريقتين : اولا : بالمعادلات =DATE(IF(LEFT($B6;1)="2";MID($B6;2;2);"20"&MID($B6;2;2));MID($B6;4;2);MID($B6;6;2)) ============================= ثانيا: بالكود بدالة Kh_MyDate Option Explicit ' بسم الله الرحمن الرحيم " ' ******************** " ' دالـــــــــــــــة ' استخلاص تاريخ الميلاد من الرقم القومي '========================================" '========================================" '----------------------------------------------------------------- Function Kh_MyDate(MyNumber As Variant) As Date Dim D As String, M As String, Y As String, TY As String On Error GoTo Err_Kh_MyDate D = Mid(MyNumber, 6, 2) M = Mid(MyNumber, 4, 2) Y = Mid(MyNumber, 2, 2) TY = Left(MyNumber, 1) If TY = "2" Then Else Y = "20" & Y Kh_MyDate = DateSerial(Y, M, D) Exit Function Err_Kh_MyDate: Kh_MyDate = "" End Function جعلتها هنا لتعم الفائدة للجميع خبور خير دالة استخلاص تاريخ الميلاد من الرقم القومي.rar

بسم الله الرحمن الرحيم - بناء على طلب الأخ SOJOD وهو عضو معنا بالمنتدى . فقد قمت بتصميم برنامج للمستودعات والمبيعات وأليكم البرنامج مع الشرح بالصور - في البدايه البرنامج مصمم على الأكسيل xp وسيعمل مع جميع الأصدارت بمشيئة الله تعالى - عند تشغيل البرنامج ستظهر لك الشاشة الرئيسيه والتي تحتوي على مجموعة من الأزره كما ترى بالصوره - أولاًُ : يجب عليك تسجيل المنتجات أو الأصناف المتوفره لديك وذلك بالضغط على صفحة الأصناف ستجد أن الأصناف مرقمه من ( 1 - 150 ) صنف والأرقام ثابته ولكن عليك أدخال أسم كل صنف أمام رقمه ( خطوه أساسيه ) - ثانياً : عليك أدخال أسماء الموردين الذي تتعامل معهم لشراء المنتجات التي لديك وذلك بالضغط على زر صفحة الموردين . تحتوي الصفحه على 150 مورد ولا تنسى أن لديك خيار للبحث عن أسم المورد ( خطوه أختياريه ) - ثالثاً : بعد تسجيل أسماء المنتجات وهذه الخطوه هامه جدا . تجد زر خاص بفواتير الشراء عند الضغط عليه تتوجه للصفحه التي بها عدد ( 31 ) زر أي ( 31 ) فاتوره بأقصى عدد أيام للشهر وللعلم فإن كل فاتوره يتم تحريرها سيظهر أمامها بهذه الشاشه مبلغ إجمالي الفاتوره والذي سيساعدك في معرفة إذا كانت الفاتورة محرره أم لا . - رابعاً : تجد أيضاً فواتير خاصه بعمليات البيع خلال الشهر وهي أيضاً بعدد ( 31 ) وبنفس فكرة فواتير الشراء - خامساً : عند الدخول الي فاتورة الشراء أو البيع ستجد أنك ستكتب تاريخ اليوم - رقم الفاتوره - وبيانات المشتري أو البائع وستجد أنك بمجرد أدخال رقم الصنف سيظهر أسم الصنف حيث سيستسقي البرنامج بياناته من البيانات التي أدخلتها أنت في صفحة ( الأصناف ) - سادساً : توجد صفحه خاصه بالتقارير وبها مجموعه كبيره من التقارير كما ترى بالصوره وسأتركك تستكشفها بنفسك - سابعاً : بما أن البرنامج شهري ويتم مسح بياناته نهاية كل شهر فيجب عليك لكي تحصل على تقارير سنويه أن تقوم بحفظ البيانات أولاً قبل مسح الشهر وذلك بالضغط على زر ( تخزين البيانات ) من الصفحة الرئيسيه ثم سيفتح لك صفحه بها أسماء شهور السنه قم بالضغط على اسم الشهر الحالي ليتم حفظ البيانات تلقائيا - ثامناً : الآن وبعد حفظ بيانات الشهر يمكنك مسح كافة بيانات هذا الشهر والبدأ بتسجيل شهر جديد وذلك بالضغط على زر المسح من الصفحة الرئيسية - ستجد أن البرنامج يطلب منك كلمة السر لتأكيد الدخول لصفحة المسح وكلمة السر هي ( بسم الله ) وبعد الدخول للصفحه تجد العديد من الخيارات حيث يمكنك : * مسح بيانات الشهر الحالي فقط * مسح جميع البيانات مع الأحتفاظ بأسماء المنتجات والموردين * مسح كامل بيانات البرنامج وتصفيره وبدأه من جديد بالكامل * ملحوظه هامه ( تغيير أسم الملف الأصلي وهو ( STORE ) قد يؤدي لخلل بعملية مسح البيانات وعليه يجب عدم تغيير أسم الملف الأصلي * لا تنسى أنه بأمكانك مشاهدة تقرير بالأرباح والخسائر * تقرير بفواتير الشراء * تقرير بفواتير البيـــــع * تقرير بعدد مرات شراء أو بيع صنف * والعديد والعديد من التقارير الشهريه والسنويه * البرنامج مضغوط ببرنامج Winzip وحجمه ( 1.12 ) ميجابايت . وبعد فك الضغط حجمه سيكون 4.48 ميجابايت * في النهايه أشكر كل من ساعدني في أتمام البرنامج وأخص بالذكر : * الأستاذ ( محمد طاهر ) * الأستاذ ( أبومؤنــــس ) * وأشكر الآخ ( sojod ) على طرح الفكره رابط تحميل البرنامج تجدونه في المرفقات * شكراً لكم ولا تنسونا من صالح الدعاء * download.zip