omani

في بداية الكود ضع هذا السطر On error resume next تحياتي

ضع هذ الكود في حدث عند فقدان التركيز If IsDate([dtSend7]) Then [Years] = Year([dtSend7]) End If تحياتي Years.rar

ضع هذا الكود في حدث Enter عند الدخول للنموذج الفرعي DoCmd.GoToRecord , , acLast تحياتي Database1.rar

قم بتعيير نوع البيانات للمتغير nlength من integer الى long تحياتي

تفضل رواتب.rar

قم بمقارنة تاريخ اليوم مع تاريخ 20 من كل شهر . واجعل الكود في حدث الفورم لوود ( عند التحميل) . if(day(date) >=20 then msgbox " وقت الراتب قد حان" end if أو ارفع مثال للتعديل . تحياتي

أخي انا احتسبتها على اساس ان إذا كان الراتب اعلى من 700000 وهذا لن ينطبق إلا على الدرجات 3 المرتبه الثامنه فأعلى . أو أنك تقوم باستخدام ID الخاص بالدرجة مع الايدي الخاص بالرتبة . تحياتي

تفضل مثالك بعد التعديل تحياتي مثال2.rar

تفضل اخي الكريم مثالك بعد التعديل . تحياتي رواتب.rar

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

تحتاج لأحد برامج تحويل الملفات الى PDF مثلا أن تقوم بتثبيت هذا البرنامج http://download.print-driver.com/udc.exe سوف يقوم البرنامج بإنشاء طابعة تحمل الاسم Universal Documnet Convertor فقط قم بطباعة التقرير باستخدام هذه الطابعة وسوف يتم تحويلها الى ملفات PDF تح…

تفضل التعديل الاخير استخدم الكود التالي ليقوم بعمل أنتر sendKeys("{ENTER}") تحياتي DMax.rar

اخي للاسف لايوجد معي اوفيس 2007 . ولكن يمكنك ذلك بالضغط على شعار الويندوز في الزاوية العليا للأكسيس . وومنها اختر حفظ الملف بصيغة 2003 . تحياتي

تفضل مثالك بعد التعديل db.rar

من قائمة أدوات أختر Costomize أعتقد بالعربي اسمها تخصيص . ومنها اختر ToolBars أشرطة الأدوات . ومنها ضع علامة صح أمام تنسيق النموذج . تحياتي

أخي هناك مكتبه خاصة تم استخدامها في مشروع الاستاذ احمد الحيقي ولكنك لم تقم باضافة المكتبة عند استيراد الفورم والوحدة النمطية . إذهب في محرر الكود ثم أختر tools ومنها اختر Reference وأنظر اسم المكتبة وقم باضافتها . قارن بين الملفين . وستجد اسم المكتبه أمامه علا…

اين قاعدة البيانات ؟؟

أخي الكريم ضع هذا الكود في حدث قبل الادخال BeforeInsert للنموذج Me.ID = (Nz(DMax("[ID]", "[importationtable]"), 0)) + 1 ثم ضع هذا الكود في حدث OnError للنموذج If DataErr = 3022 Then MsgBox "الرقم الحالي تم حجزه من قبل مستخدم اخر . سوف يتم تغييره تلقائياً.. " M…

ضع هذا الكود في حدث عند النقر المزدوج في القائمة call أمر10_Click() تحياتي OpenForm2.rar

نعم اخي ممكن جدا. وأسهل عملية لذلك . افتح النموذج الفرعي مستقلا . وأعمل به ماتريد وسوف يظهر ماقمت به في النموذج الفرعي عند فتح النموذج الرئيسي . تحياتي