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

تفضل جرب ................ التقرير الشهري للغياب.accdb

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

ما فيه .. هذا حمود وهذي عباته لما طلع vb6 من بيتهم القديم وطلع يجدد بيته .. اكسس حل محله وجلس في البيت القديم

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

هل هذا طلبك .... انظر التقرير ....................

تفضل على حسب ما فهمت من السؤال عينة.xlsm

تفضل استاذ @hosslom محاولتي .اليك العرض والمرفق بعد التعديل لأني مانتبهت لطلبك (بار متحرك) . ووافني بالرد . DD501-1.rar

السلام عليكم و رحمة الله ضع الكودين الآتيين فى حدث الفورم Private Sub CommandButton1_Click() Dim ws As Worksheet, Knd As String Dim x As Integer, Trgt As Range Set ws = Sheets("ورقة1") If Me.ComboBox1.Value = "" Or Me.TextBox1.Value = "" Then MsgBox "يرجى استكمال البيانات" Exit Sub End If Knd = Me.ComboBox1.Value x = WorksheetFunction.Match(Knd, ws.Range("A1:F1"), 0) Set Trgt = ws.Cells(2, x) Trgt.Value = Trgt.Value + Me.TextBox1.Value Me.ComboBox1.Value = "" Me.TextBox1.Value = "" End Sub Private Sub UserForm_Initialize() For Each c In Range("A1:F1") Me.ComboBox1.AddItem c Next End Sub

لا تعجب من عدم وجود ردود اخي الكريم ،، في فكرتك ارفق ملف لتتوضح الفكرة أكثر 🤗

استاذي ومعلمي الكريم @AlwaZeeR خالص شكري وامتناني ومحبتي لك... اسئل الله الكريم رب العرش العظيم ان يعطيك ماتتمناه وترجوه في الدنيا والاخرة وان يجزيك عني خير الجزاء..

وعليكم السلام ورحمة الله وبركاته تفضل أخي الغالي 1. اضفت بعض الأعمده وبها صيغ لتحسن الشكل ولاستخراج بيانات إضافية. 2. تم عمل ما طلبت ولكني حسبت السنة على 360 يوم كالمعتاد في حسابات المؤسسات لحساب بدل الأجازات ونهايو الخدمة رصيد الاجازات بالأيام.xlsx

هذه طريقة مختصرة اكثر test (1)w.accdb

تفضل اخي الكريم ربما تلبي هذه الطريقة طلبك :: تحياتي test (1)w.accdb

تفضل استاذ @hosslom محاولتي .اليك العرض والمرفق . ووافني بالرد . DD501.rar

لا يوجد أي مشاكل طالع الفيديو والمرفق بعد التعديل . طبابة 2024-2.rar

جرب هذا ............. Me.RecordSource = "SELECT TOP " & Me.txtTop & " Query1.العمر, * FROM Query1 ORDER BY Query1.العمر ASC;"

جرب شيء مثل هدا =IF(OR(G13>0;H13>0);IF(OR(G13="اجتاز";H13="اجتاز");"جدير";"غير جدير");"") =IF(OR(G13<>"";H13<>"");IF(OR(G13="اجتاز";H13="اجتاز");"جدير";"غير جدير");"")

ربما هدا ما تقصده تجربة فرز الرواتب.xlsx

في النموذج اجعل مصدر البيانات استعلام من داخل النموذج ( وليس استعلام خارجي ) ، وقم باختيار الجداول الذي تريدها ( اذا كانت اكثر من جدول ) ، ثم عند حقل رقم العامل اجعل الشرط مربع نص غير منضم في النموذج ليكون ناتجه عند ادخال رقم عامل عرض البيانات التي تريدها. وفي حدث بعد التحديث لهذا المربع Docmd.Requery هذه الفكرة تخيلية بدن كمبيوتر في الوقت الحالي 🤗

اشكركم هذا هو المطلوب