sameh awad

Ver 4.1 https://drive.google.com/file/d/16bCBvALoJ_kl4wSedAqEAb50m6sJrTiC/view?usp=sharing

السلام عليكم  نقدم لكم  مكتبة الأكسيس حصاد السنين الاصدار الرابع نسال الله القبول https://drive.google.com/file/d/1Ff6hW3ujEmtQ6hvz4fa32BGNZv_Dr4xs/view?usp=sharing  

=IIf(IsError([PercentProd]);0;[PercentProd])  

جزاكم الله خيرا

السلام عليكم  جزى الله القائمين على هذا المنتدى خير الجزاء   يضطر المستخدم الى تشغيل باتش و ذلك لتحديث البرامج (نسخ ملف من الهدف الى كمبيوتر المستخدم)لكن خطرت لى فكرة ان تتم هذه العملية دون الحاجة الى تشغيل الباتش و كذلك الذهاب الى كل كمبيوتر لعمل اضافة للبرنامج الجديد أو التعديل فى المسارات لكن عن طريق الاكسيس    الفكرة :-جدول يضم الاجهزة و البرامج فعند الضغط على تشغيل نسخ البرامج المحددة   يتم تشغيل  الوظائف حسب البرامج المسموحة للكمبيوتر مثل Machine03 فيتم تشغيل : FileCopy "D:\Source\PG3.accdb", "D:\Target\PG3.accdb" FileCopy "D:\Source\PG4.accdb", "D:\Target\PG4.accdb" تباعــــــــــــــــــــــــــــا UpdatePGs.rar

السلام عليكم  نعانى فى بعض الاحيان من قطع الشبكة بالشركة مما  يؤدى الى اتصال المستخدمين بالمبرمج لذا حاولنا حل المشكلة بادراج كود  If Forms!MAIN_EntryForm!xy = "#Error" Then MsgBox "الشبكة مفصولة ..........تأكد من توصيل الكابل " Else If Forms!MAIN_EntryForm!xy > 0 Then MsgBox "برجاء اجراء التحديث " 'And Forms!MAIN_EntryForm!the_user <> "sameh.awad" End If End If لكن للأسف يعطى رسالة خطأ Run time Error  type mismatch بحثت لا يقل عن 4 ساعات بالامس دون جدوى فبرجاء المشاركة بالحل اما بتعديل الكود او أى حل بديل label (2).rar

avp

الله يجازيك أخى الفاضل لقد أخذت أدرس فى المثال لمدة  ساعة فى التطبيق لادراجها فى برنامجى لكن لاحظت ظهور الرسالة  Error 3622 - You must use the dbSeeChanges option with OpenRecordset when accessing a SQL Server table that has an IDENTITY column اذا احتوى الجدول على حقل autonumber ,و مكثت ساعتين للبحث لحل هذه المشكلة  حاولت تعريف dbAutoNumber فى الوظيفة دون جدوى أرجو المساعدة و جزاكم الله خيرا  

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

السلام عليكمنرجو من حضراتكم جمع سنتان و نصف على تاريخ معين2.5 على 4-2017 ليصبح التاريخ 10-2019جربت  #ExpireDate: DateAdd("yyyy";2.5;#01/04/2017(لكن يعطى4-2019و جزاكم الله خيرا

Www.samehawad.weebly.com  أدخل على اكسس و حمل المكتبة

السلام عليكم ورحمة الله وبركاته. جزاك الله خيرا 

http://samehawad.blogspot.com.eg/2015/09/vba-modules.html  الرابط به مكتبة الاكسيس حصاد 9 سنوات و مشاريع أخرى بالكود

جزاك الله خيرا   

السلام عليكم حاولت فتح الملف بعد الفك و لم أفلح