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

بعد السلام عليكم ورحمه الله وبركاته اتفضل لعله المطلوب تظليل الاعمدة.xls

لتجربة الأصناف اختر من الأرقام 1001 1002 1003 1004 1005 1006 1007 1008 1009 1010 1020 1400 1110 1000 الكاشير.xlsm

للمعلومة .. فما أجمل أن يكون الإنسان شمعة تُنير دروب الحائرين. يدفعنى الاندهاش الى المعرفة ، فيشعرنى بجهلى. جزاكم الله خيرا علي كل هذه الأعمال الرائعة @ابوحبيبه @Mohamed Hicham 🌹🌹

نعم اخي ده مثال للفائدة فقط يمكنك تطويعه بما يناسبك وللعلم يمكن حدف اي ورقة من اوراق العمل سيقوم الملف بتحديث البيانات تلقائيا دون اي مشكلة اخي على العموم اليك الملف ب 3 اوراق فقط وورقة خاصة ب (Admin) لتعديل كلمات المرور test3.xlsm

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

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

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

وعليكم السلام ورحمة الله وبركاته أهلا بك.. في الشفرة التالية عدل الدليل الموصل للصور إلى الدليل الموصل للسيرفر Function WorkerCard(F As Form) Dim RS As dao.Recordset Dim ImgFile As String Dim H As String Set RS = CurrentDb.OpenRecordset("select * From WorkerSubQ where " _ & "[Depart Id]=" & Nz(F.cboDepart, True)) If RS.RecordCount = 0 Then Exit Function Do Until RS.EOF ImgFile = CurrentProject.Path & "\" & RS!Worker & ".jpg" '... الدليل هنا يشير إلى قاعدة البيانات الواجهة H = H & "<div class='card'>" H = H & "<div class='container'>" H = H & "<a href=#ID:" & RS!WorkerID & "><img src='" & ImgFile & "'></a>" H = H & "<h3><b>" & RS!Worker & "</b></h3>" H = H & "<p>" & RS!Depart & "</p>" H = H & "</div>" ' end of container H = H & "</div>" ' end of card RS.MoveNext Loop WorkerCard = H Set RS = Nothing End Function لم توضح لي الطريقة التي تستخدمها في إضافة الصور.. وفي تصوري أسهل طريقة أن تعمل Map Driver للسيرفر على كل الأجهزة ومن ثم تضع الصورة في مجلد الصورة برقم الموظف.. لن يكون باستطاعتي مساعدتك بالقدر الكافي لأنه يوجد لدي بيئة مماثلة لبئية السيرفر.. تنبيه للجميع.. في المرات القادمة أرجو فتح مشاركة جديدة مع الإشارة إلى الموضوع السابق لكي يتمكن من يجيب على مشاركتك بأفضل إجابة خاصة به 😉🤑

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

جزيل الشكر كريم باشا جزاك الله خيراً

مستخدم 3 لديه فتح جميع الملفات Sub Login() Dim username As String Dim password As String username = InputBox("Enter your username:") password = InputBox("Enter your password:") If username = "user1" And password = "password1" Then Worksheets("Sheet1").Visible = True Worksheets("Sheet1").Activate ElseIf username = "user2" And password = "password2" Then Worksheets("Sheet2").Visible = True Worksheets("Sheet2").Activate Else ElseIf username = "user3" And password = "password3" Then Worksheets("Sheet2").Visible = True Worksheets("Sheet3").Visible = True Worksheets("Sheet1").Visible = True Worksheets("Sheet2").Activate MsgBox "Invalid username or password" End If End Sub

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

مشاركة مع الاخ محمد ممكن ايضا عمل دالة تقوم بالمطلوب دون الحاجة الى استخدام دالة iif وما يتطلب من تكرارها وتكرار الشرط والنتيجة عند التحقق وعدم التحقق نعمل وحدة نضع فيها الامر Public Function n_fld(id As Integer) As String Dim rst As DAO.Recordset Dim fld As Field Dim t As String Set rst = CurrentDb.OpenRecordset("Select * From [صف خامس] Where [م1]= " & id) For Each fld In rst.Fields If fld.Type <> acTextBox Then If fld.Value = -1 Then t = t & " " & fld.Name End If End If Next n_fld = Replace(t, "تظلم", "") rst.Close End Function ويتم الاستدعاء في الاستعلام n_fld([م1]) والنتيجة ممكن تحسينها وكتابة التسميات بشكل افضل لتكون اكثر وضوح ولكن للاسف مالي مزاج

بعد اذن الاستاذ @ابوحبيبه كود اخر يكون ب اسم مستخدم وكلمه مرور ل إثراء الموضوع Sub Login() Dim username As String Dim password As String username = InputBox("Enter your username:") password = InputBox("Enter your password:") If username = "user1" And password = "password1" Then Worksheets("Sheet1").Visible = True Worksheets("Sheet1").Activate ElseIf username = "user2" And password = "password2" Then Worksheets("Sheet2").Visible = True Worksheets("Sheet2").Activate Else MsgBox "Invalid username or password" End If End Sub 7777 (2).xlsm

I don't attach files Wait someone to attach the file for you Just follow the steps and you will be able to make it run properly

شكرا استاذ كريم الغريب اني لما طيفت المعادلة على البيانات لم تضبط

السلام عليكم اليك هذا الملف بعد التعديل 7777.xlsm

السلام عليكم تفضل المرفق لعل فيه ما تريد... ملف.xlsx

تقصد بشرط عدد السنوات ..يمكنك تغيير المعادلة بهدا الشكل =INDEX($I$3:$M$6; MATCH(C2;$H$3:$H$6;0); MATCH(B2; $I$2:$M$2; 0)) ملف v3.xlsx