ابوخليل

ايضا لدي توجيه للاستاذ حمدي _ وسبق ان نبهت عليه ما دام الاستاذ موسى اجرى تعديلات جوهرية على الملف _ حاول ان تجعل هذا الملف هو الاساس عند طلبك لتعديلات اخرى حول واتساب قم بتسميته اسما فريدا يخصه بحيث تصل اليه بسهوله اعتقد انك تفهم قصدي .. لانك في كل استفسار ترفق مثالا يختلف عن ما سبقه . يجب ان يكون العمل تراكمي على مثال واحد .. وتكتفي انت بالنسخ واللصق في برنامجك اذا طبقت هذا ستجد القبول من اخوتك وستجد سرعة المبادرة في مساعدتك

شكرا استاذنا على التعقيب وبهذا يصبح الكود حسب ما هو مطلوب : Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = 111 Then If x_change = 0 Then ctl.Locked = True Else ctl.Locked = False End If End If Next ctl

نعم يمكن لو تفحصت خصائص الحقل لوجدت ما تبحث عنه فقط نستبدل Enabled بـــــ Locked ملحوظة : اجريت بعض التعديل على ترتيب الكود .. واضافة بسيطة عند فتح النموذج الأول من اجل زيادة الضبط فاعتمد هذا التعديل تفعيل خانة الاختيار3.accdb

وعليكم السلام الخلل لديك في خصائص العلاقة بين الجدولين اذا ربطت جدول الاسماء بجدول الدرجات ، اجعل العلاقة رأس لأطراف واجعل الخصيصة : (سجل في جدول الاسماء لجميع السجلات في جدول الدرجات ) يمكنك عمل العلاقة في الاستعلام فقط ولا يلزم عملها في الجداول

عليكم السلام ورحمة الله وبركاته بما ان التعامل سوف يكون بين كائنين منفصلين ، لذا يلزم ان نوجد بينهما رابط يعرفه كل منهما وهو تعريف متغير عام يتم تحديد قيمته عند تحديث خانة الاختيار انظر للفكرة في مثالك المعدل تفعيل خانة الاختيار2.accdb

تفضل حسب فهمي لطلبك 999Up.rar

لإثراء الموضوع هذه مشاركة مع اخي جعفر المثال عندي جاهز فاحببت ارفاقه الفكرة نفسها .. msgpass.accdb

صحيح تتغير من دون ضغط وفك ولكن لن تستطيع فتح النماذج والتقارير على التصميم ، ولا يمكنك رؤية الأكواد هذا يعني ان الصيغة لم تتغير وانما تغير الامتداد فقط

اخي العزيز ابا جودي عظم الله اجركم في والدكم وأحسن عزاءكم وألهمكم الصبر والسلوان انا لله وانا اليه راجعون اللهم اغفر له وارحمه واسكنه الفردوس الأعلى من الجنة

اخي الكريم احمد صحيح اني عملت قبل سنوات على قاعدة بيانات sql لكني لست خبيرا فيها لذا تلاحظ اني استعنت بخبير في هذا المجال حين قدمت لك المساعدة في هذا الموضوع علما اني متأكد انك سوف تجد الحل ، فقط المحاولة والبحث في قوائم القاعدة

الاستاذ خليفة غفل ان يضيف علامة التنصيص المفردة ليصبح السطر : Set rs = CurrentDb.OpenRecordset("Select * From Stock Where id='" & Me.article &"'") جرب لعل تضبط معك

GoDaddy

اخ عزيز وغالي .. لك كل المحبة والتقدير قد يجد مني البعض بعض الحدة ولعل هذا طبع جبلت عليه ، وكما تعلم يصعب تقويم الغصن بعد جفافه ، ولكني ان شاء الله لم ولن اتجاوز إلى ما ذكرت ..

الاشياء المنطقية بالامكان تحقيقها .. في عالم البرمجة لا يوجد كلمة لا يمكن فما كان مستحيلا بالأمس يمكن تحققه اليوم وانت تريد مربع الحوار ان يظل مفتوحا لتختار الصور واحدة بعد الاخرى دون الرجوع الى الزر .. ولكن يجب ان نراعي بعض الأمور 1- وظيفة الزر انه يتفحص المتغيرات ليختار منها الذي لا يحمل قيمة 2- لكل متغير مربع صورة تخصه في النموذج 3- تصور انك ستجلب الصور من اكثر من مكان على الحاسب 4- في الغالب المرفقات عبارة عن مستند او صورة واحدة 5- لو سلمنا ان مربع الحوار سيبقى مفتوحا فسوف نضطر الى اغلاقه يدويا اخيرا رحم الله امرءاً عرف قدر نفسه .. فليس لدي تصور لتنفيذ الفكرة .. فلعل احد اخواننا الخبراء لديه تصور وتمكن من ذلك هذه يسيرة يمكنك عملها ... قم بتصغير المربعات واجعلها بجانب بعض واضف مربعا رابعا ولو كان خاليا واحط الكل باطار ..

جرب هذا =iif(DLookUp("[ShiftType]";"QSUnit";"[QSUnit]![empName]=[EMPN]and [UNIT]=[UNIT] and [D] =10")=null;Nz(DSum("[blance]";"recept";"[acc_no_recpt]=" & [Forms]![n_name]![av1] & "AND date < [Forms]![n_name]![av3]");0);0)

اتوقع ان الاخ يريد طباعة ما يكتبه في النموذج بدون تحديد عدد السجلات وخاصية ادخال البيانات في النموذج = نعم هذه فيها اشكالية لان البيانات لا تدرج في الجدول الا بعد تحديث النموذج ، وعند التحديث تختفي البيانات من النموذج فأنا عملت في المثال ادناه تحديث للحقل او السجل فقط ، وحتى نتمكن من التصفية من خلال النموذج اضفت حقل لتاريخ اليوم انظر المثال المعدل ووافنا بالنتيجة Database6.rar

زودنا باسم الجدول واسم الحقل

يمكن ولكنك بحاجة الى استعراض جميع الصور للتأكد ان ما سوف ترسله صحيح وهذا صعب اذا جمعنا الروابط في حقل واحد ، ايضا عند الارسال انت مضطر لفصل الروابط مرة اخرى ................................................................... تفضل طريقة جديدة فريدة لجلب الصور يمكنك جلب ثلاث صور ومعاينتها من زر واحد بمعنى انقر على زر جلب صورة ثم اختر الصورة ستجدها استقرت بالمربع الاول ثم انقر ثانية لجلب الصورة الثانية في المربع الثاني وهكذا ... ارسال اكثر من صورة .rar

اقرأ ما سألتك عنه جيدا اي نموذج ؟ في المثال نموذجان

حبيبنا كلها من الجدول ولا فرق تقصد جلب القيمة داخل النموذج مباشرة او عن طريق الوحدة النمطية ، فهذا انت اجبت عليه : اذا كان الكود يستخدم في اكثر من مكان فلا شك الوحدة النمطية افضل ن سواء كانت عامة او خاصة داخل النموذج ، وتتبين الفائدة عندما تريد التعديل على العملية مئات الدالات التي وفرها اكسس عند كتابة الاكواد هي عبارة عن وحدات نمطية .

هذه صورة للتقرير عندي بعد تطبيق الدالة على الحقلين الاخيرين وهذا مثالك بعد التعديل test11.rar

مثالك غير واضح تماما يوجد نموذج وآخر تمت تسميته على انه فرعي والتقرير مصدر بياناته الجدول اين تكتب البيانات في اي نموذج ياليت ترفع لي صور لما تريد ان يتم عمله

تفضل Public Function SubSalary3(fld As String) Dim i As String i = DLookup("[النسبة]", "tp2", "[المنصب]='" & fld & "'") SubSalary3 = i End Function نناديه هكذا Me.a5 = SubSalary3(a4)

اضف للكود الدالة NZ واجعلها ترجع x عند عدم البيانات هذا كود لآخر حقل عندك ...............طبق على البقية =nz(DLookUp("[ShiftType]";"QSUnit";"[QSUnit]![empName]=[EMPN]and [UNIT]=[UNIT] and [D] =10");"x")

لانك في مربعات التحرير اعتمدت على القيم فهكذا ستكون الوحدة النمطية : Public Function SubSalary3() Dim i As String i = DLookup("[النسبة]", "tp2", "[المنصب]='" & Forms!form1!a4 & "'") SubSalary3 = i End Function ونناديها هكذا : Me.a5 = SubSalary3() لو بنيت مربع تحرير المنصب في الجدول الرئيس على جدول tp2 وجعلته عمودين .. ويكون العمود الافتراضي رقمي ومخفي والعمود الظاهر هو قيمة النسبة لامكن بناء وحدة نمطية مختلفة