نجوم المشاركات
(1).thumb.gif.3369bc21e7688379f05218e4ca64e807.gif)
Popular Content
Showing content with the highest reputation on 08 نوف, 2023 in all areas
-
اخي الكريم @rhmano البرنامج فتح معي المشكلة في برامج الحماية هي من تمنع الوصول للبرنامج بعد ان وضعت اسم البرنامج في قائمة الامان في برنامج الحماية فتح البرنامج بدون اي مشكلة وهذه بعض الصور من برنامجك. ممكن في بعض برامج الحماية لا تظهر لك اي رسالة. بالتوفيق
3 points -
السلام عليكم اخي @زياد الحسناوي لاحظت انك غير مستقر على برنامج معين؟ اتمنى ان تضع ملفك الخاص هنا ونعمل عليه بالنسبة للارشفة الالكترونية انا اعمل عليها منذ سنوات وطريقتي بالعمل سابقا كالاتي: اقوم بحفظ الملف بالحاسوب ومن ثم اقوم بنقله لقاعدة البيانات - اذا كان الملف المراد ارشفته كتاب واحد اقوم بحفظه صورة jpg - اذا كان الملف به مرفقات اقوم بحفظه pdf علما اني احفظ الكتاب رقم الكتاب+ تاريخه+ موضوع الكتاب+وصف للكتاب حتى لايتكرر عندي استخدمت حاليا برنامج وسيط (irfanview)) ليقوم بعمل سكانر مباشرة لقاعدة البيانات بمساعدة الاستاذ الفاضل @ابوخليل جزاه الله خير الجزاء انتظر ردك تحياتي2 points
-
تفضلي أستاذة @عبق الرياحيين محاولتي بالمرفق بطريقتان : 1- الزر (On Form1) . طريقة قديمة 2- الزر (On Form2) . بيفتح فورم 2 وبينشأ طلبك به وأذا أردتة تزويد أو تقليل 50 تكست بوكس مشروح دالك بمحرر الأكواد فورم1 . DD400.accdb2 points
-
اتفضلى على فرض ان اسم النموذج هو Test Sub RenameFields() Dim frm As Form Dim ctrl As Control Dim fieldCount As Integer fieldCount = 1 'السطر التالى اختياري الغرض منه لكي يعمل الكود دون مشاكل لابد ان يكون النموذج المطلوب العمل عليه فى وضع عرض التصميم DoCmd.OpenForm "TEST", acDesign Set frm = Forms("Test") For Each ctrl In frm.Controls If ctrl.ControlType = acTextBox And ctrl.Tag = "*" Then ctrl.Name = "officena" & Format(fieldCount, "00") fieldCount = fieldCount + 1 End If Next ctrl End Sub ملاحظه علشان يشتغل الكود صحيح لابد ان يكون النموذج المطلوب العمل عليه فى وضع عرض التصميم2 points
-
جرب الحل هذا تم عمل مديول Function CalcVac(WorkDays As Double, EmpAge As Integer) WorkDays = WorkDays / 365 If EmpAge < 50 Then WorkDays = WorkDays * 21 Else WorkDays = WorkDays * 30 End If CalcVac = Format(WorkDays, "0.00") End Function ولحساب عمر الموظف =DateDiff("yyyy";[DateOfBirth];Date()) ولاستدعاء الدالة CalcVac(D2, txtAge) 'CalcVac("اسم حقل اجمالى ايام العمل", "اسم حقل عمر الموظف") وهذه هى النتيجة مرفق الملف VACATIONS-1.rar2 points
-
Version 1.0.0
481 تنزيل
برنامج الأرشيف الألكترونى للملفات الصادرة والواردة ومحاضر اجتماع وعرض الملفات بطريقة الصحف عن أى شيىء وكل شيىء ويوجد بالبرنامج طريقة جديدة لعرض المرفقات المرتبطة مع السجل الحالى فقط أرجو من الأخوة الأفاضل التكرم بالتجربة والاطلاع والتقييم والتحسين أن أمكن الاستاذة الأفاضل البرنامج يشمل أعمال كاملة (المهمات الأساسية + نسخ احتياطية - حفظ المستندات خارج القاعدة - نسخ الملفات ونقلها من وألى الجهاز لأى مكان تختاره - امكانية اخفاء المرفقات واضهارها ....الخ ويشمل اعمال تحت التنفيذ (ادخال محاضر - وملفات متنوعة - تحكم بألوان النماذج وتغيير لها بضغطة واحدة ملحوظة هامة يجب الحاق المكتبات كما بالصورة المرفقة وتحميل برنامج اكروبات ريدر للسماح بالمكتبات بالاضافة والتمكين الباسورد تنحصر برقم 0000 لأى اختيار برجاء التقييم ووضع تعليق يتضمن اصدار الويندوز والأفيس الملف بحجم 2.90 MB وضعته على الميديا فير كما نصحنى رفاق المنتدى والاساتذة به وكل الشكر للاستاذ أبا جودى على الرابط التالى https://www.mediafire.com/file/gvp38c8299mk7yy/Data+Zero.rar/file1 point -
تم حل الموضوع والحمدلله و موضوع الارشفة عندي جدا معقدة وليست كما يتصوره البعض وذلك للتشعب الحاصل بانواع المراسلات اما بخصوص البرنامج للسكنر فتم حل المشكلة وجميع الكتب بصيفة الpdf ومن السكنر مباشرة والحمدلله جاري اضافة اللمسات الاخيرة للبرنامج1 point
-
بدلى التسميه فى النموذج وان شاء الله تشتغل او بكره ان شاء الله لاني دلوقتي والله ما شايف قدامي1 point
-
اخي الكريم ابن الاكرمين @عمر ضاحى عجزت الكلمات ان توفيك حقك وشكرك مش عارف اشكرك ازاي والله انا بجد عاجز عن شكرك اشكرك اشكرك اشكرك جزاك الله خيرا1 point
-
استبدل المعادلة ال انت عاملها بالمعادلة ال انا مديهالك واجعلها هكذا CalcVac(DateDiff("d";[Date_jop];Date());DateDiff("yyyy";[DateOfBirth];Date())) زان شاء الله هتظبط معاك VACATIONS22.rar1 point
-
هذه معادله @أ / محمد صالح =IF(C7/360>5;75+(CEILING(C7/360;1)-5)*30;CEILING(C7/360;1)*15) والثانيه =IF(C7/360>5;75+(CEILING(C7/360;1)-5)*30;CEILING(C7/360;1)*15)*C3/301 point
-
تمام ربنا يوفقك لكن فى نقطه حابب انبهك لها هناك بعض التسميات خاصه بالاكسيس لا يقبلها الاكسيس لانها تتعارض مع مسمياته الخاصه مثل انك تسمي حقل باسم Date او باسم Sub هى مسميات خاصه وممكن تسبب لكي مشاكل برمجيه مستقبلا ولتعم الفائدة هذه قائمة لبعض المسميات المرفوضه (المحظور استخدامها كمسميات منفصله) (التى قد تسبب لكي مشاكل) 1. ADD 2. ALL 3. ALPHANUMERIC 4. APPLICATION 5. BEGIN 6. BY 7. BYTE 8. CANCEL 9. CASCADE 10. COLUMN 11. CURRENCY 12. DATABASE 13. DATE 14. DATETIME 15. DESCRIPTION 16. DOCUMENT 17. DROP 18. END 19. ERROR 20. EXCLUSIVE 21. EXLUSIVE 22. FLOAT 23. GROUP 24. IDENTITY 25. IMAGE 26. LONG 27. MEDIUMBLOB 28. MEDIUMINT 29. MEDIUMTEXT 30. MEMO 31. NUMBER 32. OPERATION 33. OPTION 34. PASSWORD 35. PERCENT 36. RANK 37. REAL 38. RESTRICT 39. SHORT 40. SINGLE 41. SYSCOMPACT 42. TEXT 43. TIME 44. TIMESTAMP 45. UID 46. UNIQUE 47. UNSIGNED 48. UPDATE 49. VERSION 50. YESNO1 point
-
https://www.microsoft.com/en-us/microsoft-365-life-hacks/organization/how-to-create-outlook-email-account تفضل دكتور محمد https://www.microsoft.com/en-us/microsoft-365/outlook/email-and-calendar-software-microsoft-outlook?ocid=cmmidy4nt6n1 point
-
استاذي العزيز @Foksh هذه بعض الصور لقد نجحت في الارسال كما قلت سابقا. لا اعلم لماذا لم تستطيع دمج الجي ميل مع الاوتلوك مع ان الاداة من جوجل وفيها شرج وافي عن عملية الدمج وهي تعمل عندي بدون اي مشاكل. ساذهب للبيت الان وان شاءالله اتابع معكم.
1 point -
وعليكم السلام ورحمه الله وبركاته تفضل جرب هذا التعديل دفتر اليوميه كمال.علي محمد على.xlsx1 point
-
ما عندي مشكلة لكن ادينى شوية علشان انا فى الدوام حاليا1 point
-
تقريبا لاختلاف الفاصلة في جهازك جرب تغيير الفاصلة إلى الفاصلة المنقوطة في المعادلة1 point
-
ابدا والله تحت امرك مفيش تعب ولا حاجه هل هذا ما تريده VACATIONS.rar1 point
-
لا أدري والله بعد كل هذه الحلول ألا يستطيع الأخ صاحب السؤال وضع معادلة If بشرط واحد وليس بشرطين التي علمه إياها الأستاذ محمد حسن؟؟؟ وإذا كانت الإجابة بنعم فأرجو منه أن يتعلم أساسيات الإكسل والمعادلات قبل أن يصمم أية برامج للعمل عليها بالتوفيق1 point
-
السلام عليكم أخي محمد حسن سعر التذكرة ليس ثابت وانما اذا كان مدة تواجد داخل الشركة سنتين او اكثر يستحق سعر تذكرة كامل بنسبة 100% لا تكون 108% كما موضح في الصورة اما اذا كان مدة تواجد اقل من سنتين نسبة التذكرة اقل من 100% ما الحل 100% =سعر التذكرة اي كان سعره اذا كانت مدة التواجد سنتين او اكثر اصغر 100% بمعنى 99% فما دون اذا كانت مدة تواجد سنتين او اكثر سعر التذكرة ليس ثابت وانما على حسب الحجز1 point
-
طيب تمام فين النموذج ال فيه انت بتمنح الاجازة او بيحسب فيها الاجازة1 point
-
وعليكم السلام ورحمة الله تعالى وبركاته أولا أخي أنصحك بالاشتغال على آخر ملف تم تعديله لأنني لاحظت أنك لم تقم بنسخ الأكواد بالطريقة الصحيحة .هناك عدة أخطاء لهذا ستلاحظ عدم اشتغال اكواد الحدف والتعديل وكذلك الاظافة في ورقة 7 2) اما بالنسبة لطلبك الأخير ربما لو حاولت توصيل الفكرة بشكل أفضل سوف يحاول جميع الإخوة مساعدتك .1 point
-
سؤال جانبي مش المفترض ان فى قاعدة اخري ان الموظف اذا عمل فى الشركة اكثر من 5 سنوات يتحول من 21 يوم الى 30 يوم فى السنه ؟1 point
-
السلام عليكم تفضل تم المطلوب endsplash error.xlsm1 point
-
عليكم السلام ورحمة الله وبركاته إذا كان المقصود عدد أيام المكافأة فيمكنك حسابها بهذه المعادلة =IF(C7/360>5,75+(CEILING(C7/360,1)-5)*30,CEILING(C7/360,1)*15) وإذا كان المقصود حساب مكافأة هذه الأيام بناء على راتب الشهر المكتوب يمكنك استعمال هذه المعادلة =IF(C7/360>5,75+(CEILING(C7/360,1)-5)*30,CEILING(C7/360,1)*15)*C3/30 بالتوفيق1 point
-
الحمد الله اتمنى لحضرتك التوفيق1 point
