أبو حوده

جرب هذا الكود على زر الامر اللى بتفتح به النموزج الجديد ' افتح الفورم الجديد DoCmd.OpenForm "NewFormName" ' اجعل الفورم الرئيسي يذهب إلى الخلف Me.SetFocus DoCmd.RunCommand acCmdAppMinimize DoCmd.RunCommand acCmdAppMaximize

للرفع

السلام عليكم ورحمة الله وبركاتة فى مشكلة واجهتنى عند دمج داله DLOOKUP مع IF الشرط الاول يطبق بدون مشاكل لكن الشرط الثانى هو المشكلة مش عارف ايه مشكلتة بيظهر نتائج غلط ومرة يظبط و10 لا المفروض يدور على القيمة فى الجدول CUSTOMERS لكن هو على ما اعتقد فية حاجة غلط مش عارف اوصلها ممكن مساعدة فيها والكود بيشتغل عند الاختيار من مربع السرد والتحرير المشكلة بوضوح عند البحث من خلال Combo box لو الاسم دة موجود فى جدول CUSTOMERS بتطابق ثلاث حقول يحذف نهائى عن طريق الرساله التى تفيد بأنه مكرر ( مثل الاسم / جمعة سلامة مطاوع من القاعدة ولو تم تطابق الاسم من جدول X مع الاسم من جدول CUSTOMERS ويكون تاريخ الحجز الموجود فى جدول X اكبر من تاريخ الحجز فى جدول CUSTOMERS بمقدار 15 يوم تظهر الرساله تفيد بأن السجل مكرر زى مهتظهر الرساله لحضراتكم بالضبط لكن المشكله ان مثلا السجل بأسم / طاهر علي حسن بتظهر عليه الرساله رغم انه مش موجود اصلا فى الجدول CUSTOMERS مع العلم ان ممكن الاسم يتكرر فى جدول X اكتر من مرة وانا بقوم بالفلترة اول بأول على حسب الاجراءات . دمج IF DLOOKUP.accdb

السلام عليكم ورحمة الله الله وبركاتة اولا انا عارف ان الموضوع تمت الاجابة عنه سابقا ولكن الفكرة عجبتنى جدا فسؤالى لاخى فى الله الاستاذ @سامي الحدادلكن لو قمنا بعمل جدول تانى وليكن باسم input1 وعملناه مصدر لنموذج تانى وليكن باسم m1 والجدول ده هو اللى هيبحث فيه عن تكرار لو السجل اللى انا ادخلته فى الجدول الاول اللى هو input موجود فيه تظهر الرساله ان مكرر ويظهر السجل على النموزج m1 حاولت اعملها لكن فشلت ممكن مساعدة هنا ولا افتح موضوع جديد ونضع السؤال فيه ارجو الافاده abcd.accdb

هو المطلوب بارك الله فيك اخى @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 فأنا مش عارف هل يوجد عندى خلل فى القاعدة ام يوجد شى ناقص بالكود يارب ميكونش طلبى فيه ثقل على حضراتكم فانتم من عودنا على طلب المعلومة بدون استحياء

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

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

للرفع