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

بسم الله الرحمن الرحيم ( رَبَّنَا آتِنَا مِن لَّدُنكَ رَحْمَةً وَهَيِّئْ لَنَا مِنْ أَمْرِنَا رَشَدًا ) تحياتى و ايام مباركه ايام مبشره و هموم راحله يا الله هديتى لكل اعضاء المنتدى برنامج دليل حسابات و مخازن ECO2_DuClick_store مميزات البرنامج ( يمكن تطويعه لاستخدامات اخرى ) كود رقم الصنف تلقائى ارصدة الاصناف تلقائى فورم بحث و اضافه استخراج رصيد حركة الصنف بين تاريخين سهولة البحث عن البنود / الاصناف عند الادخال بحركة اليوميه سهولة التنقل بين الصفحات كود طباعة كارت الصنف و ارصدة الاصناف مع تحياتى و تقديرى للجميع مجرد شخبطه على الحيط مما تعلمته من المنتدى البرنامج مفتوح المصدر للجميع للاستفاده من الاكواد و المعادلات يمكن التعديل عليه لزيادة نطاق الصفوف بسحب المعادلات يمكن استخدامه للافراد و للشركات مرفق البرنامج مع الشرح لاتنسونا من صالح الدعاء ECO2_DuClick_store.rar

بعد اذن استاذنا الفاضل أبو خليل انسخ الملف الى المسار التالي C:\WINDOWS\SYSWOW64 ثم افتح Command كمدير للنظام ( Run as administrator) ثم اضف الامر التالي regsvr32 C:\Windows\SysWOW64\MSCOMCTL.OCX تحياتي

السلام عليكم ورحمة الله تعالى وبركاته اولا اعتذر جدا جدا جدا عن التاخير عليكم انا فى العمل ومشغول جدا جدا جدا جدا جدا حتى اننى لم انم منذ الأمس حتى الان انظر الى هذا المرفق ان شاء الله تعالى وستجد فيه ما يسرك ويسر السائلين والناظرين واعتذر مقدما ان وجدت بعض الاخطاء يعلم الله تعالى كم انشغالى فى عملى ولكن حاولت سريعا ان اقدم المساعدة واهداء خاص جدا جدا الى اخيى الحبيب الاستاذ @qathi اسال الله تعالى الرحمة والعفو والغفران والقبول فى اعلى درجات الجنان لوالديكم ووالدى كل استاذتنا الكرام الذين تعلمنا ولازلنا نتعلم وننهل من علمهم وكل المسلين ان شاء الله واياكم والدى ان شاء الله اهدى ثمرة هذا العمل المتواضع اليكم فكنتم الاساس لمد يد العون لاخينا الحبيب @Ali.Mohammed وان شاء الله اركم قريبا جدا ونظرا لانى كثير الاسفار فى تلك الاونة قد لا استطيع الدخول كثيرا لذا انتهيت من التطوير والتعديلات على عجل اسال الله تعالى ان يكون فيها النفع والخير وقطعا لا انسي اخى وحبيبى الدكتور @حلبي من تقديم هذا العمل اهداء له ايضا فأحسست من متابعته للموضوع انه شغوف بهذه الافكار احبكم فى الله واستودعكم الله تعالى PIC.zip

وعليكم السلام تفضل Test2.xlsx

تحيه لكل من شارك و بنى لبنه فى هذا المنتدى حتى و لو بكلمة شكر و كل الشكر لاعضاء المنتدى على هذا البناء الشامخ و هو ملك لكل من اراد ان يتعلم حرفا

اعرض الملف برنامج ادارة مكتبة ادوات مدرسية والعاب برنامج ادارة مكتبة ادوات مدرسية والعاب طبعا قبل فتح البرنامج خفف امان الماكرو فى الاكسس ليعمل بصورة جيدة صاحب الملف بحار الاكسس تمت الاضافه 02 ماي, 2016 الاقسام قسم الأكسيس

الف شكر استاذى الغالي جعله الله في ميزان حسناتك الف شكر استاذى الغالي جعله الله في ميزان حسناتك

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

اخي الكريم ثم عمل مثال نتمنى ان يكون هو المطلوب مثال بدون اكواد شعارنا البساطة فرز السجلات للفورم.rar

بعد اذن الأستاذ عصام ولإثراء الموضوع تفضل Test3و1.xlsx

تفضل.. ان شاء الله يكون هذا المطلوب Test3.xlsx

أحسنت استاذى الكريم بارك الله فيك عمل رائع

رسالة تنبيه عند تغير الوقت.xlsm

نعم هذا الملف نسخته لك من جهازي الوندز عندي 32 بت هذا الرابط فيه عدة اصدارات من هذا الملف .. لعلك تجد بغيتك .. وعذرا لم يسبق لي ان مررت بمثل هذه المسألة

استخدم الكود التالى فى مديول Sub Emad() Dim i, lastrow As Long lastrow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row 'غير الشيت إلى الشيت الذى تريده For i = 1 To lastrow ' غير ال 1 الى رقم الصف الذى تريده If Cells(i, 1) = Date - 10 Then 'غير ال 1 الى رقم العمود الذى تريده وغير ال 10 الى الرقم الذى تريده يظهر تنبيه قبله هنا هيظهر التنبيه قبل التاريخ ب 10 ايام MsgBox "لقد قاربت الاجازة على الانتهاء" ' أكتب الرسالة التى تودها فوق Cells(i, 1).Interior.ColorIndex = 3 'هذا الكود لتلوين الخلية Else Cells(i, 1).Interior.ColorIndex = xlNone ' هذا لإلغاء التلوين فى حالة تغير التاريخ End If Next End Sub وضع هذ الكود فى workbook Private Sub Workbook_Open() Call Emad End Sub وهذا معناه عند فتح ملف الاكسل يظهرلك رسالة التنبيه

عمل جيد جدااا بس كنت اطمع انة يكون كود

لنظام وندوز 32 المكتبة هي : MSCOMCTL.OCX ولاحظ انها تحتاج تسجيل MSCOMCTL.rar

السلام عليكم ورحمة الله وبركاته اولا بعد اذن الاستاذ الكريم @qathi قمت ببعد التعديلات الطفيفة جدا PIC.mdb

تفضل سيفيد هذا الملف في عملك... عمل الملف بالتالي: أولاً: يتم ادخال الاسم ثانياً: الضغط على زر أضافة يتم أنشاء مجلد لأول مرة باسم image في نفس مسار ملف الاكسس وبعد أختيار الصورة يتم نسخ الصورة بالمجلد image بنفس الاسم التي تم أضافته ويتم تخزين المسار الجديد للصورة بالجدول وهذ الكود المضاف في زر اضافة On Error Resume Next Dim fs, cf, strFolder strFolder = CurrentProject.Path & "\" & "Image" Set fs = CreateObject("Scripting.FileSystemObject") If fs.FolderExists(strFolder) = False Then Set cf = fs.CreateFolder(strFolder) If fs.FolderExists(strFolder) = True Then MsgBox "'" & strFolder & "' تم انشاء المجلد في المسار التالي " Else MsgBox "'" & strFolder & "'لم يتم انشاء المجلد" End If End If ' Requires reference to Microsoft Office 14.0 Object Library. Dim fso As Object Set fso = CreateObject("scripting.filesystemobject") Dim fDialog As Office.FileDialog Dim varFile As Variant Dim destpath As Variant ' Clear listbox contents. Me.picfile = "" ' Set up the File Dialog. Set fDialog = Application.FileDialog(msoFileDialogFilePicker) With fDialog ' Allow user to make multiple selections in dialog box .AllowMultiSelect = False ' Set the title of the dialog box. .Title = "رجاءً قم بتحديد مكان الصورة" ' Clear out the current filters, and add our own. .Filters.Clear .Filters.add "png image", "*.png" .Filters.add "jpg image", "*.jpg" .Filters.add "jpeg image", "*.jpeg" .Filters.add "All Files", "*.*" If .Show = True Then For Each varFile In .SelectedItems destpath = Application.CurrentProject.Path & "\" & "Image" & "\" & Me.NameS & "f." & Right$(varFile, Len(varFile) - InStrRev(varFile, ".")) FileCopy varFile, destpath Me.picfile = destpath Me.Refresh Next Else MsgBox "You clicked Cancel in the file dialog box." End If End With Exit Sub err: MsgBox err.Description & " " & err.Number ============= أن أفادك .. فدعوة لي ولوالدي مرفق الملف: PName.rar

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

شاهد المرفق الكود Function RESULTA(rng As Range) As String Application.Volatile Dim c As Integer Dim r As Integer Dim str As String Dim subj As String c = rng.Column r = rng.Row subj = Cells(2, c - 3).Text str = "راسب في مادة " & subj & " " If Cells(r, c) = "غ" Then str = str & "بسبب غيابه في العملي و" If Cells(r, c + 1) = "غ" Then str = str & "بسبب غيابه في التحريري و" If Cells(r, c) < Cells(9, c) Then str = str & "لعدم حصوله علي ربع الدرجة في العملي و" If Cells(r, c + 1) < Cells(9, c + 1) Then str = str & "لعدم حصوله علي ربع الدرجة في التحريري و" If Cells(r, c + 2) < Cells(9, c + 2) Then str = str & "لعدم حصوله علي ربع الدرجة في الكلية و" str = Left(str, Len(str) - 2) If Len(str) < 20 Then str = "ناجح" RESULTA = str End Function المصنف1.xlsm

انت ممكن تعدل الصياغة زى ما تحب تانى حاجة ايه فكرة انك تقوله انت مثلا غايب فى العملى و الدرجة الكلية يعنى لو كان مجموعه الكلى 18 من 20 وغايب فى العملى يعتبر برضه راسب على حسب ما انت شرحت فانا كتبت السبب الاساسى من وجهة نظرى وانت ممكن ترفع ملف وتكتب فيه الصياغات اللى عاوزها وهيتم مساعدتك فيها لان مش كلنا بنفهم فى موضوع التدريس والكنترول

السلام عليكم ورحمه الله وبركاته مرفق طيه برنامج صلاحيات المستخدمين الإصدار 3 حيث تم زيادة بعض الخصائص به تتيح حريه اكبر في التعامل مع الملف وقبل اى شيء فلولا أساتذة هذا المنتدى العظيم ما كان لهذا البرنامج ان يظهر او يتطور فمنهم وجدت الدعم ومنهم تعلمت ولا زلت طالبا مبتدئا انهل من علمهم الغزير وفقهم الله وبارك في جهدهم وجعله علم صالح ينتفع به --- اللهم امين اسماء الدخول على البرناج الدعم الفنى - كلمه السر 1111 مستخدم 1 - كلمه السر 2222 شرح بسيط للبرنامج وامكانياته وما هو الجديد عليه تعتمد فكرة البرنامج على اضافه عدة مستويات للصلاحيات على الملف فهو كقالب تقوم بادراج الصفحات التي ترغب بادراتها فيه ويتعرف عليها تلقائيا بمجرد إعادة فتح الملف المستخدم باسم الدعم الفني هو الادمن لهذا الملف وقد تم ربط كافه الصلاحيات بالباسورد الخاصه به مستوى الصلاحيه على الصفحه 4 مستويات مشاهدة فقط ---- للاطلاع فقط دون التعديل مخفى ---- لاخفاء الصفحه عن هذا المستخدم مدخل بيانات - لتحديد أعمدة معينه يتم التعديل عليها وباقى المستند غير متاح وذلك من خلال وضع حرف T في اول خليه اعلى العمود كما يابصفحه 2 وجرب الدخول بالمستخدم 1 ستحلاظ ان صفحه واحد للمشاهدة فقط وصفحه 2 تم تحديد صفه مدخل بيانات ويتم التعديل فقط فى الاعمدة التى تعلوها حرف T ويمكنك اخفاء هذا الضف عن اعين المستخدم ويعمل بشكل طبيعي مشاهدة وتعديل -- هي صلاحيات كامله على الصفحه يمكنك تحديد اى من هذه الصلاحيات لكل صفحه منفصله عن الأخرى لكل مستخدم بصورة منفصله وذلك من خلال الاتى في شاشه الدخول ضع الدعم الفني واكتب كلمه السر وهى 1111 ولا تضغط دخول اى ستجد ان ازار تم تفعليها - اضغط على زر تعديل صلاحيات واختار المستخدم من الكومبوبكس وستجد صلاحياته تظهر اسفل منها افتح كل قائمه وحدد الصلاحيه التي ترغبها لكل مستخدم مع مراعاة ان تكون كلها مشاهدة وتعديل للمستخدم الدعم الفنى يظهر اسفل الفورم اربعه اختيارات وهى الجميع مخفى - الجميع مشاهدة وتعديل - الجميع مشاهدة فقط - الجميع مدخل بيانات ( هذه الاختيارات فقط لتساعدك في ملىء صلاحيات الصفحات حيث تختار ما يغلب على الصلاحيه للمستخدم وتقوم بتعديل الاستثناء فقط مع ملاحظه انه لا يتم التفعيل الا بعد الضغط على زر الحفظ وفى حاله الضغط على زر اضافه مستخدم جديد فانه يجب أولا تسجيل الاسم وكلمه السر الافتراضيه والضغط على زر اضافه مستخدم سيفتح فورم إعطاء الصلاحيات ومن ثم تحدد كما بالخطوة السابقه ملحوظه - كلمات السر يجب ان تكون ارقام فقط - حيث وضع هذا الشرط لعدم تعقيد كلمه السر والدخول في حساسيه الحروف واللغه -- وهكذا يظهر زر اخر فيه تعديل بيانات المستخدمين وحيث يمكنك تعديل اسم مستخدم او حذفه من البرنامج كما يمكنك اظهار أسماء المستخدمين وكلمات السر من خلال وضع علامه صح وسيظهر شاشه لادخال كلمه السر وهنا ضع كلمه سر الدعم افنى سيظهر كومبوبكس فيه أسماء المستخدمين وكلمات السر بجانب كل منهم كل هذه الأشياء يتم التعامل معها قبل الدخول على البرنامج من الشاشه الافتتاحيه وبعد الدخول الى البرنامج توجد بعض الخصائص امكانيه تعديل كلمه السر للمستخدم التنقل بين الصفحات من خلال زر التنقل يقوم البرنامج بعمل حفظ تلقائي عند الخروج حتى لو لم تقوم بالحفظ ما هو الجديد في هذا الإصدار زر صلاحيات اضافيه وفيه الخصائص التاليه امكانيه احضار صفحات من خارج الملف وارفاقها امكانيه نسخ الصفحات المضافه وحفظها في ملفات منفصله لكل منها حذف الصفحات من الملف ترتيب الصفحات تصاعديا وتنازليا فك حمايه المستند وتفعيل الحمايه اظهار واخفاء اشرطه الأدوات للاكسيل المثال المرفق : مستخدم 1 بكلمه سر 2222 صلاحياته هي صفحه رقم 1 مشاهده فقط صفحه رقم 2 - مدخل بيانات -- يمكن الكتابه فقط في الاعمدة التي في اعلاها حرف T صفحه رقم 3 مشاهدة وتعديل باقى الصفحات من 4 الى 7 مخفيه عن مستخدم 1 والكل يظهر مع مستخدم الدعم الفني يجب مراعاة ان صفحه MYDATE يجب ان تكون مخفيه عن جميع المستخدمين نظرا لانه يتم تخزين أسماء المستخدمين وكلمات السر والصلاحيات على الصفحات في هذه الصفحه تلاحظ ان يتم تحديد صفحه MYACCOUNT بصفه مخفى ولكنها تظهر مع المستخدم العادى وذلك فقط اذا حددتها مشاهدة وتعديل فانك ستعطى لهذا المستخدم صلاحيه اضافه مستخدم جديد فقط دون باقى صلاحيات الدعم الفني التي تكون في الفورم الرئيسي برنامج صلاحيات المستخدمين اصدار 3.rar

السلام عليكم امثلة على طباعة السجل من (فورم ادخال وتعديل وبحث) الاصدار الثالث http://www.officena.net/ib/index.php?showtopic=51955 هذه ثلاثه امثله مختلفة في المرفق 1 - طباعة في مصنف جديد او من خلال الفورم اذا كانت الشاشة تظهر جميع بيانات السجل 2 - طباعة الى ورقة معينة في الملف حسب تنسيق معين لجميع بيانات السجل 3 - طباعة الى ورقة معينة في الملف حسب تنسيق معين لبعض بيانات السجل المرفقات 2003 فورم ادخال و تعديل مرن مع الطباعة 1.rar

أستاااااااااااااااااااذ يا مستر ياسر ربنا يخليك لينا هههههههههههه

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

اخوي الخطأ في الكود في ddd لابد ان تكون اربعdddd اخوي من خصائص الحقل روح على Format او تنسيق واكتب التالي dddd dd/mm/yyyy