كل الانشطه

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

الخبراء الافاضل برجاء المساعدة المطلوب مكتوب فى الصورة TEST -2.rar

تفضل استاذ @2saad الشرح والمرفق بعد التعديل بطلبك . ووافني بالرد . abdo-Last.rar

اعرض الملف تشفير بيانات في رمز شريطي أو رمز الاستجابة السريعة barcode or Qr-Code Encode input data in a barcode or Qr-Code صاحب الملف عسل قليل الدسم تمت الاضافه 04/04/26 الاقسام قسم الأكسيس  

zint barcode.zip

ابشر....................... باكر انشاء الله .

اخواني أعضاء المنتدي الكرام بعد سلام الله عليكم ورحمة الله وبركاته الملف المرفق ساعدني فيه أخ الكريم المعطاء ( خليفة ) وهو برنامج صلاحيات مستخدمين في جدول المستخدمين فيه 2 يوزر وأنا عايز ازود مستخدمين 4 أو 5 وعايز احدد لكل منهم صلاحية في الفورم الموجوده بالملف ؟؟abdo-1 (1).rar

Up

تفضل نسخة منقحة بنموذج بحث بجميع حقول الاجازات . Yamen-QRCode_Last.rar

تم إضافة رسائل تنبيه dbexample.mdb

المطلوب تعديل المعادلات لعدد الحصص بالجدول بدلا من (غ) يكتب مكانها الموجود بجدول الغياب تعديل معادلة.xlsx

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

شكرا حزيلا أخي الفاضل وبارك الله فيك وأكثر الله من أمثالك

قمت بتعديل الملف وان شاء الله يكون هو المطلوب SaadPermissionsLast.rar

إخواني الأعزاء بعد سلام الله عليكم ورحمة الله وبركاته الملف المرفق عد الدخول واختيار اسم المستخدم تظهر صورته محتاج عند الدخول للصفحة الرئيسية frmhome تظهر صورة المستخدم ايضاSaadPermissionsLast.rar

وعليكم السلام ورحمة الله وبركاته .. أهلاً بك معنا أخي الكريم sgreffier_sf0315 ، ونسعد بانضمامك لأسرتنا الكبيرة هذه . متأملين منك أن تقرأ شروط المشاركات في المنتدى هنا . ومنها كأساسيات وللتذكير :- وأود لفت انتباهك إلى أن الزر "اختر تمت الإجابة" يستخدم عادة عندما تجد الحل لطلبك ، واختياره للمشاركة التي حققت لك طلبك . أهلاً بك معنا

تفضل جرب التعديل المرفق dbexample.mdb

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

السلام عليكم ضع المعادلة =SUM(C8:C12) بدل الموجودة في خلية الجمع = SUM(C8+C9+C10+C11+C12) وفي الخلية c6 اكتب المعادلة =EOMONTH(P1;0) خطأ في الجمع و نهاية الشهر.xlsx

المطلوب تصحيح الخطأ في الجمع .... وكذلك حساب نهاية الشهر حسب كل شهر اتوماتيك كما بالملف خطأ في الجمع و نهاية الشهر.xlsx

مشكور أخي على التفاعل مع الطلب وجزاك الله خير ا ( ملف مرفق ) حساب الفئة العمرية.xlsx

السلام عليكم لدي جدول TableB و جدول TableA الاسم في الجدول TableA هو A3 و A4 الاسم في الجدول TableB هو B3 و B4 اريد عند الحاق البيانات من جدول TableB الى جدول TableA تظهر لي رسالة تنبيه بأن الاسم موجود في الجدول TableA وفي حالة عدم وجود الاسم يتم الحاق البيانات وتظهر رسالة تنبيه تم الحاق البيانات بنجاح dbexample.mdb

تفضل استاذ @بلال بلال طلبك مع الشرح . ووافني بالرد . Yamen-QRCode.rar

تم تنقيح الكود لتسهيل التعديل عليه Private Sub Worksheet_Change(ByVal Target As Range) Dim Row As Integer, Col As Integer Dim fRow As Integer, fCol As Integer, fdd As Integer Dim yy As Integer, mm As Integer, dd As Integer Dim cellDate As Date, DateRange As String, m m = Array("", "يناير", "فبراير", "مارس", "أبريل", "مايو", "يونيو", _ "يوليو", "أغسطس", "سبتمبر", "أكتوبر", "نوفمبر", "ديسمبر") With Target DateRange = Replace(.Address, "$", "") If DateRange <> "M1" Then 'تبديل عنوان خلية التاريخ عند الحاجة' Beep 'MsgBox Exit Sub End If If Not IsDate(Range(DateRange)) Then Beep 'MsgBox Exit Sub End If Application.EnableEvents = False Application.ScreenUpdating = False yy = Year(.Value) mm = Month(.Value) For fdd = 1 To 7 If Weekday(DateSerial(yy, mm, fdd)) = vbSunday Then Exit For Next fdd End With Cells.Find(What:="الأحد", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate fRow = ActiveCell.Row fCol = ActiveCell.Column + 1 Cells(fRow - 2, fCol + 5) = m(mm) dd = fdd - 3 For Col = fCol To fCol + 9 Step 2 dd = dd + 2 For Row = fRow To fRow + 4 dd = dd + 1 cellDate = DateSerial(yy, mm, dd) If Month(cellDate) = mm Then Cells(Row, Col + 0) = cellDate Cells(Row, Col + 1) = 1 Else Cells(Row, Col + 0) = "" Cells(Row, Col + 1) = "" End If Next Row Next Col Application.EnableEvents = True Application.ScreenUpdating = True End Sub حساب_التاريخ_06.xlsm