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

كان يجب ادراج ملف للمعاينة والمعالجة لكن حبث انك عضو جديد فأهلاً وسهلاً جرب هذا الملف(نموذج عمّا تريد) Shaban ebaid.xlsx

السلام عليكم أخي الكريم الكود في حدث الوزرقة أي أنه يتم تفعيله أوتوماتيكيا إذا حدث التغيير المناسب في هذه الورقة ويعتمد الكود علي خطوتين 1- إذا تم إختيار خلية بالعمود E ، يتم تسجيل محتوي هذه الخلية ، وهذا هو الدور القديم للموظف قبل التغيير 2- إذا تم تغيير خلية بالعمود E ، يتم نقل الدور القديم (الذي تم تسجيله) وبيانات الموظف لمساحة التغييرات تفضل المرفق تتبع التغيرات.xlsm

ممكن تستخدم مثلا هذا الكود ان اردت ..... If Len([mobile1]) < 11 Or Len([mobile1]) > 11 Then Beep MsgBox " عقواً .... تأكد من رقم الموبايل الصحيح ", 64, "تنبيه" Cancel = True Me.mobile1 = "" End If With mobile1 If Not IsNumeric(.Value) And .Value <> vbNullString Then Beep MsgBox "عفوا ... مسموح ادخال الارقام فقط", 16, " تحذير" .Value = vbNullString End If If Mid(mobile1, 1, 3) <> "078" Then MsgBox "عفوا ... تأكد من رقم الشبكة", 16, " تحذير" Me.mobile1 = "" End If End With

تفضل تم ضبط تنسيق التواريخ بتكست بوكس 9 وتكست بوكس12 داخل فورم3 وفورم4 ... وذلك بإضافة هذان السطران بكلا الفورمين داخل حدث هذا الكود Private Sub TextBox1_Change() TextBox9.Text = Format(TextBox9.Text, "dd/mm/yyyy") TextBox12.Text = Format(TextBox12.Text, "dd/mm/yyyy") AHMAD.xlsm

تفضل اخى الكريم هذه معادلة حساب الأيام =MOD(E4+E6,30) وهذه لحساب الشهور =MOD(F4+F6,12)+QUOTIENT(E4+E6,30) وأخرى لحساب اجمالى السنوات =G4+G6+QUOTIENT(F4+F6,12) وهذا هو ملفك ... بارك الله فيك حساب الترقيات1.xlsx

تفضل هذا الشيت سيفيدك Commission.xls

اضيقي الى القائمة النتسدلة عنصر تحت اسم sum15 و عدلي على الكود كما في الصورة الملف Yara_15_Part_Pos_Neg_All.xlsb

جرب هذا الملف تم وضع الضريبة في خلية مستقلة (B1) ربما طرأ نعديل عليها (افضل من تعديل كل المعادلات) لا يتم نلوين الصف الا اذا اكتملت عناصره ( 8 أعمدة غير فارغة من A الى H ) Fatura.xlsx

اصنع زر امر وضع فيه هذا الكود ..... DoCmd.PrintOut

كان لازم من الأول كده (تعذيل الى هذا السطر) Part_sum = Round((Sum_pos * 0.85) + Sum_Neg, 2) Yara_Exacte.xlsb

تفضل اخي العزيز ارجو ان يكون طليك قاعدة البيانات3.rar

ما أفصدة موجود في هذا الملف الذي يظهر النتيجة نفسها بالنسبة للأعداد (Pos=100,Neg=-10) النتيجة 75 كما تريدين حيث ان Neg هي نفسها سالبة لذلك يجب حمعها وليس طرحها لانه في حال طرحها تصبح -(-10) اي + 10 Explain.xlsx

تفضل هذا التعديل حسب فهمي لطلبك test3.rar

مرفق النسخة الاجنبية اللى هو 123

حسناً استبدل الكود الى Private Sub أمر4_Click() If DLookup("[FATORA_NO]", "[TABOL_1]", "[FATORA_NO ] ='" & Me.FATORA_NO & "'") Then MsgBox "الرقم مكرر" Exit Sub Else DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE TABOL_1 SET TABOL_1.FATORA_NO = [Forms]![FORMS_1]![FATORA_NO];" DoCmd.SetWarnings True MsgBox "تم" End If End Sub واذا اردت رسالة تنبيه فقط استخدم الكود التالي Private Sub أمر4_Click() If DLookup("[FATORA_NO]", "[TABOL_1]", "[ID_NO] ='" & Me.FATORA_NO & "'") Then MsgBox "الرقم مكرر" Exit Sub End If End Sub test1.rar تحياتي

معذرة هل تقصد FATORA_NO ارجو التوضيح بارك الله فيك تحياتي

وعليكم السلام ورحمة الله وبركاته انظر اخي الكريم هل هذا هو المطلوب test1.rar تحياتي

تفضل اخي الكريم Database114.rar تحياتي

اخي الكريم تفضل هذا المثال اخي الكريم لقد شرحت فيه جميع الاجراءات في داخل الكود المثال سهل للغاية MyImage.zip

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

السلام عليكم اولا تم تنفيذ الكود لجميع اوراق الملف مع عدم مسح السابق ولكن لا ادري ........هل هذا ما تريده ؟؟ المرفق 2003 12345.rar