ابوخليل

تم التعديل على الملف احيي فيك محاولاتك لصنع الكود بنفسك الاكواد تبنى على الفكرة واحدة واحدة ، قد تجد صعوبة في تشغيل بعض الجزئيات خاصة في النماذج المرتبطة فهنا انت بحاجة الى مساعدة صديق بالنسبة لفورم الاعارة فاتركه كما هو ، حيث وجدتك طبقت فكرة الحذف تماما تم حذف حقل بداية الاعارة من الجدول ومن الفورم لانه تحصيل حاصل حيث ان حقل الاستلام يقوم مقامه تم نقل زر الحفظ الى الفورم الرئيسي من اجل سهولة التحديث وضمان عمل الكود على اكمل وجه تم صياغة الاحداث واكوادها من جديد تم عمل لمسات على واجهة الفورم .. لاني رأيت البيانات الثابتة تشد الانتباه وليس بينها وبين الحقول المحررة فرق فأحببت تمييزها وخفض الضوء الآن فورم حركة العهدة يعمل على اكمل وجه جرب جميع الطرق ووافني بالنتيجة ‏‏devicesdb7.rar

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

انا عملته طبقا للصيغة الموجودة فعلا في الجدول وهذه الصيغة هي السائدة ، واستخدم التنسيق ( من اليمين الى اليسار ) في الواجهات

مع ان الاولى تغيير حقل الهجري الى نص من اجل تجاوز التعارض مع الاشهر الشمسية الناقصة ولكن عند التحويل الى نص نفقد كثير من الخصائص التي تجرى على حقول التاريخ مشكلتك الحقيقة اخ عمر ان التاريخ الهجري يتم ادراجه في الجدول من اليسار الى اليمين والكود يقرأ من اليمين الى اليسار جرب لا تغير الحقل الى نصي بل اتركه كما هو واستبدل الكود بهذا Me.date_m = Um2Greg(Left(date_h, 2), Mid(date_h, 4, 2), Right(date_h, 4))

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

تم عمل نموذج الجلسات من فورم اعداد الخطة انقر نقرا مزدوجا على رقم الخطة المراد تقييم الجلسة فيه سيفتح لك فورم الجلسات يتم فيه عرض الهدف والنشاطات التابعة له . بعد اختيار نوع الجلسة ، والتقييم ، والمختص يتم الحفظ بالنقر على زر حفظ عند الحفظ ستختفي هذه المهارة من فورم الخطة اضفت ايضا بعض الكائنات التي سوف تحتاج اليها مستقبلا .. ستلاحظها داخل مشروعك الآن وبعد تجربة العمل من خلال النموذجين سيتبقى المخرجات التي هي التقارير حاول ان تبني التقارير بنفسك ... اتمنى لك التوفيق .. برنامج التخاطب والمهارات 10.rar

الف مبروك ابا جودي اهلا وسهلا اخونا وحبيبنا الغالي

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

سؤال : ما دام فورم الخطة لتسجيل الخطة فقط ما فائدة وجود حقلي : التقييم /تاريخ الاتقان ؟ اليس مكانهما الصحيح في فورم الجلسات؟

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

تفضل Dim i As Integer, R As Integer Dim x As String, xx As String Dim rs As Recordset Set rs = Me.frm_T1.Form.RecordsetClone rs.MoveFirst R = rs.RecordCount For i = 1 To R If rs!newline = True Then x = rs!nots & " " & rs!TEXTT xx = " " & xx & " " & x End If rs.MoveNext Next Me.tsmya.Caption = xx test2.accdb

بارك الله فيكم اخوتي واحبتي ، واحسن اليكم . لمدكم يد العون لأخيكم في شرحك الاخير اخ عمر اتضحت الصورة تماما .

تصوري لعملية لاعارة : 1- نضيف كلمة اعارة لجدول نوع الوظيفة ، من اجل تظهر ضمن مربع التحرير 2- نظيف اسم المستعير وبياناته ضمن جدول الاسماء 3- تجرى على المستعير عملية تسليم الجهاز كغيره من الموظفين والمدارس 4- عند اختيار اعارة واختيار اسم المستعير يتم اظهار حقلين للتاريخ من / الى 5- نضيف في جدول العمليات الحقلين المشار اليهما هذا كل شيء بحيث تكون جميع عملياتك ضمن مكان واحد تصور تم استلام جهاز من مستعير ونريد تسليمه لجهة اخرى سواء كانت ضمن الدائرة او اعارة اخرى .. ستتم العملية حسب طريقتنا بكل يسر

يجب ان يكون السطر الاول هكذا If IsNull(Me.receiveDate) And Not IsNull(Me.users) Then

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

لو طلبك واضح ومفهوم كان وجدت بغيتك من اخوانك في اسرع وقت عن نفسي لا اعلم ما تريد عمله بالضبط ، لان البيانات في الجدول تختلف عن ما في الصورة ، ايضا لا يوجد كود نستدل به حتى ولو كان خطأ تريد توليد سجلات ؟ ام ارقام ؟ اذا كانت سجلات فما صفتها يجب ان تشرح شرحا وافيا مثلا ترفق صورة للجدول قبل التنفيذ وصورة بعد التفيذ تعرض المطلوب اجادة وصف السؤال وفهمه هو نصف الاجابة

بقي شيء يجب ضبطه .. بعد اضافة الصفر في عمود الرقم سيبقى اسم المكتب خالي وحين تنقر على مربع التحرير (المكتب ) في النموذج الفرعي لتختار المكتب سيظهر لك في اسفل القائمة سجل خالي .. وطبعا يجب الا يظهر ومعالجته هو ان تضع معيارا في الاستعلام الذي هو مصدر الصف تحت عمود الاسم العبارة التالية : Not Is Null ارفقت لك المثال بعد التعديل للاطلاع devicesdb4_0.rar

تفضل مثالك بعد التمحيص عدلت على الحقل المذكور بحيث يظهر افتراضيا تاريخ اليوم ومع ذلك يمكنك التعديل عليه لتواريخ سابقة جرب حضور وانصراف موظفينV2011_v030.rar

يمكن اني وجدت ثغرة دعني اتأكد منها شوف لما تعمل تحضير وتظهر مشكلة التاريخ اعد النقر مرة اخرى وشوف هل تختفي المشكلة ؟

الحقل Me.txtDatetest هذا قيمته ثابتة ولا يمكنك تغييرها وهي تاريخ اليوم لذا انا وضعت القيمة مباشرة في الكود في الكود 15 ليوم الخميس فقط والذي = 5 اما اذا عملت تحضير يوم الجمعة فسيعطيك كباقي الايام انت لم تجعل شرطا على ايام العطل هل تريد الحقل Me.txtDatetest قابل للتعديل بان تكتب فيه تواريخ سابقة ؟

ثم اعطني خطوات العمل .. كما تجرب انت

شغلته اكثر من مرة وكلها يعطي نتائج صحيحة Private Sub cmdSetAll_Click() On Error GoTo Errw Dim i As Integer Dim Dday As Integer DoCmd.GoToRecord , , acFirst For i = 1 To Me.Recordset.RecordCount If (Me.Emp_ABSCENT) = True Or (Me.Vacation) = True Then Me.Dwam_Date = Date DoCmd.GoToRecord , , acNext GoTo nxfor End If Dday = Weekday(Date) If Dday = 5 Then Me.Dwam_Date = Date txtTimeIn.Value = "07:00" Me.txtTimeOut = "15:00" ElseIf Dday <> 5 Then Me.Dwam_Date = Date txtTimeIn.Value = "07:00" Me.txtTimeOut = "16:00" Else Me.txtTimeIn.Value = "" Me.txtTimeIn.Value = "" End If DoCmd.GoToRecord , , acNext nxfor: Next i Exit Sub Errw: MsgBox "لقد تم اعتماد الانصراف بنجاح", vbOKOnly End Sub

اصلا عند تحضير السجلات تنزل جميع التواريخ اللي اعمله انا : 1- احذف سجلات الحضور جميعها من الجدول 2- افتح نموذج التحضير وانقر على تحضير السجلات فتنزل جميع السجلات مع تاريخ اليوم 3- اشغل الكود ... الكود فقط يقفز عن السجلات محل الشرط المعنى ان التاريخ موجود فعلا .. فلماذا يتغير عندك؟

لكنه عندي ظاهر على كل حال استبدله بهذا التعديل On Error GoTo Errw Dim i As Integer Dim Dday As Integer DoCmd.GoToRecord , , acFirst For i = 1 To Me.Recordset.RecordCount If (Me.Emp_ABSCENT) = True Or (Me.Vacation) = True Then Me.Dwam_Date = Date DoCmd.GoToRecord , , acNext GoTo nxfor End If Dday = Weekday(Date) If Dday = 5 Then Me.Dwam_Date = Date txtTimeIn.Value = "07:00" Me.txtTimeOut = "15:00" ElseIf Dday <> 5 Then Me.Dwam_Date = Date txtTimeIn.Value = "07:00" Me.txtTimeOut = "16:00" Else Me.txtTimeIn.Value = "" Me.txtTimeIn.Value = "" End If DoCmd.GoToRecord , , acNext nxfor: Next i Exit Sub Errw: MsgBox "لقد تم اعتماد الانصراف بنجاح", vbOKOnly

جرب هذا ووافنا بالنتيجة 'On Error GoTo Errw Dim i As Integer Dim Dday As Integer DoCmd.GoToRecord , , acFirst For i = 1 To Me.Recordset.RecordCount - 1 If (Me.Emp_ABSCENT) = True Or (Me.Vacation) = True Then DoCmd.GoToRecord , , acNext GoTo nxfor End If Dday = Weekday(Date) If Dday = 5 Then Me.Dwam_Date = Date txtTimeIn.Value = "07:00" Me.txtTimeOut = "15:00" ElseIf Dday <> 5 Then Me.Dwam_Date = Date txtTimeIn.Value = "07:00" Me.txtTimeOut = "16:00" Else Me.txtTimeIn.Value = "" Me.txtTimeIn.Value = "" End If DoCmd.GoToRecord , , acNext nxfor: Next i Exit Sub 'Errw: MsgBox "لقد تم اعتماد الانصراف بنجاح", vbOKOnly