اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

  1. سليم حاصبيا

    سليم حاصبيا

    أوفيسنا


    • نقاط

      9

    • Posts

      8,723


  2. jjafferr

    jjafferr

    أوفيسنا


    • نقاط

      9

    • Posts

      9,724


  3. Shivan Rekany

    Shivan Rekany

    الخبراء


    • نقاط

      3

    • Posts

      3,490


  4. ياسر خليل أبو البراء

    ياسر خليل أبو البراء

    المشرفين السابقين


    • نقاط

      2

    • Posts

      13,165


Popular Content

Showing content with the highest reputation on 21 فبر, 2017 in all areas

  1. السلام عليكم ورحمة الله وبركاته انا احد الاشخاص الذين لا يحبذ ان يستعمل الكود في تخفيف أمان الاكسس ، فقد وضعته شركة مايكروسوفت في حزمة الاوفيس حتى تحمينا من ايدي المخربين ، وفي هذا الرابط شرحت كيفية عمل مجلد موثوق به للأكسس 2007 فما فوق: http://www.officena.net/ib/topic/66450-دمج-ملف-وتشغيله-قبل-أو-مع-بدء-اكسس/#comment-432363 المشكلة في كود تخفيف الامان ، انه لا يخفض مستوى أمان الاكسس لبرنامجك فقط ، وانما يخفض مستوى أمان جميع برامج الاكسس. ولكننا كمبرمجين لدينا مشكلتنا ، في انه اذا ارسلت برنامجك الى شخص ما ، فلا بد من التواصل معه و اعطاؤه الخطوات كما في الرابط ، وإلا فالبرنامج لن يعمل ، لان البرنامج يشتمل على الماكرو والوحدات النمطية. هنا اقدم لكم طريقة لجعل برنامجي فقط يعمل بمستوى أمان أقل ، فلا تظهر لي رسالة الأمان من الاكسس. العمل كله يدور حول كود ، ويجب حفظ الكود هذا في ملف بصيغة vbs ، والذي يجب ان نفتح برنامجنا عن طريقه. الكود يعمل على برامج الاكسس بصيغة mdb و accdb ، والمفروض ان يعمل على جميع اصدارات الاكسس 2003 فما فوق ، وعلى الاكسس 32بت و64بت (انا هنا اطلب من الشباب تجربته بإصدارات الاكسس التي يعملون عليها ، وإخبارنا بالنتيجة لوسمحتوا). اليكم طريقة العمل (رجاء انزال المرفق وفكه في المسار C:\jj ، وذلك حتى يمكنكم متابعة خطواتي): رجاء وضع البرنامج المرفق Seq.mdb حسب المسار التالي: C:\jj\Seq.mdb الآن اذهب الى المجلد C:\jj وافتح البرنامج Seq.mdb بالنقر المزدوج ، عند فتحه نرى رسالة أمان الاكسس ، وهذا متوقع ، وذلك بسبب انه في مجلد غير موثوق به (رجاء لا تضف هذا المجلد كمجلد أمان ، وانما اخرج من البرنامج). . الملف الآخر المرفق Seq.vbs ، يحتوي على هذا الكود: rem http://www.accessmvp.com/jconrad/accessjunkie/macrosecurity.html rem expression.OpenCurrentDatabase(filepath required, Exclusive optional, bstrPassword optional) dim o set o=createobject ("Access.Application") o.automationsecurity=1 ' set macro security LOW. o.opencurrentdatabase "C:\jj\Seq.mdb" o.usercontrol=true set o=nothing . تستطيع ان تجعله في اي مجلد (ممكن تجرب نسخه منه في اي مجلد شئت) ، وانقر مرتين على هذا الملف بُغية تشغيله ، سترى انه فتح البرنامج Seq.mdb ، وبدون رسالة أمان الاكسس ، وهو المطلوب ------------------------------------------------------------------------------------------------------------------------------------------- هذه الخطوة إضافية ، وهي لتحويل الملف السابق من صيغة vbs الى exe ، واختيار ايقونه للملف الجديد الآن ننتقل للخطوة التالية ، وهي ، اننا لا نريد ان ايقونة vbs ، وانما نريد ايقونه خاصة لبرنامجنا. هناك طريقتين: 1. ايقونة مختصر البرنامج Shortcut: وهي ان نعمل مختصر لملف Seq.vbs ، ولكن وللأسف مختصر ملف vbs يعطينا نفس ايقونة الملف نفسه ، وما عندنا طريقة لتغييرها!! لذلك ، سنعمل مختصر لملف الاكسس ، ونغير البيانات كالصورة التاليه ، بحيث يصبح مختصر ملف vbs يحتوي على ايقونة ملف الاكسس (طبعا يمكنك ان تغير الايقونة الى اي شئ شئت): . . . . وبهذه الطريقة غيّرنا ايقونة برنامج vbs الى ايقونه اخرى مناسبة 2. تحويل ملف vbs الى ملف تنفيذي exe ، وتختار له الايقونة التي تعجبك: رجاء انزال البرنامج المجاني Vbs to Exe من الرابط التالي: http://www.f2ko.de/en/v2e.php احد اسباب اختياري لهذا البرنامج ، اننا نستطيع التحكم به عن طريق Commandline ايضا ثم نتبع الخطوات التالية: ونستطيع ان نعمل لبرنامج vbs هذا كلمة سر كذلك ، . في الخطوة 6 تستطيع ان تكتب معلومات شركتك ، ونختار الايقونه التي نريدها للبرنامج (الخطوة 5) . . وتستطيع ان تجعله على سطح مكتب كمبيوترك الميزة في هذه الطريقة ، ان المستخدم لن يعرف مكان برنامج قاعدة البيانات Seq.mdb ، ولن يعرف الكود الذي كان في Seq.vbs ارجو ممن يضع ردا على الموضوع ، ان يذكر: 1. اذا اشتغل البرنامج على كمبيوتره ، 2. نسخة الاكسس التي يستخدمها. ملاحظة: الظاهر ان بعض متصفحات الانترنت حجبت انزال المرفق Seq.zip ، وذلك بسبب احتوائه على ملف vbs ، والذي يستخدمه الكثيرون لتخريب الكمبيوتر ، لذلك ، ارفق لكم Seq_2.zip والذي يحتوي على نفس ملفات Seq.zip ، ولكني غيرت صيغة الملف Seq.vbs الى Seq.txt . بعد انزال المرفق وفك ملفاته في الكمبيوتر ، رجاء تغيير مسمى الملف Seq.txt الى Seq.vbs جعفر Seq.zip Seq_2.zip
    1 point
  2. السلام عليكم ورحمة الله وبركاته مسقط التصفح : هو برنامج لقراءة صفحة الانترنت ، واستخراج اسماء الحقول ، لإرسال البيانات اليها من برنامج الاكسس ، او استيراد البيانات منها الى الاكسس وبما ان برمجة صفحات الانترنت تختلف من مبرمج الى آخر ، فبرنامجنا لن يشتغل على جميع الصفحات / المواقع ، وبالتجربة فقط نستطيع معرفة الصفحات التي يشتغل عليها البرنامج طريقة العمل: النموذج frm_browse يحتوي على (1) كائن Microsoft Web Browser (والذي لا يحتوي على جميع مكونات البرنامج الاصل Internet Explorer ، ولكنه يفي بالغرض) ، ندخل اسم الموقع في (2) حقل التحرير والسرد url_Address ، ثم نضغط على (3) الزر Go ، والذي سيفتح الموقع في النموذج ، وسيتم حفظ عنوان الصفحة ، واعطائة رقم مسلسل في الجدول tbl_url_address ، الزر (4) "احفظ csv" سيقرأ كائنات الموقع ، ويحفظها في ملف بصيغة csv (اللي ينفتح بالاكسل) ، ثم يفتح الملف ، وفيه 3 طرق لإرسال معلومات الى اي حقل تريد (يعني يعطيك الكود جاهز لكل حقل) ، والافضل استعمال الكود الذي في العمود "Usage2" ، حيث ليست جميع الحقول لها اسماء (للأسف في بعض المواقع) ، الزر (5) "احفظ في الجدول" ، حيث سيحفظ كائنات الموقع في جدول tbl_Send_Get في البرنامج ، والاصعب كان استخراج بيانات حقول التحرير والسرد من الصفحة ، والتي يتم حفظها في الجدول tbl_Options ، ولما يستخلص البرنامج جميع حقول الصفحة ، سيفتح النموذج frm_Send_Get ، الزر (6) "تجربة ارسال ، استيراد بيانات لهذا الموقع" يفتح نفس النموذج frm_Send_Get وبه كائنات الموقع واسماء الحقول (حسب اسمها في البرنامج وليس حسب ظهورها على الموقع ، فالموضوعين غير مرتبطين للأسف في برمجة الموقع) ، هنا نرى الحقول التي استطاع البرنامج التعامل معها ، (8) رقمها المتسلسل في الصفحة (والتي سنتعامل معها برمجيا لاحقا) ، (9) نوع الحقل والذي قد يختلف من صفحة الى اخرى ، (10) اسم الحقل في الصفحة (والتي سنتعامل معها برمجيا لاحقا) ، (يجب ادخال اي اسم في الحقول الفارغة) واذا كان الحقل عبارة عن مربع تحرير وسرد ، وللحصول على قيمه ، انقر على الاسم مرتين ، فينبثق النموذج frm_Options بالاختيارات (تابع الشرح لاحقا) ، هنا نستطيع تجربة اذا كان بإمكاننا ارسال/استرجاع بيانات الى/من الموقع ، فتختار اي حقل تريد التجربة عليه ، وتكتب المعلومة التي تريد ارسالها في الحقل (11) Send_Data وبالنقر المزدوج على المعلومة ، وسترى انه تم ادخالها في الحقل في صفحة الموقع الموقع ، ويمكن التأكد كذلك من امكانية قراءة معلومة الحقل بالنقر المزدوج على الحقل (14) Get_Data ، والمهم في هذه التجارب هو معرفة صيغة قبول الحقل للمعلومة ، بالنسبة لحقول التحرير والسرد وكما اشرت سابقا ، فالموضع يختلف قليلا ، لأنه مثل الاكسس ، فالمعلومة التي تراها في الصفحة في اختيار المعلومة من هذا الحقل ، ليس معناه انها نفس القيمة التي تُحفظ في الجدول ، لذلك يجب عليك النقر المزدوج على الحقل ref_Name ، فيعطيك قائمة الاختيار من النموذج frm_Options ، وبالنقر المزدوج على الحقل Opt_Value ستنتقل المعلومة الى الحقل في Send_Data النموذج frm_Send_Get ، والتي يمكن بالنقر المزدوج عليها ان ترسل المعلومة الى الحقل في الموقع (وهنا قد لا ترى التغير على الحقل في الموقع ، ولكن عندما تنقر عليه لتختار ، ستجد ان الاختيار قد تم حسب رغبتك) ، (12) يجب اختيار اي من الحقول التي تريد ان تستعملها من الموقع ، (13) وهنا تختار تسلسل الحقول التي تريد ارسال البيانات الى صفحة الموقع ، يعني تختار زر الارسال بعد اختيارك لبقية الحقول ، والحقول التي لا يهمك ترتيبها ، فدعها فارغة ، (12) و (13) هما اساس الخطوة التالية ، الى هنا وينتهي العمل مع صفحة الموقع ، والتي نختصرها: ادخل عنوان الصفحة (2) ، اضغط على (5) "احفظ في الجدول" ، جرب اذا الحقول تعمل ، ثم (12) تختار الحقول التي تريد التعامل معها ، و (13) ترتيبها ، الزر (7) "عمل نموذج ارسال ، استراد بيانات لهذا الموقع" ، وسيفتح النموذج frm_Make_Form للصفحة التي انت عليها الآن ، من هنا سيقوم البرنامج بعمل: عمل قاعدة بيانات جديدة (برنامج اكسس) خارجية متكاملة بالاسم والمسار الذي اخترته في (15) ، بالجداول والنماذج وازرار النماذج والاحداث التي على هذه الازرار ، لصفحة الموقع التي اخترتها ، للإرسال والاستيراد ، واذا هذا البرنامج تم عمله سابقا (يعني عندك برنامجك الخاص واسمه ومساره في (15)) ، فسيقوم البرنامج بإضافة الجداول والنماذج وازرار النماذج والاحداث التي على هذه الازرار ، لصفحة الموقع التي اخترتها ، للإرسال والاستيراد ، نختار اين نريد ان نعمل الجداول والنماذج وازرار النماذج والاحداث التي على هذه الازرار ، لصفحة الموقع التي اخترتها ، للإرسال والاستيراد ، الزر (16) يقوم بكل هذا العمل ، قاعدة البيانات / البرنامج الخارجي: افتح النموذج frm_web_Sites ، فيعطيك اسماء الصفحات التي قمت بعملها في (16) ، وهذا نموذج التعامل مع صفحة الموقع ، وجميع الحقول التي اخترتها في (12) موجودة هنا ، وطريقة استخدامه: قم بتعبئة البيانات التي تريد ارسالها للموقع ، واذا كان عندك زر ارسال فيجب عمل صح عليه لإستعماله ، قم بفتح المتصفح بالضغط على الزر "Open Browser" ، والذي سيفتح المتصفح Internet Explorer خارجي ، ولا علاقة لك به ، فالكود سيتعامل معه اضغط على الزر "Send Data" ، وستكون البيانات قد تم تصديرها من نموذجك ودخلت في صفحة الموقع ، او اضغط على الزر "Get Data" ، وستكون البيانات قد تم استيرادها من صفحة الموقع الى نموذجك ، وهذا جزء من الكود الموجود في النموذج ، وسترى ان تسلسل ترتيب ارسال البيانات هو حسب الاختيار في (13) ، وغالبا (99% من الوقت) لن تحتاج الى عمل تغيير في الكود: . الزر (16) فيه تُحف فنية ، فلا تتردد من الدخول في الكود والغوص فيه والخروج بلآلئ فريدة جعفر Muscat_Browsing.zip
    1 point
  3. Version الإصدار الثاني

    3,866 تنزيل

    السلام عيكم ورحمة الله وبركاته اقدم اليكم اخواني الإصدار الثاني من برنامج الالة الحاسبة الة حاسبة تقوم بالتفقيط (باللغة العربية و الانكليزية) وبالعملة التي تريد الاضافات الجديدة مراقبة العمليات الحسابية التي قمت بها و اضافة الجذر التربيعي و التكعيبي و (SIN & Cos & Tan & Cot) شكر خاص للاستاذ أبو هادي ملاحظة : البرنامج مقفل المصدر لانه قيد التجربة ارجوا أن يعجبكم البرنامج كما ارجو ابداء رايكم بصراحة ليتم الوصول البرنامج للشكل النموذجي تم ارفاق نسخة من الاصدار السابق مفتوحة
    1 point
  4. السلام عليكم مثال قديم للأستاذ أبو هاجر لاستخدام الماسح ( السكانر ) عن طريق الأكسس قمت على تحديثه وزيادة السيطرة واستبعاد تخزين مسار الصور حيث لا داعي لها . مرفق ملف مكتبة dll يجب نسخه في مجلد Windows\System . لا تنسونا من دعاكم . تحياتي . الملفات المرفقة Scanner.rar ( 471.28ك ) عدد مرات التنزيل: 38
    1 point
  5. برنامج المخزون و الفواتير الشامل .... الاصدار الثالث اكسيل 2007 - اكسيل 2010 اليوم بمشيئة الله هو الانطلاق الرسمى لهذة النسخه وبعد انتهاء مرحلة التجربة التى دامت اكثر من شهرين خطوات استخدام البرنامج لأول مره تسجيل البيانات الجديدة داخل البرنامج لعمل فواتير البيع و الشراء و الحركات المالية 1- تسجيل اسماء مناديب البيع وهى خطوه مهمه مطلوبة لتسجيل اسم عميل جديد 2- تسجيل و ادخال العملاء (يتم ربط كل عميل باسم مندوب) 3- تسجيل و ادخال الموردين 4- تسجيل و ادخال اسماء لفئة الصنف وهى خطوه مهمه مطلوبة لتسجيل صنف جديد 5- تسجيل و ادخال الاصناف (ولابد من وجود فئة مدخله مسبقا لكى تستطيع ادخال الصنف) 6- ولا تنسى تسجيل رصيد اول المده فى شاشة البيانات و الجرد الجديد فى هذا الاصدار * واجهة تطبيقية كاملة * برنامج كامل مخزون فواتير ذمم عملاء وموردين واستحقاقات خلال الفترات الزمنية المختلفة * اختصارات سريعة لتنفيذ العمليات و التقارير بسرعة عالية * كشف حساب بطريقة جديدة بمعنى نفترض انه هناك عميل ما علية مديونية بفيمة 15000 فالبرنامج يعطيك كشف حساب تفصيلى للمديونية المستحقة خلال فترات 30 يوم 60 يوم 90 يوم و اكثر من 90 يوم فمثلا فى المثال السابق يكون استحقاق المديونية على حسب فواتير العميل مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 و فى اكثر من 90 يوم 2000 فيكون اجمالى المديونية هم ال 15000 لكن الاستحقاق فى فترات مختلفه وهذا الكشف يفيد كل من يتعامل بالاجل لمعرفة المستحق خلال الفترة التى يريدها وعندما يقوم العميل بسداد جزء من المستحق يتم خصمه من المديونية القديمه بمعنى ان العميل فى المثال السابق قد قام بسداد 1500 فيتم خصمها من ال 2000 وهى مديونية الاكثر من 90 فيصبح كشف حسابة كالتالى مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 وفى اكثر من 90 يوم 1500 فيكون اجمالى المديونية هم ال 13500 * شاشة فواتير جديده تحوى الكثير و الكثير من الاختصارات للعملاء و الاصناف وتوصلك الى عدة تقارير بضغطة زر واحده عرض معلومات عن الصنف و رصيده الحالى داخل المستودع و اخر سعر شراء بمجرد اختيارك للصنف وادخاله داخلة الفاتوره سهولة الغاء وتعديل الصنف داخل الفاتورة عن طريق الدبل كليك ذهاب مباشره الى تقرير صنف معين بمجرد اختياره وضغط تقرير الصنف اكتشف المزيد............ *شاشة لتقرير المديونية خلال الفترات الزمنية المختلفة يجب عليك قراءة ومراجعة شرح البرنامج جيدا حيث توجد العديد و العديد من الاختصارات السريعة التي تنقلك من شاشة الى اخرى بسرعه عالية ولتوفير وقتك داخل البرنامج. كما توفر لك سرعة الحصول على المعلومة المطلوبة. * لتحميل نسخة من الشرح وهى عبارة عن ملف تنفيذي اضغط على الرابط التالى شرح برنامج المخزون و الفواتير الشامل( ملف تنفيذى... 6MB رابط خارجى على موقع ميديا فاير) * او الذهاب الى موضوع شرح البرنامج و مناقشات مشرفى و اعضاء المنتدى داخل المنتدى على الرابط التالى شرح برنامج المخزون و الفواتير الشامل(مشاركة داخل المنتدى) كما احببت ان اقدم مناقشة ونصائح مديري و اعضاء المنتدى للبرنامج لكى يستفيد منها الجميع وهذه المواضيع تم مناقشتها في موضوع شرح البرنامج داخل المنتدى انظر المشاركة التالية لمشاهدة النصائح و المناقشات حول البرنامج واخيرا اقدم لكم البرنامج حجم البرنامج 1.2 MB اختر اسم المستخدم المدير كلمة السر 123 محرر الاكواد 85211 لاتترد فى الاستفسار عن اى شيى داخل البرنامج ضع مشاركتك وسوف يتم الرد عليها كما يمكن مراسلتى على الايميل التالى amroomo@gmail.com اخيرا اتمنى ان يكون هذا البرنامج اضافة الى برامج المخزون و الفواتير وتغيير مسارها على الاكسيل فهذا العمل جديد بكل المقاييس فى افكاره التى اتمنى ان اكون قدمتها بصورة جيدة ويستقيد بها الجميع وَقُلْ رَبِّ زِدْنِي عِلْمًا ========================================================= المرفق المحدث الاخير: SIS 3.152 (Add City).rar
    1 point
  6. السلام عليكم ورحمة الله وبركاته أود أن أعرب عن سعادي بالانضمام لهذا المنتدى الرائع بما فيه من أشخاص رائعين. لقد رفعت صورة لبرنامج إدارة مخازن ببرنامج الاكسل صممته بنفسي عن طريق المتابعة على الانترنت والمنتديات، فليست لدى أي خبرة بهذا المجال ولكنني أحتاجه الآن لإدارة مشروع خاص بي. إذا نقرت فوق أي من تلك العناصر فسوف تنقلك إلى الشيت الذي يحمل نفس العنوان عن طريق خاصية هايبرلينك. ولكن المعضلة التي تواجهني الآن هي ما هي المعادلة التي تتيح لي أن أعدل/أغير بيانات سيل في شيت المشتريات مثلاً فيظهر أثر ذلك على شيت المخزون تلقائيًا، أي إذا قمت ببيع 50 قطعة وسجلتها في شيت المشتريات يقل المخزون 50 قطعة تلقائيًا دون تدخل مني. أرجو الإفادة وجزاكم الله خيرًا.
    1 point
  7. السلام عليكم ورحمة الله وبركاته الحمد لله والصلاة والسلام على رسول الله وعلى اله واصحابه اجمعين. ========================================================================================================================= اليكم ملف اكسيل حسابات عامه من قيود اليومية وحتى الميزانيه لشركات المقاولات -مع انى لم اعمل فى نشاط المقاولات -بشكل خاص وجميع الانشطة بشكل عام مع تعديل دليل الحسابات . وهذا الملف ربما سيكون الاخير لى فى 2014 نظرا لضغوط العمل . واطلب من الجميع الا ينسانى فى دعاؤه . باسوورد محرر الاكواد 12345 وايضا باسورد الحمايه للمعادلات . اصدار الاوفيس من 2007 وحتى اخر اصدار . ========================================================================================================================= ماعليك الا ادخال قيد اليومية فقط والضغط على زر الترحيل ========================================================================================================================= استخدمت فى البرنامج الاكواد والمعادلات والpivottable واشكال بيانيه فى التنسيقات الشرطيه وادمجت معادلات فى الاشكال البيانيه ========================================================================================================================= لاتنسونا بصالح دعاؤكم ملف المقاولات الاصدار الاول تجريبى.rar
    1 point
  8. انا اصلحت جزء المسار فقط \\192.168.20.1 جرب الكود كالتالي ، واقرأ النتيجة التي سيكتبها عند فتح نافذة التنفيذ السوداء cmd ، وقد تحتاج الى كبس زر Print Screen لعمل نسخة منه قبل ان تُغلق النافذة: Call Shell("xcopy /y \\192.168.20.1\123.mdb C:\Users\" & Environ("Username") & "\Desktop\123.mdb", NormalFocus) جعفر
    1 point
  9. ممتاز ، هذا هو طرف الخيط المطلوب جعفر
    1 point
  10. جرب Call Shell("xcopy /y \\192.168.20.1\123.mdb C:\Users\" & Environ("Username") & "\Desktop\123.mdb", 1) جعفر
    1 point
  11. نرحب بالأخ صالح حمادي فى فريق الموقع أهلا وسهلا
    1 point
  12. الله يبارك فيك صديقي العزيز ابا جودي
    1 point
  13. الف الف الف مبروك استاذى صالح حمادي واخى الحبيب
    1 point
  14. شكرا أخي حمدي على هذه الكلمات الرقيقة جعفر
    1 point
  15. السلام عليكم ورحمة الله اقدم الشكر والتقدير والاحترام لكل القائمين على هذا المنتدى الراقى الذى يعتبر لنا جميعا كلية نتعلم فيها العلم بالمجان بل نتعلم احترام الغير والتعاون والمشاركة وهذا نادر ان نجدة فى اى منتدى او فى اى مكان واشكر ادارة المنتدى لاختيار الاستاذ صالح حمادى ضمن فريق العمل فهو على خلق وعلم له منى كل الاحترام والتقدير واسمحو لى ان اشكر استاذتى الافاضل منهم ابو خليل والاستاذ جعفر فهم اصحاب فضل عليه وتعلمت منهم الكثير واخيرا للجميع تحياتىرافع القبعة اجلالا للمنتدى ومن فيه ادارة واعضاء
    1 point
  16. وعليكم السلام تفضل ضع الكود في حدث النموذج "قبل التحديث": Private Sub Form_BeforeUpdate(Cancel As Integer) Dim ctl As Access.Control jLock = 0 jItems = "" 'Don't go through New Records If Me.NewRecord = False Then 'go through Form controls For Each ctl In Me.Controls 'only Textboxes If ctl.ControlType = acTextBox Then ctl.SetFocus x = Nz(ctl.Text, "") 'check if the value has been changed If Val(x) <> Val(ctl.OldValue) Then jLock = 1 jItems = "The Field: " & ctl.Name & vbCrLf & _ "The OLD value : " & Nz(ctl.Text, "") & vbCrLf & _ "The New value : " & ctl.OldValue & vbCrLf & _ "------------------------------------" & vbCrLf & jItems End If 'Nz End If 'ControlType Next 'the confirmation If jLock = 1 Then jItems = jItems & vbCrLf & vbCrLf & _ "Do you want to Accept Changes?" Style = vbYesNo + vbCritical + vbDefaultButton2 Response = MsgBox(jItems, Style, Title, Help, Ctxt) If Response = vbYes Then DoCmd.Save Else Cancel = True Me.Undo End If End If 'jLock End If 'NewRecord End Sub جعفر
    1 point
  17. لدي ملف إكسل به ثلاث أوراق والمطلوب : الأول تفعيل دالة فلوك أب في الفاتورة من الورقة شيت الثاني ترحيل بيانات الفاتورة إلى الورقة رقم 1 ولكم الشكر والتقدير _فاتورة أستاندوكس 2017 - نسخة.rar
    1 point
  18. عفوا كنت اعتقد انه تم التوضيح في الاجابة شو المطلوب الآن؟ جعفر
    1 point
  19. الإخوة الكرام وجدت هذا الحل: أضعه هنا تعميما للفائدة: Private Sub Worksheet_Change(ByVal Target As Range) Dim ict1 As Range Set ict1 = Intersect(Target, Range("D18:F86")) If ict1 Is Nothing Then Exit Sub With Application .EnableEvents = False .Undo .EnableEvents = True End With End Sub
    1 point
  20. السلام عليكم استاذى ممكن تخلى الكود الاول وبعدين الاسم هتشتغل معاك ان شاء الله
    1 point
  21. شكرا لإدارة الموقع ومبروك للاستاذ صالح التشريف والتكليف نسأل الله له الإعانة والتوفيق ،،،
    1 point
  22. دوبل كليك على الزر "استدعاء اكبر رقم" Private Sub CommandButton1_Click() Me.TextBox1.Value = Application.Max(Sheets("add").Range("c:c")) End Sub انسخ هذا الكود
    1 point
  23. يجب ان تكون الورقة Repport اخر ورقة في المصنف و ليس الاولى و لا لزوم للورقة Sheet1 الفارغة اذا اردت زيادة ورقة يحب ان تكون البيانات فيها تماماً مثل بقية الاوراق (المعومات تبدأ في نفس الصف والاعمدة نفسها)
    1 point
  24. السلام عليكم اضطررت عمل جدول مؤقت للموضوع ، وهناك طريقتين وضعتهم لك: 1. جدول مؤقت tbl_Balance في قاعدة البيانات ، بحيث يتم حذف البيانات القديمة منه ، ثم ادخال البيانات الجديدة اليه ، ونستخدم الاستعلام qry_Balance للتقرير ، وانا شخصيا لا احبذ وجود جدول مؤقت داخل قاعدة البيانات ، لأنه يجعل حجم البرنامج يكبر ، الى ان بين كل فترة واخرى تضغط على زر الاصلاح Compact and Repair ، 2. جدول مؤقت خارج البرنامج (في مجلد Temp الوندوز) ، وكل ماله علاقة بهذه الطريقة يحمل رقم2 ، والتقرير2 يأخذ مصدره من هذا الجدول المؤقت ، ولا يستخدم الاستعلام qry_Balance. جعفر 597.2.Test2.accdb.zip
    1 point
  25. ما شاء الله والف مبروك لاخونا صالح ..
    1 point
  26. جرب الكود التالي (للملفات التي تبدأ الرقم 30) ، ونفس الكود مع الملفات التي تبدأ بـ 40 (التغيير في الرقم فقط) Sub LoopClosedWBs() Dim strPath As String Dim strFile As String Dim wbk As Workbook Dim wsh As Worksheet Dim col As Long Application.ScreenUpdating = False ActiveSheet.Cells.Clear strPath = ThisWorkbook.Path & "\Data\" strFile = Dir(strPath & "30*.xls*") col = 1 Do While strFile <> "" Set wbk = Workbooks.Open(strPath & strFile) Set wsh = wbk.Worksheets(1) wsh.Range("A1:A2").Copy ThisWorkbook.Sheets(1).Cells(1, col) col = col + 1 wbk.Close SaveChanges:=False strFile = Dir Loop Application.ScreenUpdating = True End Sub يمكن أن يظهر معك خطأ بسبب أسماء بعض الملفات (30 WithNewWord و 30 WithWord) حيث حرف الـ i خطأ ويتسبب في ظهور خطأ فقم إصلاح أسماء الملفات قبل تنفيذ الكود الكود لن ينسخ البيانات بنفس الترتيب الذي أرفقته ، وإذا أردت أن يرتب بنفس الترتيب قم بإعطاء أرقام متسلسلة للملفات بعد الرقم 30 مثلاً 30_001 و 30_002 وهكذا تقبل تحياتي
    1 point
  27. بعد انا ما جربت شي هكذ لكن اذا ما كان على الخطأ ذاك المشكلة هو نفس المشكلة في اللغة العربية ب ( أ و إ و ة الخ ) لذا نكدر نستفيد منها وفي المنتدى بها كتير من موضوعات على ذلك
    1 point
  28. اخي ريباز السلام عليكم ورحمة الله وبركاته في البداية انا فتحت استعلام ترحيل واضفت حقل ANJAM وعطيت له شروط TRUE اي من بها صح وعمل نفس الاستعلام لكن استعلام الحذف واستخدمت هذا الكود لفتح تلك الاستعلامين RESALE = "هل تريد نقل البيانات المحدودة الى جدول اخر" TITLE = "تنبيه" If MsgBox(RESALE, vbMsgBoxRight + vbYesNo, TITLE) = vbYes Then DoCmd.SetWarnings False DoCmd.OpenQuery "appendselected1", acViewNormal DoCmd.OpenQuery "DELETEappendselected1", acViewNormal DoCmd.Requery DoCmd.SetWarnings True MsgBox "تم النقل" End If لكن اذا ماتريد ان يحذف البيانات من الجدول الاول احذف هذا السطر من الكود DoCmd.OpenQuery "DELETEappendselected1", acViewNormal واليك قاعدة بياناتك بعد التعديل append selected.rar
    1 point
  29. نبارك لأخينا صالح حمادي. نرجو ان يكون ذلك في ميزان حسناته. دوما للأعلى.
    1 point
  30. استاذى العزيز ومعلمى الجليل كل الشكر والتقدير لاهتمام حضرتك جزاكم الله خيرا اليه العمل فى الجزء ده من الناحية الادارية وحسب فهمى من مسئول الشئون الادارية ان الموظف اذا غاب 8 ااييام متصلين دون تقديم اجازة يجب ارسال خطاب بانذاره بالانقطاع عن العمل مما يؤدى الى رفد الموظف اذا وصل الحد الى 10 ايام ولذلك طلب منى عمل تنبيه وفتح تقرير لمن يتخطى هذه النسبه ولذلك من يصل الى العدد 8 متصلين فى حالة عودته الى العمل وتسويه الاجزات وتسوية موقفه القانونى سأقوم بعمل استعلام تحديث لتلك الفترة بين تاريخ البدء والانتهاء بمسح قيم ord لهذا الموظف وبذلك لن يتكرر مطلقا هذا العدد 8 ايام متصلين وبهذه الطريقة اعتقد سوف لا يكون هناك داعى لتحديد ايام لانها لن تتكرر والله اعلم بالتجربة ان وقفت فى شئ سوف اوافى حضراتكم جزاكم الله خيرا استاذ رمهان جزاكم الله خيرا استاذ جعفر
    1 point
  31. جرب هذه المعادلة قي الخلية C6 واسحب نزولاً =IF(AND(B6<>"",(COUNTIF($B$6:B6,B6)=1)),VLOOKUP(B6,Sheet1!$B$6:$C$10,2,0),"")
    1 point
  32. قم بتعديل كل المعادلات و ذلك باستيدال الرقم 100 ب5000 وسحبها الى الصف 5000 (مع مراعاة معادلات الصفبف التي يلزمها Ctl+Shift Enter) و في formula 1 ايضاً لكن هذا يبطأ العمل كثيراً (جيث يصبح المصنف يحتوي على اكثر من 50,000 معادلة)
    1 point
  33. تم التعديل على الملف كما تشاء القائمة المنسدلة مطاطة تستجيب لاي تغيير قي البيانات ولا تذكر المكرر الا مرة واحدة market Salim advanced.rar
    1 point
  34. جرب هذا الماكرو (تستبدل اسم اخر شيت الى Repport لحسن التعامل مع اللغة الاجنبية) مرفق الملف Sub copy_spcial_cells() Dim Ws_Source As Worksheet Dim My_Sheet As Worksheet Dim My_NUm, x, s, lr, k, i As Integer Dim My_Rg As Range Set Ws_Source = Sheets("Repport") With Ws_Source .Select .Range("a4:d1000").ClearContents My_NUm = .Range("b1") End With x = 4 k = Sheets.Count For i = 1 To k - 1 Set My_Sheet = Sheets(i) lr = My_Sheet.Cells(Rows.Count, "e").End(3).Row If lr < 5 Then lr = 5 For s = 5 To lr If Sheets(i).Range("E" & s) = My_NUm Then With Ws_Source .Range("a" & x) = My_Sheet.Range("b1") .Range("b" & x) = My_Sheet.Range("b2") .Range("c" & x) = My_Sheet.Range("b" & s) .Range("d" & x) = My_Sheet.Range("a" & s) End With x = x + 1 End If Next Next End Sub Report salim.rar
    1 point
  35. استبدل هذا الجزء ActiveWorkbook.Worksheets("Cus1") بهذا الجزء ActiveSheet وفقط
    1 point
  36. استيدل الكود بهذا Sub copy_All_visible() Application.ScreenUpdating = False Dim My_sh As Worksheet Dim My_range As Range Dim k, m, lr, i, x As Integer Dim arrsh() As Integer k = Sheets.Count: m = 3: Set My_sh = Sheets(k): My_sh.Range("a3:m1000").ClearContents For i = 1 To k - 1 If Sheets(i).Visible = True Then t = t + 1: x = Sheets(i).Index ReDim Preserve arrsh(1 To t) arrsh(t) = Sheets(i).Index End If Next For y = 1 To UBound(arrsh) With Sheets(arrsh(y)) lr = .Cells(Rows.Count, 1).End(3).Row Set My_range = .Range("a6:k" & lr) End With With My_sh .Cells(m, 1) = Sheets(arrsh(y)).Cells(1, 2) .Cells(m, 2) = Sheets(arrsh(y)).Cells(2, 2) My_range.Copy .Range("c" & m).PasteSpecial xlPasteValues m = m + lr - 4 End With Next My_sh.Activate Range("a3").Select Erase arrsh Application.ScreenUpdating = True End Sub
    1 point
  37. جرب هذا الماكرو Sub copy_All() Application.ScreenUpdating = False Dim My_sh As Worksheet Dim My_range As Range Dim k, m, lr, i As Integer k = Sheets.Count m = 3 Set My_sh = Sheets(k) My_sh.Range("a3:m1000").ClearContents For i = 2 To k - 1 With Sheets(i) lr = .Cells(Rows.Count, 1).End(3).Row Set My_range = .Range("a6:k" & lr) End With With My_sh .Cells(m, 1) = Sheets(i).Cells(1, 2) .Cells(m, 2) = Sheets(i).Cells(2, 2) My_range.Copy .Range("c" & m).PasteSpecial xlPasteValues m = m + lr - 4 End With Next My_sh.Activate Range("a3").Select Application.ScreenUpdating = True End Sub
    1 point
  38. بناء على طلب الاخ لؤى الخزرجى تم تصميم الملف المرفق وحبيت انى اعمله بموضوع مستقل حتى يستفيد منه الجميع ودا رابط الموضوع الاصلى بكل مراحله http://www.officena.net/ib/index.php?showtopic=58642&hl= تقبلوا تحياتى اداره المخازن.zip
    1 point
  39. ‏الاحد‏ 18‏/6‏/1434هـ الموافق ‏28‏/4‏/2013م المختصر: يتم اخذ صورة من الماسح الضوئي الإسكنر و وضعها في ملف اكسل جديد وحفظ هذا الملف في المجلد الذي تحدده بالإسم الذي تحدده مع عمل ارتباط شعبي للملف الذي به الصورة لكي يسهل الوصول له. الشرح: في الملف المرفق اختار نوع المستند الذي تريد عمل صورة له من الماسح الضوئي وذلك من اعلى الصفحة الأولى للملف هوية او استمارة حدد المجلد الذي تريد حفظ الصورة به – بالضغط على زر تحديد مجلد الحفظ الموجود في اعلى الورقة من اليسار اكمل بيانات المستند المطلوب حفظة داخل الورقة أدخل الورقة او المستند المطلوب الى الماسح الضوئي ثم اضغط على صورة مسح ضوئي Scan الموجودة يمين الشاشة اتبع التعليمات التي تظهر – ادراج مخصص – ثم – معاينة – ثم – مسح ضوئي تتم الخطوات التالية تلقائيا ادراج الصورة في ملف اكسل جديد تعديل حجم الصورة اذاكانت كبيرة بحيث تطبع في ورقة واحدة حفظ الملف الجديد حسب البيانات التي ادخلتها في المجلد المحدد منك مسبقا وضع بيانات الصورة في جدول البيانات مع ارتباط شعبي لسهولة الوصول الى الملف الموجوده به الصورة البحث عن صورة: بالضغط على البيانات المسجلة يتم الدخول الى جدول به بيانات كل الصور التي تم عمل سكان لها من الخانة الصفراء اعلى الورقة اكتب أي جزء من معلومة تريدها يتم تصفية الصفوف بحيث تظهر الصفوف التي تحتوي على هذه المعلومة اضغط على المعلومة التي تريدها يتم فتح الملف الذي به الصورة بواسطة الإرتباط الشعبي شكر خاص الى كلا من Khhanna و Hancock و ابونصار عباد و شوقي ربيع http://www.officena.net/ib/index.php?showtopic=46533 http://www.officena.net/ib/index.php?showtopic=44394 ملحوظة للإخوة الذين يستخدمون اكسل 2007 او اكثر – اذا لم تظهر الأيقونات او الأزرار في أي ورقة فقط عدل زووم العرض من اسفل الشاشة يسار آمل ان يكون به الفائدة للجميع دمتم بخير Excel_Scan.rar
    1 point
  40. لقد أستعملت أكثر من 30 دالة فى هذا البرنامج وهو أول برنامج بالأكسل للميراث الشرعى أخراج جديد للنسخة الأولى نأمل أن يساهم فى تطوير فقه الميراث والوصايا وبارك الله فى كل ساهم فى أنجاح هذا العمل وأخص بالذكر الشيخ أحمد ناعس والشيخ الحويتى والدكتور حمزة فارس ولا أنسى المخظرم فى علم الميراث الأستاذ مولود الراوى والذى له كتاب ميسر فى شرح الميراث وقد أستعنت ببرنامجه المعروف فى مراجعة هذا البرنامج
    1 point
  41. الاخ RAID شكرا على اهتمامك ومساعدتك ولكن كيف يمكنن تغيير قاعده بياناتي الى القاعده Northwind حيث تواجهني كثير من الرسائل الخطأ وهناك برامج كثيرة لم اقدر ان افتحها حتى التعديل المرسل منك لم اقدر على تشغيل امر التقرير الذي اضفته وشكرا ماجد
    1 point
  42. الأخ العزيز: قاعدة بياناتك ملخبطة وبها مراجع مفقودة ووحدات نمطية ناقصة وقد قمت بإصلاح الأمر بالاستعانة بقاعدة بيانات شهيرة هي Northwind فأرجو أن تستبدل قاعدة بياناتك بها إن أرضتك قاعدة البيانات التي أرفقها كما قمت بتغيير مصدر بيانات التقرير ALL INVOICE وربطته بالتقارير الفرعية عبر حقل CustomerCODE من التقرير الأساسي وحقلCustomerID من كل من التقريرين الفرعيين كما قمت بإلغاء كل التعليمات البرمجية للتقريرين الفرعيين لأنه لا لزوم لهاوأضفت زرأمر لفتح التقرير من النموذج الافتتاحي وأرجو أن يؤدي هذا الأمر الغرض والسلام عليكم ورحمة الله Copy of T.O2.rar
    1 point
×
×
  • اضف...

Important Information