رمهان

مشاركة مع الاستاذ ابا جودي تم تعديل على الماكرو asdaa9988.rar

Private Sub Form_Open(Cancel As Integer) cmd_a.Enabled = Not IsDate(DLookup("HolidayDate", "tbl_Holidays", "HolidayDate=date()")) End Sub

وجرب Private Sub Form_Open(Cancel As Integer) cmd_a.Enabled = HolidayDate_list.ListCount = 0 End Sub

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

افضل طريقة تحويله الى نسخة accde اذا كان الاصدار 2007 واعلى او الى mde اذا كان الاصدار 2003 بالتوفيق

جرب For Each s In chose.ItemsSelected comment = comment & chose.ItemData(s) & vbCrLf chose.Selected(s) = False Next

For Each s In chose.ItemsSelected comment = comment & chose.ItemData(s) & vbCrLf Next

يظهر ان لديك جملة select او استعلام كمصدر للتقرير هناك حقلين بنفس الاسم ومن جدولين عليك التصريح باسم الجدول مع الحقل مثلا table1.fld1 بالتوفيق

اي نص تقصد ؟ عنوان العمود في ورقة البيانات ؟ ام القائمة المنسدلة في مربع التحرير ؟

عودة للمشاركة اعلاه هنا كيف نستفيد من فكرة اباجودي في رسم جدول في التقرير ويمكن بدمج خلايا محددة . هذه روابط تدور حول ما اشرت اليه وقد اكون مقصر فهذا ما استطعت اظهر به من البحث https://www.officena.net/ib/topic/24569-رسم-جدول-فى-التقرير-بناءاً-على-بيانات-معينة/?_fromLogin=1 https://www.officena.net/ib/topic/38468-هل-هناك-إمكانية-لإنشاء-جدول-بالتقرير/ https://www.officena.net/ib/topic/32989-تكرار-السجلات-فى-تقرير/ https://www.officena.net/ib/topic/48517-اريد-تنسيق-جداول-اكسس-2007-مثل-تنسيق-الجداول-في-اكسل/ هي تدور حول رسم جدول بالتقرير واعتذر للاخوة والاستاذ عبدالله لو خرج هذا قليلا عن الموضوع هذا المثال وفكرته : ضع مصدر للتقرير فقط وبدون مصدر لمربعات النص او اي عنصر اخر كعنصر خيار مثلا وغيره بالتوفيق SQLdemo_up.rar

السلام عليكم هذه الفكرة وبشكل بسيط جدا وعبارة عن كل ماحاول المستخدم تغيير عرض العمود او ارتفاع الصف يرجع كما هو محدد بالكود يمكن تطويرها فالبرمجة عالم مفتوح ضع الكود التالي عند رفع الماوس للنموذج الفرعي وليصبح الكود كاملا بالشكل التالي Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.الموديل.ColumnWidth = 1500 Me.سعر_البيع.ColumnWidth = 1500 Me.العدد.ColumnWidth = 1500 Me.نص19.ColumnWidth = 1500 Me.RowHeight = 300 End Sub بالتوفيق

هات مرفق بسيط يبين الخلل تحياتي

مشاركة مع اخي ابا جودي وبعد اذنه يمكن بعمل التنسيق الشرطي لنفترض اسم مربع التسلسل لديك t1 اذهب لمربع الاسم ثم اختر تنسيق شرطي وتعبير اشرط يكون =t1<=5 ثم اختر التنسيق المناسب وليكن تضليل بلون رمادي ثم تطبيق وموافق بالتوفيق

ايش رايك تقرا في موضوع tempvars هي جديده في اكسس ولما طلبت بالتمام ورائعة

ايش رايك في التعبير التالي ومشاركة مع الاحبة امسح كل الاكواد ضع التعبير التالي في مربع اليوم =Choose(Weekday([day_date]),"الاحد","الاثنين","الثلاثاء","الاربعاء","الخميس","الجمعه","السبت") وعليك بعمل مربع الشهر بالتوفيق

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

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

مشاركتك الاخيرة ولدة فكرة وسارفقها ان شاء الله ! واعتقد هي ستكون اجابة لتساؤلات طرحت هنا او في منتديات شقيقة ! فخليني ابحث عن تلك التساؤلات ومشاركتك هي اجابة شافية بدون اي اضافة تحياتي

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

هذا رابط القي نظرة اخ عبدالله وقبل كل شي

Horizontal = Horizontal & vbCrLf & rs(Feld2) بالتوفيق

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

هذا تعبير للعنصر الاول اكيد راح تعرف العنصر الثاني =IIf(IsError([Child7]![Text7]),0,[Child7]![Text7]) بالتوفيق

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