بحار الاكسس

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

Private Sub Form_Load() If CreateObject("WScript.Shell").RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Access\Security\" & IIf(Application.Version < 12, "Level", "VBAWarnings")) <> "1" Then CreateObject("WScript.Shell").RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Access\Security\" & IIf(Application.Version < 12, "Level", "VBAWarnings"), "1", "REG_DWORD" End If End Sub طبعا هذا الكود يوضع فى النموذج الافتتاحى للبرنامج

File ------> Option -------> trust Center----->trust center Setting Never Show information about blocked content macro setting-----> enable All Macros

اتفضل التعديل كلمة السر 11 تحياتى للجميع Desktop.rar

اتفضل التعديل .... انا اعطيته الطريقة وللعضو المحترم حرية الاختيار من Enable OR Visible تحيات للجميع

اتفضل التعديل تحياتى للجميع عدم ظهور التقرير.rar عدم ظهور التقرير.rar

اتفضل التعديل .... تحياتى للجميع لو.rar

عملته بطريقة اخرى عملت زر داخل نموذج فرعي

اتفضل التعديل.. بطريقة سهلة جدا وليست معقدة تحيات للجميع حذف من نموذج فرعي.rar

هكتبلك الكود وحضرتكت طبقه على البرنامج تبعك =iif(year[السنة]=2016,([القسط]=1000)&iif(year[السنة]=2017,([القسط]=500) الى حضرتك مثال Database88885.rar

ارسل البرنامج لفحصه

ارسلى ملف الاكسل على الخاص وانا اصمم البرنامج

اتفضل البرنامج مفتوح المصدر طبعا عند الفتح اضغط مفتاح SHIFT اى خدمة ....... حصر.rar

أرسل البرنامج لفحصه

متاح البرنامج 1800 جنيه مصرى hanythomas@hotmail.com

متاح لدى البرنامج ---- 01282870428

اليك الحل degree.rar

ارسل البرنامج التى تريد على التطبيق وانا باذن الله اضبطلك الرسم البيانى

الاسم / هانى اجيد العمل على برنامج الاكسس بشكل محترف ولى اعمالى فى المكتبة المنتدى منها برنامج شهادة التقدير وتوزيع المراقبين على اللجان ومتابعة مساعدة شهر رمضان .0...الخ

بالفعل انا ربطت فى العلاقات فى النموذج المرفق لحضرتك

خصية A = text b= text c = text وانا ارسلت لحضرتك التعديل رايته

بالنسبة للاجمال التوير فى النموذج اليك ذلك اجماليات.rar

اتفضل ارسل المرفق وانا تحت امرك اتفضل التعديل Database6.rar

حضرتك عرفت الطريقة عن طريق خاصية DATA ENTERY = YES او ادخال البيانات = نعم هذه الخصية لا تسمح بادخال بيانات اخرى

صمم نموذج جديد لا يسمح بادخل نوع تواصل جديد عن طريق خاصية DATA ENTERY = YES اجماليات.rar