ابوخليل

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

تفضل 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

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

كذا لا يصلح يكون ازدواجية في العمل ، يجب العمل على ملف واحد انتظر حتى ارفق لك القاعدة في آخر تعديل الترقيم التلقائي يخص اكسس ولن يتغير من المعرفات شيء انا عملت لك كل ذلك

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

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