[عنوان غير مناسب]صادفتني مشكله في النماذج اتمنى مساعدتكم

احسنت ايها المبدع الرائع

بقي هذا الخطاء من 01:00ص الى 07:00ص لازم يعطي 11

تفضل اخي تم تعديل (تغير خاصيتين تقرير "منبثق", "شكلي او مشروط" الى  نعم)

بالتوفيق

02-08-05.rar

السلام عليكم ورحمة الله وبركاته

استاذي العزيز ابو شفيق

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

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

في حالة النموذج الحالية جعلت القيمة الافتراضية لجقل التاريخ Date()  فتاخذ كل الحقول تاريخ اليوم .....والذي اريده هو اذا انا ادخل الاضافي ليوم معين غير تاريخ اليوم فمجرد ماكتب التاريخ في اي حقل يعمل تحديث لكل الحقول بذلك التاريخ المدخل حتى لايقوم الموظف الذي يدخل البيانات بكتابة التاريخ لكل واحد اذا كان عنده عدد كبير من الموظفين الذين لهم اضافي بنفس اليوم

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

وعليكم السلام و رحمة الله و بركاته

في حدث بعد تحديث لحقل التاريخ الصق هذا الكود:

DoCmd.RunCommand acCmdSaveRecord
Dim Redate As Date
Redate = [DATE]
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE WORK_DAY SET WORK_DAY.[DATE]=#" & Redate & "#;"
DoCmd.SetWarnings True
Form.Requery

روووووووووووعة يااستاذي العزيز

ولكن فيه مشكلة صغيره

اذا كتبت له تاريخ مثل 10/2/2014 بعد عملية التحديث يتغير الشهر بدل اليوم ويصبح 02/10/2014 وهذه مشكلة عندما اظهر الذين عندهم اضافي في 10\2 يصبحون غير موجودين لانهم ادخلوا في 2\10  اتمنى تكون فهمت علي

تفضل

DoCmd.RunCommand acCmdSaveRecord
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE WORK_DAY SET WORK_DAY.[DATE]='" & [DATE] & "';"
DoCmd.SetWarnings True
Form.Requery

السلام عليكم ورحمة الله وبركاتة

استاذي العزيز قد تعجز اللسان عن التعبير في شكر منهم امثالك ولكن اقول لك انك مبدع ورائع فانت مدرسة واتمنى ان اكون احد طلاب هذه المدرسة النموذجية.........

اليوم عندي استفسار حول الامر بحث

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

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

كما تلاحظ فانا عملت امر بحث وبجانبة مربع تحرير وسرد

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

لاحظ الصوره

Between

[بداية التاريخ] And [نهاية التاريخ] هل يمكن استخدام هذه الدلة في استعلام مثل Query1 بحيث يظهر الاسم والايام المحصورة بين التاريخين المحددين

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

ممكن تفكر معي على طريقة

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

بالنسبة لعملية البحث حسب الاسم عملت مربع نص غير منضم وبعد تحديث عملت له هذا الكود

  Dim NewSearch As String
  Dim M As String
 NewSearch = (Me.txtSearch)

  M = "SELECT WORK_DAY.* FROM WORK_DAY WHERE (([WORK_DAY].[EMP_NAME] Like '*" & NewSearch & "*')) ORDER BY [WORK_DAY].[EMP_NAME]; "
  Me.RecordSource = M

ومشي الحال

اقتباس

 

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

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

 

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

اقتباس

 

بالنسبة لعملية البحث حسب الاسم عملت مربع نص غير منضم وبعد تحديث عملت له هذا الكود

Dim NewSearch As String

Dim M As String

NewSearch = (Me.txtSearch)

M = "SELECT WORK_DAY.* FROM WORK_DAY WHERE (([WORK_DAY].[EMP_NAME] Like '*" & NewSearch & "*')) ORDER BY [WORK_DAY].[EMP_NAME]; "

Me.RecordSource = M

ومشي الحال

 

الحمد لله

السلام عليكم ورحمة الله وبركاتة

اتقدم بالشكر والتقدير لكل المشرفين والاعضاء في هذا المنتدى الرائع بصورة عامة والى الاخ ابو شفيق بصورة خاصة

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

واقول لك ليس فقط لك افضل اجابة ولكن افضل اجابات وجدتها وساندتني هي اجاباتك

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