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

جرب هذا الملف Shaal.xlsm

الطريقة الثانية وهي الافضل وباستخدام جدولين ولسنا في حاجة الى ادخال معلومات السلم كاملة فقط نحتاج المرتبة الدرجة الاولى من المرتبة العلاوة السنوية عدد الدرجات لكل مرتبة ويتم احتساب الدرجة عن طريق العمليات الحسابية في النموذج ويتم توليد درجات السلم لغرض الطباعة عن طريق الحلقة التكرارية ثم استعلام جدولي ليكون الناتج مطابق للسلم الرسمي وانا افضل هذة الطريقة لكون عدد السجلات فقط 15 سجل واجمالي عمليات الادخال 63 مقابل 1260 للطريقة الاولى والنتيجة

ربما صاحب الموضوع وجد طريقة الحل لكونه لم يرد على سؤالي وهو سؤال متعلق في تصور الحل وهنا ردي لمن قد يجد ان الموضوع يهمه والحل بطريقتين الاولى عن طريق انشاء جدول مكون من 6 حقول ترقيم تلقائي رقم الدرجة قابل للتكرار المرتبة حقل نصي الراتب رقم العلاوة السنوية رقم بدل النقل رقم وهذا الحل يتطلب ادخال كافة سجلات السلم 210 *6 =1260 حقل ثم نقوم بانشاء نموذج غير منظم يحتوي على حقلي المرتبة والدرجة من نوع كمبو بوكس مصدرهما كل منهما استعلام ومرتبطين ليتم فلترة الدرجات وفقا للمرتبة والحقل الثالث نصي مصدر بياناته كود Me.asasii = Nz(DLookup("[asasii]", "tbl3", "[id]=" & [tx2] & "and [almartaba]='" & [tx1] & "'"), 0) هذه الطريقة مرهقة وتتطلب ادخال عدد كبير من الحقول وعرضة لاخطاء الادخال والرواتب لايقبل فيها اي خطا وتحتاج الى مراجعة الدرجات قبل اعتماد السلم

بعد تنفيذ المعادلة يجب ان تضغط هنا

من رحصة الدكتور المبدع @د.كاف يار تفضل لعلة المطلوب wesam.accdb

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

this Formula =IF(NOT(ISNUMBER(C2)),"",IF(G2=C2,"آجل","مدفوع"))

اجراءات يجب ان تأخذ في الحسبان يجب عليك ازالة المسافات بين الكلمات ان وجدت لأنك ستواجه مشكلة مع التقارير فقط استبدل المسافات بعلامة "_" كذلك ارسال الباينا لقاعدة البيانات عن طريق الاكسس بطيئة !!!!!!!! انتبه الافضل اذا رغبت في انشاء قاعدة بيانات انشاء الننماذج على الفيجوال بيسك او PHP و غيرها من لغات البرمجة فهي سريعه في قل البياات الاكسس مع SQL لن تستطيع الاستغاء عن الاكسس لأن اسهل وسيلة لعرض بيانات قاعدة بيانات SQL هي الاكسس و بما انك تفكر في انشاء قاعدة بيانات على الاكسس انصح انك تبدء تصمم الواجهات على VB.ASP فهي لا تختلف كثيرا عن الاكسس لكن المميز في الموضوع بأن المستخدم يستطيع الاستفادة من برنامجك على جميع الاجهزة كمبيوتر - لابتوب-موبايل - ايباد و غيرها حين تقرر هذه الانتقالة ابدء بانشاء موضوع جديد و سأقوم بمساعدتك لإنشاء اول تطبيق يتوافق في عرضه مع جميع الاجهزة بما فيها الموبايل

Sheets("كشف التنقيط").Range("N10") = Sheets("كشف التنقيط").Range("AA19") بشرط ان يكون اسم الشيت بالكود كما هو بالضبط على الـــ (تاب) دون مسافات ناقصة او زائدة الافضل عمل Copy Paste لاسم الشيت

بعد إذن أستاذناالفاضل سليم حاصبيا تم التعديل السطر Sheets("Salim").Range("A3").CurrentRegion.ClearContents إلى Sheets("Salim").Range("A3:G100").ClearContents Affan.xlsm

على الرغم انى لا ارى اى جدوى او فائدة من ذلك , فحجم الخط بالقائمة المنسدلة الموجودة بملفك طبيعى ويرى بالعين المجردة فلا داعى لكل ذلك .... الا انه يمكنك استخدام هذا الكود بحدث الورقة واليك الملف مرة أخرى Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error GoTo xErr If Target.Validation.Type > -1 Then ActiveWindow.Zoom = 140 Exit Sub End If xErr: ActiveWindow.Zoom = 100 End Sub data Validation.xlsm

اللهم امين جزاك الله خيراً علي طيب كلماتك 🌹

هو المطلوب الله يبارك فى حضرتك ياغالى

حسب فهمي للمطلوب تم عمل المعادلة لشهر 5 وشهر 6 راجعها المبلغ المدور من الشهر السابق.xlsx

واخيرا اختر اللغة العربية لاي بلد عربي ملاحظة هذة الخطوات للوندوز 8 لن تتختلف عندك كثيرا سواء ونووز 7 او 10 ولاتسى الضغط على ok وان شاء الله تحل المشكلة عندك بالتوفيق

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

ارفع نموذجاً منسطاُ 3 أو 4 أعمدة فقط مع توضيح المطلوب

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

أهلا بك أ @jjafferr أجل لنفكر في شئ آخر خارج الصندوق.. من ضمن المكتبات المرجعية التي توفرها ويندوز: مكتبة التعابير القياسية (النمطية)، وهي مكتبة تقوم بمعالجة النصوص وفق معايير متعددة، يمكن التعرف هذه المعايير عن طرق الرجوع إلى الموقع الرسمية لهذه المكتبة هنا كما يمكن الوصول إلى معايير استخدام ترميز UNICODE من هنا فيما تعلق بترميز محارف النص العربي في مقاييس UNICODE: فإنها تبدأ من الرمز: U+0060 وتنتهي بالرمز: U+06FF ، يشمل هذا الترميز جميع ما يتعلق بمحارف النص العربي (حروف، أرقام، زخارف، روابط، إلخ ). راجع الرابط هنا يمكن الوصول إلى المكتبة في أكسس بالنظر إلى الصورة التالية: نأتي الآن إلى مثال لتكون الشفرة المتعلقة بالبحث في النص المرفق مع المشاركة لكون النص في غير مطابق لترميز أكسس، ولهذا سوف نلجأ إلى استخدام ترميز UNICODE الموسع للغة العربية كما فعل أ. جعفر، والفرق هنا: أنه بعد كتابة الشفرة يمكن أن نستخدمها عن طريق الاستعلام. هذا مثال مصغر للشفرة استخدام المكتبة.. Public Function TEST_STRING(V As Variant, Optional P As String) On Error GoTo EXIT_FUNCTION Dim RE As New RegExp Dim MATCH As MATCH Dim MATCHX As MatchCollection Dim R As Variant '-- INITIAL RE RE.IgnoreCase = True RE.Global = True '-- GET RE PATTREN RE.Pattern = P '-- SET MATCHX AS OBJECT Set MATCHX = RE.Execute(V) '-- CHECK IF ANY MATCHED If MATCHX.Count = 0 Then GoTo EXIT_FUNCTION End If '-- INITIAL RESULT VARIABLE R = vbNullString '-- LOOP THROU MATCHX For Each MATCH In MATCHX Debug.Print MATCH.Value R = R & MATCH.Value Next TEST_STRING = R EXIT_FUNCTION: '-- TERMINATE OBJECTS Set MATCHX = Nothing End Function قمت بإدراج الوظيفة في الاستعلام بالطريقة التالية: RESULT: TEST_STRING([FIELD1],[PATTREN]) في مربع الحوار وضعت معايير تعيد جميع الترميز العربي إذا كان بعدها فراغ أو كانت في آخر السطر: [\u0060-\u06FF]+\s*|$ كانت النتيجة كما في الصورة التالية.. يمكن وضع تعابيير أكثر دقة بمراجعة ماسبق الإشارة إليه، وتجربيه على المثال التالي: ACCESS WITH REGEXP.accdb

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

بسيطة إن شاء الله تفضل لاحظ أن آخر سطر في الورقتين هو رقم 40 إذا أردت الزيادة فقم بزيادة المعادلات في الأسطر تقبل تحياتي TEST M.xlsx

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

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

قد ينفعك هذا الكود للاستاذ جعفر =IIf([virusid1]<>"",Nz(DLookUp("vxxx","Qvrm","virusid1=" & [virusid1]),0),"")

لم افهم ماذا تقصد بعبارة لو يكون الرنج في العامود K أوسع اذا كان فصدك توزيع المواد على عدة حلايا فهذا الملف (صفحة Salim ) يفي بالغرض Aboomar_1.xlsm

وعليكم السلام اتفضل اخى ان شا الله يكون ما تريد بالتوفيق data(1).accdb