عبدالله المجرب

مشاركتي كتبتها قبل زيارة ذلك الرابط فكل الشكر لك ابا ادم

وجدت المطلوب هنا http://www.officena.net/ib/index.php?showtopic=41731

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

سنحتاج لتعلم هذه الجمل نشكر للاستاذ ابو ادم التكرم بمشاركتنا لاسرار هذه اللغة ===== هل هناك قواعد متبعة لكتابة هذه الاوامر

الحمدلله اعدت الخطوات من البداية وتم العمل ووله الحمد ============== هل اعتبر الموضوع حُل ام نستمر في موضوع الاستعلامات

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

سيتم الرد في الموضوع

موضوع هذه الاستعلامات (لان معرفتي بها صفر عالشمال ) نتركه حتى نتمكن من معرفة ما تم عمله من طريقة الربط في الاستعلام والفورم

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

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

السلام عليكم استبدل الكود بهذا (تم استعمال عمود مساعد (AZ)) Private Sub Worksheet_Change(ByVal Target As Range) Dim cl As Range, cel As Range r = 6: T = 2 If Not Intersect(Target, [AK5]) Is Nothing Then [Ak6:Ak150,AZ2:AZ150].ClearContents For Each cl In [D5:D60] If cl = Target Then MyArr = MyArr & cl.Offset(0, 1) & "," Next For Each c In Split(MyArr, ",") Cells(T, "AZ") = c T = T + 1 Next For Each cel In Sheets("ورقة2").[B5:B100] w = Application.CountIf([AZ2:AZ150], cel) If w = 0 Then MyAr = MyAr & cel & "," Next For Each c In Split(MyAr, ",") Cells(r, "AK") = c r = r + 1 Next End If End Sub

لا يمكن الإضافة من خلال النموذج كون مصدر السجل إستعلام لجدولين مرتبطين ...................... ما الحل اذاً ==== سوالي بخصوص التنقلات و التقاعد هو ماذا سيحدث ببيانات الموضف القديمة وهل ستبقى في الجدول الام ام ماذا (لان المطلوب نقلها الى جدول منفصل خاص بكل حالة)

شكراً لك ابا ادم (لكن للاسف لازلت غير قادر على ادخال اي اجازة في الفورم) استكمالاً للموضوع === كما هو متعارف عليه انه تحدث تنقلات او انهاء خدمة او احالة الى التقاعد للموظفين فما هي انسب طريقة للتعامل مع هذه الحالات في قاعدة البيانات وكيفية التحكم في بيانات موظف انتهت خدمته في الشركة

السلام عليكم اشكر الاستاذ ابو خليل لمد يد العون بالمشورة والحل واشكر الاستاذ ابو ادم للمتابعة والنصح للاسف هذا هو الحاصل عندنا وفقاً للنظام المتبع باختلاف الدرجات =========== الجواب اني كنت اعتقد انه كما الااكسل يتم عمل المعادلات في الجداول والحمدلله تم ايضاح هذه المسالة من قبل الاستاذ ابو خليل بان التعامل سيتم من خلال الفورم او الاستعلام وليس الجدول ==================== في المرفقين بتاع الاستاذ ابو خليل ظهر الاتي: اولاً : عند الضغط على الزر تظهر هذه الرسالة مع العلم اني حذفت الزر واعدت تصميمه وجعله يفتح الفورم (frmVacations) ولكن عندما فتحته اليوم ظهرت نفس الرسالة ثانياً : لا يمكنني تسجيل اي اجازة لاي موظف (الله اعلم ما السبب)

بالفعل تغييرات جوهرية فهل لي بطريقة العمل وهل الموضوع مرتبط يالرقم التلقائي

السلام عليكم جرب المرفق MoveNumber.rar

شكراً لهذا الترحيب وبانتظار لمساتك استاذ ابا خليل

ونحن معك بإذن الله

اليك المرفق بعد التعديل تفقيط انجليزي2.rar

السلام عليكم كنت قد بداءت في التعامل مع الاكسس بدل الاكسل في عمل برنامج يكون كملف وظيفي للموظف ولكن للاسف واجهتني مشكلة تشابه ارقام بعض الموظفين مع اختلاف درجاتهم الوظيفية ففي المثال المرفق هناك موظفين يحملان الرقم 1715 ولكنهما من درجتين مختلفتين === هذا التشابه ظهرت اخطاءه في الاستعلامات وفي نماذج الاجازات والنماذج الاخرى (في الاستعلام سيتم تكرارا الموظف رغم ان الاجازة لموظف واحد) فهل هناك طريقة لحل هذه المعظلة في التشابه بحيث يتم الاعتماد على الرقم ثم الدرجة للعلم انه واجهتني نفس المشكلة مع الصورة في النموذج وتم حل هذه المشكلة من قبل الاستاذ منتصر الانسي بعمل جدول تحويل مسميات الدرجات الى مسميين واحد للدرجة الاولى والاخر للثاني بغض النظر عن أ و ب وت وث http://www.officena....l=&fromsearch=1 ============= الطلب الثاني هل يمكن وضع معادلات لحساب العمر ومدة الخدمة في (جدول البيانات - DateTbl) كتلك التي استخدمتها في نموذج الاجازة عبدالله المجرب1.rar

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

اخي انس جربت فما الخلل

تمت الاحابة وتعديل العنوان

جزاك الله خير اخي ابو سلام والشكر موصول للنشيط الاستاذ ابو حنين

اخي ابو حنين ملاحظة لا حظ ما يلي اذا كان الفارق 40 اي بمعنى 10* 100 = 1000 10* 90 = 900 20*80 = 1600 اي ان الناتج يساوي ( 1000+900+1600) = 3500 وليس 2400 وكذلك 9 فالناتج لابد ان يكون 900 وليس 540 والله اعلم