ابوخليل

تم عمل نموذج الجلسات من فورم اعداد الخطة انقر نقرا مزدوجا على رقم الخطة المراد تقييم الجلسة فيه سيفتح لك فورم الجلسات يتم فيه عرض الهدف والنشاطات التابعة له . بعد اختيار نوع الجلسة ، والتقييم ، والمختص يتم الحفظ بالنقر على زر حفظ عند الحفظ ستختفي هذه المهارة من فورم الخطة اضفت ايضا بعض الكائنات التي سوف تحتاج اليها مستقبلا .. ستلاحظها داخل مشروعك الآن وبعد تجربة العمل من خلال النموذجين سيتبقى المخرجات التي هي التقارير حاول ان تبني التقارير بنفسك ... اتمنى لك التوفيق .. برنامج التخاطب والمهارات 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

لم يظهر لان ليس له مقابل في جدول المكاتب وبما ان الموظفين ليس لهم مكاتب فنعوض عن القيمة بصفر اضف صفر الى جدول المكاتب tblSchoolOffice كما في الصورة

لعل القصد الحروف وتعديلها وليس التحريف بمعناه المتبادر

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

تمام .. عمل جميل .. والى الاحتراف انا عدلت تعديل طفيف على حقل المكتب 1- جعلته لا يكون متاح حتى تختار المدرسة 2- حولت الحقل في نموذج العرض الفرعي الى نصي بدلا من مربع التحرير 3- ايضا وضعت رسالة خلف زر جديد اذا لم يتم اختيار جديد devicesdb4_0.rar

Dim frmName As String Dim stlink As String frmName = "اذن الصرف" stlink = "[رقم الفاتورة]=" & Me![رقم الفاتورة] DoCmd.OpenForm frmName, , , stlink Database2.rar