رمهان

العفو اخي حسن

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

يمكن حذف السطر Me.Requery وهذا سطر رمهاني لعيون ابا جودي Private Sub a1_Click() Me.code.Visible = Not Me.code.Visible End Sub تحياتي

جرب اخي شيفان ويمكن ان تضع الخط Ali-A-Alwand بدل Andalus بافتراض انه محمل لديل وعلى جهاز العميل تحياتي تحكم في نوع الفونت لحقل واحد من الحقول نموذج مستمر.rar

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

وعليكم السلام اخي صالح فيه ملاحظة بسيطة : لو كان التعديل بالسجل الاول . هنا عليك صيد الخطأ حيث لن يذهب للسابق وانت باول سجل وبعد ذلك سيننتقل السجل للسجل الذي يلي السجل الحالي تحياتي

الحدث مختلف . الاول على مستوى النموذج اي حدث للنموذج قبل التحديث. والاخير على مستوى العنصر وتصبح على خير استاذ محمد والصباح رباح

انبه فقط على ان الحدث مختلف . فقد يكون جربت بعد التحديث للعنصر. الاستاذ ابا جودي استخدم حدث ثبل التحديث وللنموذج الفرعي. تنبيه مرة اخرى وتحملني قليلا : الحدث قيل التحديث للنموذج الفرعي واسمحلي بالاختصار ليصبح شكل الكود كامل Private Sub Form_BeforeUpdate(Cancel As Integer) If DCount("PtNo", "OrderTbl", "[OrderDate]=[Forms]![MainFrm].[OrderSubFrm]![OrderDate] AND [PtNo]=[forms]![mainfrm]![PtID]") > 0 Then Cancel = MsgBox("الاسم مكرر") End Sub تحياتي

مشاركة مع اخي الاستاذ محمد اخي الكريم لا يوجد خطأ . فقط لن يحدث اي شي الا اذا قيمة naa اكبر من او تساوي 1 بالتوفيق

السلام عليكم احبتي بعد التمعن قليلا نتج معي التالي : 1. عند تجربتي لم استخدم المفتاح انتر بعد الادخال وانما استخدمت الماوس فلم تظهر المشكلة وعند التجربة قد قمت بحذف الكود الزائد وهنا اعتقدت ان المشكلة تكمن في الكود بينما المشكلة تظهر عند استخدام الانتر وحصرا فقط عندما يكون الادخال في السجل الاخير . وهنا اعتذر منكم احبتي 2. كانت هي ليست مشكلة وانما من الطبيعي انه عند الوصول للسجل الاخير بالنموذج الفرعي ثم الضغط على انتر ان يتقل التركيز للرئيسي ومن ثم سجلا جديدا لان الخيارات في الاكسس ومن خيار اعدادات العميل تجد الانتقال للحقل التالي لسلوك مفتاح الادخال . كما يمكن اظهار نافذة tab order لمعرفة تسلسل التاب فالنموذج الفرعي هو احد العناصر للنموذج الرئيسي . المقترحات : 1. وضع خاصية دورة للنموذج الرئيسي ومن التاب غير ذلك الى = السجل الحالي . فهنا عند الضغط على انتر بعد الرسالة وانت في السجل الاخير لا يذهب للرئيسي وسجل جديد الا اذا كنت محتاج وعمدا انه بالضغط على الانتر باستمرار ان يلف على سجلات الفرعي وعند الاخير يبدا بسجل تالي في الرئيسي وهكذا 2. الاستاذ اباجودي قام بتغيير موقع الحدث وعلى مستوى النموذج الفرعي وقبل التحديث فلافضل الاستفادة من الباراميتر cancel وبوضع cancel=true بديلا للتراجع والغاء الحدث 3. الاستاذ صالح حمادي استخدم الانتقال للسجل الاخير مما اجبر الاكسس عدم الذهاب للنموذج الرئيسي وهنا لو كان التعديل في وسط السجلات سيذهب دائما للاخير مما يجعلك تعيد البحث عن السجل الآنف تعديله وبصعوبة قليلا اتمنى ان ظهر السبب استاذنا محمد ايمن لعله يبطل العجب ولكم اجمل التحايا

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

جرب حذف الكود الزائد التالي Private Sub CustName_AfterUpdate() Dim StrSql As String StrSql = "SELECT OrderTbl.CustName, OrderTbl.OrderDate, OrderTbl.OrderID " & vbCrLf & _ "FROM OrderTbl " & vbCrLf & _ "WHERE (((OrderTbl.CustName) In (SELECT [Forms]![MainFrm]![CustName] FROM [OrderTbl] As Tmp GROUP BY [CustName],[OrderDate] HAVING Count(*)>1 And [OrderDate] = [OrderTbl].[OrderDate])) AND ((OrderTbl.OrderDate)=[Forms]![MainFrm]![OrderDate])) " & vbCrLf & _ "ORDER BY OrderTbl.CustName, OrderTbl.OrderDate;" If StrSql > 1 Then MsgBox "fdffffffffffff" End If End Sub حيث لايوجد عنصر بهذا الاسم تحياتي

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

اهلا بك استاذ شيفان اولا للتنبيه ورقة البيانات >> datasheet نموذج مستمر >> continuous ثانيا : يمكن تطبيق التنسيق كما تريد عن طريق التنسيق الشرطي تحياتي

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

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

حسب فهمي ومشاركة مع الاستاذ شبفان كود البحث وعند الضغط على زر بحث بالاسم Private Sub أمر39_Click() Me.Filter = "id=" & NAME_1 Me.FilterOn = True End Sub وكود الالغاء وعند الزر الكل Private Sub أمر42_Click() Me.FilterOn = False End Sub بالتوفيق

هنا اخ محمد كان المطلوب وهو حصرا ورقة بيانات تحياتي

العفو اخي الاستاذ محمد عصام الاخ الاستاذ عبدالله تفضل وبالتوفيق db2016.rar

سؤال جديد كليا ! اعود لك بالحل ان شاء الله

العملية سهلة اخي الكريم تستخدم docmd.output ثم تستخدم الاتمتة مع الاوت لوك بتعريف كائن اوت لوك ثم كائن المسج ثم تضيف المرفق للرسالة وحسب المسار السابق من امر docmd.output بالتوفيق

السلام عليكم يمكن تنفيذ ذلك اخ عبدالله بواسطة التقرير وخاصية running sum واعتقد معلومة لديكم اما اذا كان حصرا في استعلام فهنا يمكن : 1. ان تستبدل حقل الشرط بالحقل الذي بني عليه الترتيب وهنا : - اذا كان حقلا فريدا كان يكون تاريخا او قيم فريدة فهنا ما عليك الا استبدال الحقل بالحقل الفريد الجديد - اذا كان حقلا به قيم مكررة فيمكن عمل استعلام تجميعي اولا ثم dsum باستعلام جديد 2. عمل دالة برمجية تقوم بتنفيذ المطلوب وهنا نحتاج المثال العملي لكي يتم اختيار الطريقة المناسبة بالتوفيق

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

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

ان شاء الله يكون المطلوب وبمساعدة الاستاذ اباجودي taqteet.rar