علي المصري

شاشة دخول وصلاحيات للمستخدمين ولكن هناك زمن معين لكتابة اسم المستخدم وكلمة المرور ولكن هناك ماكرو تحت اسم Password_M1 لا يعمل بسبب الشروط اعتقد اني كتبتها في مكان غير صحيح فلنحاول تصحيح هذا الماكرو مكوناته Password_M1 runmacro : Macro Name = Exit condition : [Forms]![Password_Form2]![Pass-No]=0 OpenForm : Form Name = Chang-Form condition : [Forms]![Password_Form2]![Pass-No]=1 OpenForm : Form Name = Master-Form condition : [Forms]![Password_Form2]![Pass-No]=2 الفكرة منقولة من احد الفيديوهات التي عثرت عليها بالصدفة (فقمت بتنفيذها من باب التعلم ) ( للأمانة العلمية ) UserAccounts.rar

نعم كذلك تشرفت بك استاذنا كأول رد على الموضوع شكرا

الى حضراتكم الكود التالي حيث انه يحافظ على عملية توسيط زر الامر او التسمية او ...... عند استخدام تكبير الفورم Private Sub Form_Load() DoCmd.Maximize Me.Command0.Left = (Me.InsideWidth - Me.Command0.Width) / 2 Me.Label1.Left = (Me.InsideWidth - Me.Label1.Width) / 2 End Sub لعله ينال اعجابكم Database1.rar

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

جعله الله في ميزان حسناتك

إليكم رابط واحد لتحميل كل اجزاء الفيديو الموجود بالموضوع

شكرا جزيلا موضوع اكثر من ممتاز يستحق مليون نجمة شكرا وكل عام انت بخير

شكرا لك استاذ ابوخليل ولكن عندم قمت بتشغيل الملف وجد ان مسميات الازرار غير ظاهرة فقمت بارفاق الملف مرة اخرى seet2.rar

السلام عليكم ورحمة الله وبركاته كل عام انتم بخير لو سمحتم لي بالمشاركة البسيطة دي حيث قمت بتجميع كل ما تحتوية المشاركات السابقة في ملف واحد فقط تقبولي تحياتي http://www.gulfup.com/?58sHZG

الرابط لا يعمل اخي الكريم

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

ارسل الملف الخاص بك وسوف اقوم بالتعديل عليه

بارك الله فيك وجزاك الله خيرا

تفضل استاذ : ابو خليل البرنامج على اكسيس 2003 جرب ووافني بالنتيجة seet.rar

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

مرفق مرة اخرى التقويم يعمل بالميلادي اذا اختلف غير اعدادات الويندوز Access2003.rar

السلام عليكم ورحمة الله وبركاته بعد تجربة البرنامج : مما لا شك فيه انه برنامج ممتاز وعمل متعوب عليه ولكن اثراء للموضوع قمت ببعض التعديلات على استمارة البيانات واضافة زر جديد اسمه ( تغيير المديرية والادارة ) اتمنى ان يكون التغيير مفيد للبرنامج ولم يؤثر على شيء به برجاء التجربة شئون العاملين برنامج.rar

شكرا لك وجزاك الله خير كل عام انتم بخير

على حد علمي قم بتجميع كل متطلباتك في استعلام ( اسميته 111 ) ومن ثم اجعل الفورم مصدر بياناتها من هذا الاستعلام جرب والاساتذة خبراء المنتدى سوف يقومون بالمساعدة ان شاء الله kkarem559.rar

لا شكر على واجب انا اتعلمت من المنتدى الكثير واعضاء المنتدى ايضا جزاهم الله خيرا ساعدوني كثيرا ومازلت اتعلم الحمد لله

شكرا وبارك الله فيك

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

جرب ثم وافني بالنتيجة

الدالة في اكسيل =IIF(OR(D1="INGENIEUR/ETAT";D1="ADMINISTRATEUR";D1="CONSEILLER/TECH");ROUND((BU1+BV1)*0,3;2);0) هي في اكسيس ( مع جعل التنسيق لمربعي النص BU1 و BV1 على شكل رقم عام GENERAL NUMBER =IIf(([D1]="INGENIEUR/ETAT" Or [D1]="ADMINISTRATEUR" Or [D1]="CONSEILLER/TECH");Round((([BU1]+[BV1])*0.3);2);0) الدالة في اكسيل =(Int((([AH1]-[AL1]-[AE1]-[AD1])-(([AH1]-[AL1]-[AE1]-[AD1])-Int([AH1]-[AL1]-[AE1]-[AD1])))/10))*10 في اكسيس =(Int((([AH1]-[AL1]-[AE1]-[AD1])-(([AH1]-[AL1]-[AE1]-[AD1])-Int([AH1]-[AL1]-[AE1]-[AD1])))/10))*10 في اكسيل =((30-[BG1])/30)*(IIf([AX1]>120000;29500+([AX1]-120000)*0.35;IIf([AX1]>30000;2500+([AX1]-30000)*0.3;IIf([AX1]>28750;2250+([AX1]-28750)*0.2;IIf([AX1]>22500;1500+([AX1]-22500)*0.12;IIf([AX1]>15000;([AX1]-15000)*0.2;0)))))) في اكسيس =((30-[BG1])/30)*(IIf([AX1]>120000;29500+([AX1]-120000)*0.35;IIf([AX1]>30000;2500+([AX1]-30000)*0.3;IIf([AX1]>28750;2250+([AX1]-28750)*0.2;IIf([AX1]>22500;1500+([AX1]-22500)*0.12;IIf([AX1]>15000;([AX1]-15000)*0.2;0))))))

=[AH1]-[AL1]-[AI1]-Value(Right(Format([AH1]-[AL1]-[AI1];"0,00");4)) تغير إلى =[text1]-[text2]-[text3]-Right(Format([text1]-[text2]-[text3];"0,00");4)) مثلا