famokad

ارسل بملف الاكسس وسوف نحل لك المشكلة ان شاء الله

اعرض الملف دروس عن الكود في vba أكسس شروحات وامثلة عن بعض اكواد فيجوال بيسك vba برنامج الاكسس صاحب الملف famokad تمت الاضافه 17 أغس, 2020 الاقسام قسم الأكسيس

ادرج الصيغة التالية كما في المرفق =CONCATENATE(B2;" ";TEXT(A2;"00%")) سليم.xlsx

ادرج هذه الصيغة عند التاريخ الصيعة التالية توضغ عند الصف 7 =IFERROR(IF(B7>0;TEXT(TODAY();"YYYY/MM/DD");"");"") كما في المرفق قسط.xls

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

برنامج مراقبة الدفاتر اليدوية مفتوح المصدر اهداء لموقع اوفيسنا رقم المستخدم -1 كلمة المرور officena بامكانك اضافة مستخدم وكلمة مرور من جدول المستخدمين T_USERS المطلوب منكم الدعاء لي ولوالدي البرنامج في المرفقات برنامج مراقبة الدفاتر اليدوية.rar

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

تنشء جدول باسم T_USERS من الحقول التالية UNO تسلسل تلقائي UID رقم المستخدم UNM اسم المستخدم UPS كلمة المرور انشء نموذج باسم FRM_LOGIN حقل نصي اسم المستخدم باسم uno حقل نصي كلمة المرور باسم upas امر دخول باسم or1 امر الغاء باسم or2 لأمر الدخول or1 عند حدث النقر اكتب الكود التالي Dim up, ui As Integer ui = Val(uno.Value) up = DLookup("[UPS]", "T_USERS", "[UID]= " & ui) If up = Val(upas.Value) Then DoCmd.Close DoCmd.OpenForm "FRM_REP", acNormal Else x = MsgBox("كلمة السر خطأ حاول مرة اخرى", vbOKOnly, "دخول خاطئ") upas.SetFocus End If For i = 0 To S S = 1 S = i + 1 Next If S = 5 Then z = MsgBox("لقد تجاوزت حدود الادخال", vbOKOnly, "الدخول") DoCmd.Quit End If End Sub كما في المرفقاتlogin.accdb

برنامج شئون الموظفين برنامج تسيير شؤن الموضفين (Récupéré).xlsm

برنامج الايجارات - ضاحي الغريب برنامج الايجارات الاصدار الاول تجريبي - ضاحي الغريب.xlsm

برنامج ادارة الخدمات المصرفية - ضاحي الغريب برنامج ادارة الخدمات المصرفية - ضاحي الغريب.xlsm