أبو حوده

هو المطلوب بارك الله فيك اخى @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

السلام عليكم ورحمة الله وبركاتة جمعة مباركة عليكم جميعا اخوانى كنت محتاج تعديل فى الكود دة علشان اخليه يفتح النموذج MAIN1 عندما يكون اسم المستخدم خالد وباقى المستخدمين يفتح زى مهو فى الكود frmend يعنى خالد يفتح ..... main1 اى مستخدم اخر يفتح .... frmend LogUser.UserName = Me.user LogUser.pass = Me.pass If LogUser.Valid Then Set MyUser = LogUser DoCmd.Close "DoCmd.OpenForm "frmend

اخى العزيز @ابوبسمله اسألك اللهم أن تجعله من عبادك السعداء في الدنيا والآخرة كما أسألك يا ربنا ألا تجعل الحياة له شقاء وأن ترزقه اللهم البركة والشفاء

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

بسم الله ماشاء الله هو المطلوب بالضبط تسلم يدك وجعله الله في ميزان حسناتك امين يارب

للرفع رفع الله قدركم

للرفع

السلام عليكم ورحمة الله وبركاتة لدى قاعدة بيانات بها عدد 2 نموذج استعلام كل استعلام ينفذ طريقة بحث مختلفة احدهما بالمقطع الاول من الاسم والاخر بأى مقطع من الاسم .. النموزج الاول اسمه FORM_Q3 ينفذ استعلام اى مقطع من الاسم وللتسهيل ازلت كود البحث لفتح النموزج مباشرة ومنه لنموزج به الملف الوظيفى عند الضغط على ملف الترقيات هيفتح نموزج به ترقيات الموظف لغاية هنا كويس المطلوب هنا بقى عند فتح نموزج FORM_T1/2 ( نموزج الترقيات )مربع نص غير منضم ياخد اسم الموظف ومربع اخر غير منضم ياخد رقم الكود .. ولغاية هنا انا عملتها ونجحت معاية المشكله اللى هتجننى بقى عند فتح نفس النموزج لكن من طريقة البحث الاخرى اللى هو نموزج FORM_Q5 بيانات الترقيات بتظهر بنفس النموزج اللى هو FORM_T1/2 لكن مش عارف اخلى اسم الموظف ولا رقم الكود يظهرو وهكتب تسلسل النمازج علشان محدش يتوه منى FORM_Q3 هيفتح FORM_FAR1 وعند الضغط على التعديل هيفتح FORM_T1/2 FORM_Q5 هيفتح FORM_FAR3 وعند الضغط على التعديل هيفتح FORM_T1/2 المطلوب مربع النص الغير منضم اللى فى نموذج FORM_T1/2 ياخذ قيمته من اى نموزج يفتحة سواء الاول او الثانى اسف على الاطاله ويارب اكون وضحت المعلومة New Microsoft Access قاعدة بيانات.accdb

السلام عليكم ورحمة الله وبركاته محتاج كود بداله if لو الخلية c2 اكبر من او يساوى 90 الخليه c3 تاخد رقم 1 ولو اكبر من او تساوى 70 : 89 تاخد رقم 2 ولو اكبر من او تساوى 50 : 69 تاخد 3 ولو اكبر من او تساوى 40 : 49 تاخد 4 ولو اكبر من 1 : 39 تاخد رقم 5 ولو تساوى 0 تاخد 6 فهل دة ممكن بداله if و لا ممكن نستخدم داله تانية ومعلش علشان انا 0 فى الاكسيل New Microsoft Excel Worksheet (2).xlsx

السلام عليكم ورحمة الله وبركاته محتاج كود يجعل اى تاريخ يبدا بــ 0000/2/1 يأخذ بجواره كلمة كادر ولكن مع اختلاف السنة كما هو موضح ومرفق مثال للمطلوب New Microsoft Excel Worksheet.xlsx

استاذى الفاضل @أ / محمد صالح اشكر حضرتك جدا لمرورك العطر على المشاركة وارفقت لحضرتك ملف به كمية من السطور تنفيذا لما اشرت به سابقا لعله يكون اوسع واشمل فى فهم الموضوع New Microsoft Excel Worksheet.xlsx