ابوخليل

السلام عليكم اهداني اخي العزيز @حسونة حسين ملف اكسل يحتوي على جميع مواضيع منتدى اكسس وبروابط مباشرة اضعه بين ايديكم لا تنسونا من دعوات صالحات *********************** ( إضافات للموضوع - Moosak ) قمت بعمل تصميم بسيط لنموذج البحث وأضفته إلى الموضوع الرئيسي بعد أذن أستاذنا أبو خليل 🙂 بمجرد الكتابة تظهر النتائج .. لاستعراض الموضوع يتم الضغط على العنوان مباشرة النقر المزدوج على مربع البحث يعيد إظهار جميع النتائج 🙂 يمكن البحث بكلمات متفرقة في الجملة .. Search_Officena_Access.rar ********************************************** Access.rar

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

استاذنا اذا لم يتح فلا بأس فليس من الاهمية بمكان .. الأهم هو معالجة المشكلة في ارسال الصور كما بين الأخوة

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

اختلف برنامجي في رمضان واحتاج الى ايام لتنظيم الوقت المتاح للمنتدى ، ولكن شدني النداء نعم انت نبهته ان هو اراد الناتج مع الكسور ووافق .. ورأيت التعديل .. كتب الله اجرك ابا احمد ، هو رأى نتيجة المهندس قاسم بلا كسور فكانت اقرب الى نفسه ولكن التطبيق من خلال الكود اكثر احترافية .. فلما عاتبته قام بالغاء افضل اجابة برجاء الحصول على نتيجة افضل . سأكون وسيط خير بينكم لعلي افوز بافضل اجابة ... دمجت الفكرتين وبفضل الله خرجت بهذا الكود آمل الاطلاع من الجميع والتقييم Function GetMonths30(Date1 As Date, Date2 As Date) As Long Dim d1, m1, d2, m2 As String Dim y1, y2 As Integer Dim sum_d, sum_m, sum_y, sum_days As Integer Dim tst1, tst2 As Long d1 = Format(Day(Date1), "00"): d2 = Format(Day(Date2), "00") m1 = Format(Month(Date1), "00"): m2 = Format(Month(Date2), "00") y1 = Year(Date1): y2 = Year(Date2) tst1 = y1 & m1 & d1: tst2 = y2 & m2 & d2 If tst2 < tst1 Then Exit Function sum_d = Abs(Int(d2) - Int(d1)) sum_m = Abs(Int(m2) - Int(m1)) * 30 sum_y = (y2 - y1) * 360 sum_days = sum_y + Abs(sum_m - sum_d) GetMonths30 = sum_days End Function months30.accdb

@SEMO.Pa3x بعد التجربة اتضح ان المثال يستخدم واتساب ويندوز .. وليس واتساب ويب هل يمكن فتح الواتس من قوقل مباشرة

غير الفاصلة ; الى الفاصلة , "RD" & [report_No] & Format([txt5],"mm" & Format([txt5],"yy"))

اذا في النموذج ضع في الحدث الذي تراه مناسب لأحد الحقول ولنفرض ان الحدث بعد التحديث اذا اعتبرنا ان اسم الحقل المنضم txtNo txtNo="RD" & [report_No] & Format([txt5];"mm" & Format([txt5];"yy"))

لا يفتى ومالك في المدينة

راجع تواريخك .. هذا لا يمكن .. انت كتبت هذا التاريخ عدة مرات .. ربما يقصد 1-3 وليس 30-3

وجدت لك مثالا يساعدك تم تطبيق الدرس في الرابط اعلاه اخراج المستخدمين من التطبيق.rar

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

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

تم ضبط المرفق حسب المستخدم وقسمه الطلبية الآن في القسم الاداري والموظف يوزر = 10 وباسورد=10 الادمن حسب الوظيفة = admin بغض النظر عن القسم DataUser2.rar

ابشر .. سأنظر فيها .. امهلني فقط اجد الوقت

عمل جميل جدا ومتقن لكني اسأل لماذا انتظر ؟ اذا عمليات تجري في الخلفية والانتظار من اجل تكتمل فهذا جيد وحينها يجب الربط بين الشريط وبين الزمن الذي تستغرقه العملية

القائمة او نموذج فرعي هذا الذي اعلمه

اللهم اهله علينا بالأمن والإيمان وسلامة القلوب والأبدان

لأن العنوان الحالي مختلف لذا رأيت ان افرد له عنوانا يخصه تفضل هنا

السلام عليكم خاص لقاعدة البيانات المنقسمة قد يحدث مشكلة لقاعدة بياناتك على الخادم وحينها تضطر الى الدخول للموقع وعمل ضغط واصلاح يدويا في هذا الموضوع ارفقت نموذج ووحدة نمطية تقوم نيابة عنك وبضغطة زر باخذ نسخة اولا ثم الضغط والاصلاح نسختين .. mdb و accdb انقل لبرنامجك النموذج والوحدة النمطية غير اسم الجدول المحاط بالمربع الأحمر الى احد جداولك المرتبطة Private Sub zer1_Click() Call BKUpdb Call CompactSer End Sub نسخة جداول واصلاح.rar

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

تفضل ابحث بأي شيء بالاسم او الهوية او الايبان او الهاتف برنامج البحث2.accdb

SW_HIDE 'اخفاء SW_NORMAL 'عادي SW_MINIMIZED 'تصغير SW_MAXIMIZED 'تكبير Call ShowWindow(hWndAccessApp, SW_HIDE) غير ما لون بالاحمر حسب رغبتك

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

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