كيف اظهار التاريخ الثاني واين الخطاء بكود اظهار الحقول

اساتذتي الافاضل

ارجو المساعدة ولكم الشكر

تفضل اخي الكريم

ملفك بعد التعديل

كان الخطأ لديك في دالة  DLookup  انك تبحث عن نص بإستخدامك  علامات التنصيص بهذا الشكل

Private Sub id_AfterUpdate()
Me.empname.Value = DLookup("[empname]", "eid", "[id] = '" & Me.id & "'")
End Sub

Private Sub id_AfterUpdate()
Me.empname.Value = DLookup("[empname]", "eid", "[id] = " & Me.id )
End Sub

Private Sub id_AfterUpdate()
Me.empname.Value = DLookup("[empname]", "eid", "[id] = " & Me.id)
Me.job.Value = DLookup("[job]", "eid", "[id] = " & Me.id)
Me.stard = DLookup("[startd]", "eid", "[id] = " & Me.id)
Me.dept.Value = DLookup("[dept]", "eid", "[id] = " & Me.id)
End Sub

استاذتنا الفاضله

اشكرك على مرورك وبالفعل هذا بالظبط ما اردت

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

ولو اردت ان اعمل تقرير للطباعة فقط يكون مصدرة الاستعلام

ساحاول بالطباعة ان شاء الله

المهم هذا بالضبط ما اردت

جزاك الله كل خير يا استاذتنا العزيزة ام عهود

اخي الفاضل

بالنسبة لمصدر حقل التاريخ في التقويم  ستجده بهذه الطريقة

1. افتح النموذج في وضع التصميم

2. اختر خصائص اي زر امر  تقويم سواء من النموذج الرئيسي او الفرعي ثم اختر  تبويب الحدث

3. ستجد عند حدث النقر على زر الأمر  الدالة المطلوبة و من ضمنها حقل التاريخ المطلوب

بالتوفيق

يا سيدتي

لا ادري باي لسان اتكلم

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

وارجو من الله العون على عمل تقرير للطباعة بحسب رقم الاجازه

بارك الله فيكي وجعل كل حرف بماء شاء الله من كرم لك حسنات

alwa7eed كتب:

يا سيدتي

لا ادري باي لسان اتكلم

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

وارجو من الله العون على عمل تقرير للطباعة بحسب رقم الاجازه

بارك الله فيكي وجعل كل حرف بماء شاء الله من كرم لك حسنات

اخي الفاضل : الوحيد

حاول تساعدنا بارك الله بك حتى نساعدك

انت تريد طباعة تقرير  وهذا لا يوجد به مشكله

ولكن ما هي الحقول التي تريدها في التقرير  لأنه من غير المعقول وضع جميع الحقول التي لا علاقة لصاحب الإجازه بها

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

بالتوفيق

سيدتي الفاضلة

احترامي وتقديري لك

 جميع الحقول لانها تحفظ في ملف الموظف

وتعلمت وتعلمت من حضرتك عدد النسج

وادخال رقم الاجازة

ولكن في المرة الماضيه ظهرت عندي مشكله

لا بد ان اخرج من البرنامج واعود ليطبع رقم جديد

ولو اعطيت الطباعة سيقوم بطباعة اخر امر قمت بطباعته

وهذا المرفق 142536 الرقم السري

اشكرك استاذتنا الكريمه

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

PURCHASE1.rar

اخي الفاضل

ما علاقة هذا الملف الذي انت وضعته الخاص بالمشتريات بموضوعنا الخاص بالإجازات

تأكد بارك الله من ارفاق الملف الصحيح الذي تريد التعديل عليه والخاص بالإجازات 

بالتوفيق

اعتذر

انا اريد ان يكون تقرير للطباعة بحسب رقم الاجازه وعدد نسخ حسب المطلوب

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

حتى لا يتكرر في الاجازات

اشكرك سيدتي

ولدي المعرفة بحرصك على هذا المنتدى وقوانينه

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

تفضل اخي الكريم

نفس الطريقة استخدمها مع برنامج الإجازات بحيث تضع حقل رقم افجازة الموجود في نموذج الإجازات في معايير الإستعلام

za-PURCHASE1-UP.rar

بالتوفيق

استاذتنا العزيز

نفس المشكله

يطبع ااول رقم مثلا 3

واحاول ان اطبع رقم 2

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

الله اعلم ان المشكله بان التقرير يبقى مفتوح على اول رقم

لو سمحتى لغلاقي النموذج ستجدي التقر بوضع المعاينه عند او رقم اخترناه

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

استاذتنا العزيز

مع اعتذاري الشديد للاطاله

وجزاك الله كل خير وهذا الكود في خدث عند النقر للطباعة

Private Sub Command54_Click()
If IsNull(Me.copynumber) Then
MsgBox " æíä ÇáÇÊÝÇÞ íÇ ÓíÏ ÒíÏ .. áã ÊÏÎá ÚÏÏ ÇáäÓÎ ÇáãØáæÈ ØÈÇÚÊåÇ ", vbCritical, "ÊäÈíå"
Me.copynumber.SetFocus
Exit Sub
Else
DoCmd.OpenReport "orderprnm", acViewPreview, "", "", acNormal
DoCmd.PrintOut acPrintAll, , , acHigh, Me.copynumber, True
End If
    
End Sub

رائعه وارجو ان تسمحي لي بهذه الكلمة من طالب بسيط

ولكن هناك مشكله صعبه جدا في برنامج الاجازات

وهي ان  الرصيد الفعلي لا ينتقل مع الشخص للاجازة التالية

استاذتنا العزيزه

في السنه 21 يوم لكل موظف اجازة مستحقه عن السنه كامله تاخذ على عدة مراحل

اي بمعدل 1.75 يوم عن كل شهر

وتاخذ الاجازات على عدة مراحل بحد اقصى لكل شخص 11 يوم  بعد مرور 6 اشهر والباقي للاجازة القادمة

ولكن لاحظت ان كل مرة اكتب اجازة لا يقوم البرنامج بخصم الايام الفعلية من الرصيد المتبقي

بمعنب لو زياد اخذ اجازة 5 ايام تخصم من الرصيد ويبقى 16 يوم

الان في الاجازه القادمة اخذ 10 ايام اذا الرصيد الفعلى 6 ايام

بعد مرور سنه من تعينه يدرج له 21 يوم تضاف الى 6 ايام قيصبح الرصيد الفعلي 27 يوم

ارجوكي ان تسامحيني ولكن هذا ما تعودنا عليه منكم من سنين  ([ الكرم والعمل من اجل الله ])

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

معذرة اخي الكريم

ابحث في المنتدى عن مواضيع الإجازات والرصيد الخاص بها وستجد عدة مواضيع تتحدث عن هذا

لأنني غير متفرغه لعمل ذلك لأنها تحتاج الى استعلامات واكواد اضافية لإستخراج الرصيد والباقي من رصيد الإجازة واضافة الإجازات السابقة الى السنوات الجديده

لذا اعتذر عن تنفيذ طلبك

بالتوفيق

انا من يعتذر يا استاذتنا الفاضله وليس حضرتك

اشكرك واشكر جهودك والحمد لله كل ملاحظاتك عولجت ببراعة

الف الف شكر لك

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

وارجو من الله ان اجد ضالتي

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