الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ظهور التاريخ القادم للاجازة السنوية

بدأه خالد يحي الامام في 22 مايو 2012 · 7 رد · 1,216 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بعد التحية والتقدير

لدي نموذج به حقل نوع الاجازة وهو عبارة عن قائمة يتم منها اختيار نوع الاجازة ومن هذه الاجازات الاجازة السنوية annual leave وحقل به تاريخ بدء الاجازة وحقل اخر به تاريخ العودة من الاجازة وحقل ثالث لتحديد تاريخ الاجازة القادمة وما اريده ظهور هذا التاريخ تلقائيا بعد عام من تاريخ العودة من الاجازة وهذا فقط عندما يتم اختيار نوع الاجازة annual leave ( الاجازة السنوية ) من القائمة باعتابر بها انواع مختلفة للاجازات ولكم الشكر

#2

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

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

=IIf([Vacation]='annual leave';DateAdd("yyyy";1;[EndDate]))

في حالة كانت الإجازة سنوية ( يتم الحساب ويظهر التاريخ )

post-15367-071062700 1337686363_thumb.gi

في حالة اي اجازة اخرى ( يكون الحقل فارغ )

post-15367-021064900 1337686413_thumb.gi

za-Vacation.rar

بالتوفيق

المرفقات
FF1.gifFF2.gif
1
#3

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

#4
خالد يحي الامام كتب:

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

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

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

Private Sub Form_AfterUpdate()
Dim strSQL As String
DoCmd.SetWarnings False
strSQL = "UPDATE Table1 SET Table1.NextVacation = forms!FORM!NVacation WHERE (((Table1.ID)=forms!FORM!id))"
DoCmd.RunSQL strSQL, dbFailOnError
DoCmd.SetWarnings True
End Sub

za-Vacation-LAST.rar

بالتوفيق

2
#5

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

#6

بعد التحية استاذتي كما ذكرت واجهتني مشكلة لا اعرف السبب هل باعتبار النموذج فرعي ام ماذا مرفق الملف النموذج باسم search deleave ولكي مني كل الشكرDataleave.rar

#7

للرفع والتذكير

#8

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

الملف بعد التعديل بناء على طلبك

فقط اتبع الخطوات الثلاث

post-15367-041302800 1338361630_thumb.gi

za-Dataleave-UP.rar

بالتوفيق

المرفقات
E1.gif

مواضيع مشابهة