أبو حوده

هو المطلوب بارك الله فيك اخى @abouelhassan سلمت يداك وجعله الله فى ميزان حسناتك

السلام عليكم ورحمة الله وبركاتة المطلوب : استخراج تاريخ التجديد حتى يصبح اكبر من تاريخ الجهاز بمعنى لو عند إضافة 5 سنوات للتاريخ والناتج اقل من تاريخ الجهاز يفضل يضيف خمسة سنوات لغاية ميبقى الناتج اكبر من تاريخ الجهاز مع الاحتفاظ بيوم وشهر التعيين زى اول خليه منا عملتها بيدى ومرفق مثال للتوضيح شرط 1.xlsx

طيب ماهية كيفية عمل ذلك

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

ربنا يبارك فيكم اجمعين مش عارف اعطى افضل اجابة لاى مشاركة 😄 تم حلها عن طريق الوحدة مرة وعن طريق تعديل رأس الكود الى as long مرة ثانية ومنسيتش مشاركة استاذنا الفاضل @ابوخليل ربنا يبارك فيكم ويجعلة فى ميزان حسناتكم امين يارب بحق هذه الايام المباركة بشكر حضراتكم جدا وكل عام وحضراتكم بخير

انا اسف لارهاق الجميع معى لكن هذا مثال مصغر للمشكلة التى تواجهنى New Microsoft Access قاعدة بيانات.accdb

فى كلا الكودين بيظهر نفس الخطأ مش عارف المشكلة من عندى ولا لا انا بستخدم اوفيس 2013 New Bitmap Image (2).bmp

نعم استاذنا ومعلمنا ومشرفنا القدير @ابوخليل يوجد علاقة تكامل مرجعى بينهمNew Bitmap Image (4).bmp

عملتها بالفعل ويظهر هذا الخطأNew Bitmap Image (2).bmp New Bitmap Image (2).bmp

طيب حضرتك لو اسم الحقل المربوط به الجدولين فى جدول الفاتورة بيكون اسمة FatoraId وفى جدول الحركة بيكون اسمة Fatora_id بيكون الكود فية اختلاف كبير معلش هتعبك معايا لانى حاولت استبدالهم لكن معرفتش

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

السلام عليكم ورحمة الله وبركاتة كل عام وحضراتكم بخير واللهم بلغنا رمضان لا فاقدين ولا مفقودين امين يارب العالمين عندى قاعدة بيانات وللاسف مش هعرف ارفقها لحضراتكم لاحتوائها على بيانات كثيرة جدا ولكن هوصل لحضراتكم المطلوب ان شاء الله زر بنموذج به كود حذف كافة السجلات بجدول الفواتير وجدول الحركات والكود هو Dim SQ1 As String Dim SQ2 As String Sq1 = "DELETE tblHaraka.* FROM tblHaraka;" SQ2 = "DELETE tblFatora.* FROM tblFatora;" If MsgBox("هل تريد حذف كافة السجلات", vbYesNo + vbCritical + vbDefaultButton1 + 1572864, Compan) = vbYes Then DoCmd.SetWarnings (warningsoff) DoCmd.RunSQL (Sq1) DoCmd.RunSQL (SQ2) DoCmd.SetWarnings (warningson) Me.Requery MsgBox "تم حذف كافة السجلات" Else MsgBox "تم الغاء العملية الحذف" End If المطلوب هو لو فيه سجل الجدول الاول ( فاتورة ) ورقمة مثلا 1001 وله سجل فرعى مرتبط به بالجدول ( الحركة ) عاوز استثنى السجل دة من الحذف بالكود اللى ذكرت بالاعلى فهل من طريقة لفعل ذلك

up

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

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