mrnooo2000

اليك هذا المثال به ما تريد New Microsoft Office Access Application.rar

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

تفضل اخى OpenForm2.rar

جزاك الله خيرا اخى الكريم و لكن ما رأيك ان نبسط الامور أكثر من ذلك بكود بسيط يمكنك وضع هذا الكود فى حدث عند الفتح للنموذج حتى لا تشعر بالمسألة أصلا او وضعه فى كود الزر Dim db As DAO.Database Dim tdf As DAO.TableDef Set db = CurrentDb() For Each tdf In db.Table…

اخى الافضل بدلا من استخدام نموذج وورد به علامة مائية ان يكون ورق الطباعة هو المؤمن ( تضع به العلامات و الرسومات التى تريد ) ثم يتم طباعة البيانات على هذه الاوراق و الله أعلم

اخى الكريم ما دام الامر كذلك فالحل بسيط الكود الاول يحل المشلة عند الانتقال الى سجل جديد من الزر و نسيت النموذج الفرعى و لكى تحل المشكلة كليا ضع كود الترقيم فى حدث قبل التحديث أيضا مع وجوده فى حدث قبل الادخال Private Sub Form_BeforeInsert(Cancel As Integer) Me…

اخى الكريم امامك خيارين اما ان تضع هذا الكود عند فتح النموذج docmd.gotorecord ,,acnewrec او ان تعدل خصائص النموذج اجعل خاصية ادخال البيانات نعم او dataentry yes كما بالصورة المرفقة

اليك ما طلبت Atten.rar

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

ضع هذا الكود فى حدث عند الضغط لزر الذهاب الى سجل جديد On Error GoTo Err_NEW_Click newrec: DoCmd.GoToRecord , , acNewRec Exit_NEW_Click: Exit Sub Err_NEW_Click: Select Case Err.Number Case 2105 Me!ID = Nz(DMax("[ID]", "[importationtable]"), 0) + 1 Resume newrec…

أمين و لك مثله ان شاء الله اخى الكريم

اذا ارجو الشرح على مرفقك لتوضيح المطلوب

ستجد هذا الحقل فى مصدر التقرير او الاستعلام

اضف هذا الحقل الىالجدول القديم بعد استيراده ثم قم باستيراد الاستعلامات

هل عدلت على الجداول ايضا؟

و هذا تصور سريع لبناء القاعدة بشكل صحيح بيانات الموظفين.rar

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

و هذا الاستعلام سيكون اسرع و بدون اضافة حقل جديد SELECT Items.NoItem, Items.Item, Last(Moves.Date) AS LastOfDate, Last(Moves.QTY) AS LastOfQTY, Last(Moves.Price) AS LastOfPrice FROM Items INNER JOIN (Moves LEFT JOIN [SELECT Items.NoItem, Items.Item, Last(Moves…

تفضل اخى فقط قم باضافة حقل ترقيم تلقائى الى جدول الحركات باسم id و استخدم هذا الاستعلام SELECT Items.NoItem, Items.Item, DLast("Date","moves","id<" & DLast("id","moves","noitem=" & items.noItem) & " and noitem=" & items.noItem & "") AS d, DLast("qty","moves","…

تفضل اخى لاحظ مصدر النموذج الفرعى بحث.rar