sameh awad

السلام عليكم  نعانى فى بعض الاحيان من قطع الشبكة بالشركة مما  يؤدى الى اتصال المستخدمين بالمبرمج لذا حاولنا حل المشكلة بادراج كود  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 سنوات و مشاريع أخرى بالكود

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

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

بارك الله فيكم

جزانا و اياكم ارجو من الاخوة الادامن تعديل عنوان المشاركة الى :- مكتبة أكواد الاكسيس حصاد 9 سنوات (الاصدار الثانى)

جزاكم الله خيرا على تشجيعكم و نفع الله بنا و بكم أقدم لكم الاصدار الثانى بعد العديد من الاضافات VBALibraryAccessVer2.rar

السلام عليكم تكرما ارفق مثال و جزاكم الله خيرا

جزانا و اياكم