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

برنامج مجاني من اعداد مايكروسوفت اوفيس اكيد رح نستفيد منه نتعرف على بعض الاكواد مشاريع.accdb

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

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي Math.rar

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي Graphic.rar

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي Files.rar

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي Database.rar

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

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

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

استاذي الفاضل ابا جودي بارك الله فيك وجزاك الله خيرا احسنت ربي يحميك من كل شر يار ب يارب

استخدم هذه الطريقة على windos7 و windos10 مع Acciss 2007 و 2010 على اكثر من 10 اجهزة والنتيجة ممتازة :: بالتوفيق::

بارك الله فيك وجزاك الله كل خير وجعله الله فى ميزان حسناتك

امممممممم انا لم افهم السؤال فى البداية والان اتضح الامر والمطلوب هو تقريب المنازل العشرية والدالة التى تستخدم فى التقريب لاقرب رقم صحيح Roud([Field],x) حيث ان x هو عدد المنازل العشرية التى تريدها وان اردت التقريب الى اصغر رقم صحيح تكون الدالة بهذا الشكل Int([Field])

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

بارك الله فيك استاذي الفاضل kanory وجزاك الله خيرا

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

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

تفضل استاذى احتساب نهايات الخدمة-3.xlsx

شكراً ربي اشرح صدره ونور دبه

في البداية عرف جملة من المتغيرات أي حدد لرمز وضعه نوعاً و ذلك لتوفير استهلاك الذاكرة الآن حدد ماهية كل من الرموز التي ذكرها حدد الشروط التالية : إذا كان v غير رقمي أو خالياً أو أكبر من ٤ امحُ محتويات المجال الذي يبدأبالخلية B14 و يمتد ٦ صفوف و ٤ أعمدة ثم أنهِ الكود . إذا لم تتحقق الشروط إذا اجعل قيمة المتغير r = (v * 6) + 5 و اجعل R رقم الصف للخلية A في الورقة S واجعل قيمة المجال b14 الممتد لأربعة أعمدة و ستة صفوف و الموجود في الورقة t مساوياً للقيم في المجال A و امتداده أي رحل من المجال A و امتداده إلى B و امتداده ثم End sub و التي تعني إغلاق الكود .

السلام عليكم اخواني الكرام عندما اقوم بانشاء صيغة معينة اريد ان يكون احد عناصرها ثابتا لا يتغيير عند سحب الخلية للاسفل =IF([@العملة]="ليرة تركية";[@[رصيد نهائي مدين]]/'التقرير المجمل'!A3;0) اريد مثلا عند سحب هذه الصيغة الى الاسفل لتطبيقها على كل بيانات الجدول تبقى الخلية A3 ثابتة ولا تتأثر بعملية السحب بحيث تبقى هي بعبارة اخرى عندي جدول فيه ارقام لعملات متعددة اريد تحويلها الى الدولار بحيث اضع سعر الصرف في الخلية A3 واقوم بعملية الضرب

السلام عليكم حدد اسم الخلية في الصيغة ثم اضغط F4 أعد الضغط بحال أردت تغيير نمط التثبيت أو بطريقة ثانية ضع إشارة الدولار إلى يسار الحرف لتثبيت العمود أو إلى يسار الرقم إذا أردت تثبيت الصف أو ضع كليهما إذا أردت تثبيت الخلية . إشارة الدولار Shift + 8

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

وعليكم السلام اخى الكريم وكل عام وانتم بخير ورمضان مبارك تفضل لك ما طلبت تحيل_النتيجة_تيرم_ثان_ 2).rar

اemp.raremp.rarلسلام عليكم ورحمة الله وبركاته احب ان اسجل اعجابي بالمنتدي فطالما استفدت جدا من مشاركات السادة الاعضاء وببعض البرامج التي تم التعديل عليها لتواكب ظروف العمل لقد وفقت اثناء بحثي بالمنتدى في الحصول على برنامج لشئون الموظفين تصميم الاستاذ احمد بكر ولكن رجائي من حضراتكم ومن الاستاذ احمد بكر بالسماح بالتعديل على البرنامج بما يتوافق مع شئون موظفين بمصر داخل مصلحة حكومية لذا الرجاء تغيير البيانات بالفورم وكذلك بملف الترحيل كما يلي بيانات الموظف رقم الموظف - اسم الموظف - الرقم القومي - محل الاقامة - رقم التليفون - المؤهل الدراسي - تاريخ الحصول على المؤهل بيانات الوظيفة الوظيفة - الادارة التابع لها - تاريخ التعيين - تاريخ استلام العمل - الدرجة الوظيفية - تاريخ الحصول على الدرجة - تاريخ اخر ترقية بيانات موقع العمل مكان العمل - عنوان مكان العمل - تليفون مكان العمل - فترة العمل الاجازات نوع الاجازة " عارضة - اعتيادي - انقطاع - مرضي " - تاريخ بدء الاجازة - تاريخ انتهاء الاجازة - مدة الاجازة - الرصيد الباقي الجزاءات نوع الجزاء - سبب الجزاء - العقوبة - رقم كتاب العقوبة - تاريخ العقوبة

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

أخي أبا جودي هدية جميلة مختصرة .... شكرا لك

تفضل اخى الكريم احتساب نهايات الخدمة-2.xlsx

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

اليك هذه المعادلة لهذا الامر =SUMPRODUCT(--($D$3:$O$3=P$3)*ISNUMBER($D4:$O4)) تكتبها في الخلية P4 وتسحب يساراً عامود واحد ثم نزولاًاُ

تفضل اخى الكريم دالة لجلب التعليقات Comment من خلية الى خلية أخرى.xlsm

هذا ممكن عن طريق الكود التالي مثلا اذا كانت الخلية المطلوبة A1 Sub HeaderFrom() Dim HeaderCell As Range On Error Resume Next Set HeaderCell = Application.Selection.Range("A1") Application.ActiveSheet.PageSetup.LeftHeader = HeaderCell.Range("A1").Value End Sub الماكرو السابق يحتاج للتشغيل اي لا يعمل اليا و يوضع فى موديول و يمكن جعل التعديل اليا بوضع الحدث عند حدوث اي تغيير فى الصفحة مثلا مثلا هذا الكود ينقل محتوى الخلية B1 فى الجزء الايمن لرأس الصفحة و الايسر لتذييها ايضا عند حدوث اي تغيير فى ورقة العمل و هو يوضع فى ورقة العمل نفسها ويمكن حذف احد السطرين بحسب رغبتك Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) ActiveSheet.PageSetup.LeftFooter = Range("B1").Text ActiveSheet.PageSetup.RightHeader = Range("B1").Text End Sub مرفق ملف به الكودان Add Cell to Header.xlsm

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

جرب المرفق التالي عملت بعض التعديلات على جداول الموظفين والطفايات قسم الامن - 2.zip

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

بارك الله فيك وجعله في ميزان حسناتك استاذنا الفاضل

اخى الكريم البرنامج فيه مشكلة ولا يحمل وهذه صورة الرسالة التى تظهر

تفضل المرفق أخي الفاضل ويمكن أن تغير النسبة المئوية كما تريد Microsoft Office Excel Worksheet جديد _(3)_.rar

حسناً.. قمت بعمل نموذجين الأول لإنشاء الجدول.. مع إنشاء حقلين للبيانات الحقل الأول: بيانات رقمية صحيحة طويلة تعداد تلقائي الحقل الثاني: بيانات نصية بطول 20 حرف. الثاني لإضافة أو تعديل عنوان الحقل لجدول تم نأسيسه. مربعات التحرير والسرد لتسهيل الإجراء :: إليك المرفق:اشاء.accdb أهلا بك أستاذ عبدالله.. بما أنه يمكن إنشاء الجداول مع صيغة ACCDE فيمكن إنشاء وتعديل الجدول عن طريق الشفرة. يمكن ذلك عن طريق الاتصال بقاعدة البيانات المرتبطة عن طريق الشفرة بالصيغة التالية Option Compare Database Option Explicit Dim DB As DAO.Database Dim TDF As DAO.TableDef Set DB = OpenDatabase(REMOTE_DATABASE) Set TDF = DB.CreateTableDef(TABLE_NAME) '... AND SO ON........... تقبل الله منا ومنكم.. آمين

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

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي Printing.rar

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي Multimedia.rar

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي Miscellaneous.rar

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي Internet.rar

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي Forms.rar

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي Components.rar

السلام عليكم ورحمة الله وبركاته معكم المبرمج : مناد سفيان اليوم سأقدم لك أكواد الدالفي فقط الدعاء لي ActiveX.rar

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

الاخ / أحمــــد غانـــم جرب الملق المرفق الاخ / ابراهيم ارفق الملف لتحديد المشكلة age1.rar

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