طاهر الوليدي

وكنت اريد معرفة خط الاقفال في التقرير نفسه هل من الممكن وضع اسماء الموقعين بنفس طريقة خط الاقفال

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

نعم اكيد

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

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

مرفق المثال تغيير القيمة الافتراضية برمجياً.rar

التحكم بالقيمة الافتراضية برمجيا في حقل النص Private Sub YourTextControlName_AfterUpdate() If Not IsNull(Me.YourTextControlName.Value) Then YourTextControlName.DefaultValue = """" & Me.YourTextControlName.Value & """" End If End Sub في حقل الرقم Private Sub YourNumericControlName_AfterUpdate() If Not IsNull(Me.YourNumericControlName.Value) Then YourNumericControlName.DefaultValue = Me.YourNumericControlName.Value End If End Sub في حقل التاريخ Private Sub YourDateControlName_AfterUpdate() If Not IsNull(Me.YourDateControlName.Value) Then YourDateControlName.DefaultValue ="#" & Me.YourDateControlName & "#" End If End Sub كود تثبيت DoCmd.Save ObjectType:=acForm, ObjectName:=Me.Form.Name

هذا مثال من الاخت زهرة ممكن تستفيذ منه del_rb.rar

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

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

يعطيك العافية واشكرك اخي العزيز مرفق مثال بواسطة الز اريد تطبيقه على مربع الصح لتاريخ فقط

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

ممتاز الطريقة جميلة وبارك الله في علمك وافكارك

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

عند وجود معلمات في الاستعلامات المدرجة ضمن المعايير مثلا يطلب منك ادخال رقم 1 لظهور تقرير محدد على سبيل المثال رقم صنف لاظهار بيانات الصنف واذا كان معي اصناف من 1-100 صعب اني اجلس كلما ظهرت رسالة اقوم بادخال الارقام الى 100 هل يوجد طريقة نفس طريقة التاريخين والكومبو بان ضع الارقام من 1-100 تقوم عملية طباعة الاصناف من 1-100 ولكم الشكر

If MsgBox("هل تريد حذف السجل", vbYesNo + vbCritical + vbMsgBoxRight + vbDefaultButton2, "تحذير") = vbNo Then Exit Sub Else DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord Refresh DoCmd.SetWarnings True End If

ممكن استاذي ارسال التطبيق

لماذا لايكون لانذار عند الحذف افضل

حاولت تطبيقه على رسالة تحذير للحذف لم استطيع كيف يتم التعديل استاذي الفاضل ابو ادم

ممكن ترسله على الاميل التالي وبارك الله فيك وفي مجهودك th.alwlidi@gmail.com

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

ارسل الجزء المطلوب نعدل عليه ونعيده لك

اخي العزيز kaser906ممكن تعيد ارسال ماقمت بعمله لانها للاسف لم تعمل معي

ماشاء الله تسلم افكارك وابدعاتك الله يعطيك العافية

شكرا جزيلا واعتذرمنك اخيkaser906 حصل لخبطه بين المرسل وماتم تنزيله من قبلكم ونشكر مجهودكم ونكرر الاعتذار ونشكر اخي husamwahab وبارك الله فيكم جميعا ونفع الله بعلمكم