ابوخليل

ملحوظة في مثالك يوجد فنكشن مفقود باسم mm()

لم ابحث في الخطوط ، يمكن ان نجد خطا مشابها ولكن لدي مثال لرسم هذه الكلمات بالكود في التقرير للاستاذ منصر الآنسي تفضل اذا كانت تفي بالغرض التقارير الآنسي2.mdb

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

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

تفضل Private Sub cmb_Committe_Click() If cmb_Committe = "النموذج الاول" Then DoCmd.OpenForm "نموذج1" ElseIf cmb_Committe = "النموذج الثانى" Then DoCmd.OpenForm "نموذج2" ElseIf cmb_Committe = "النموذج الثالث" Then DoCmd.OpenForm "نموذج3" End If End Sub القوائم2.rar

انظر هذه المشاركة تماما مثل طلبك ثم انظر الحل في المشاركة التي تليها

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

شكرا استاذنا على التعقيب وبهذا يصبح الكود حسب ما هو مطلوب : 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

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