أبو حوده

للرفع

السلام عليكم ورحمة الله وبركاتة

فى مشكلة واجهتنى عند دمج داله 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

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

منذ ساعه, Eng.Qassim said:

 يحتاج الى باراميتر لتمرير القيمة من خلال نص في النموذج

13 دقائق مضت, متقاعد said:

ويمكن الاستغناء عن ثمانية اسطر في الوحدة النمطية

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

ربنا يبارك فيكم اجمعين

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

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

12 دقائق مضت, ابوخليل said:

نسيت ان اذكر يجب تفعيل خانة تتالي الحذف في العلاقة ، من اجل تكتفي بحذف الجدول الرئيس

ربنا يبارك فيكم ويجعلة فى ميزان حسناتكم امين يارب بحق هذه الايام المباركة 

بشكر حضراتكم جدا وكل عام وحضراتكم بخير

انا اسف لارهاق الجميع معى لكن هذا مثال مصغر للمشكلة التى تواجهنى 

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