ابوخليل

اختلف برنامجي في رمضان واحتاج الى ايام لتنظيم الوقت المتاح للمنتدى ، ولكن شدني النداء نعم انت نبهته ان هو اراد الناتج مع الكسور ووافق .. ورأيت التعديل .. كتب الله اجرك ابا احمد ، هو رأى نتيجة المهندس قاسم بلا كسور فكانت اقرب الى نفسه ولكن التطبيق من خلال الكود اكثر احترافية .. فلما عاتبته قام بالغاء افضل اجابة برجاء الحصول على نتيجة افضل . سأكون وسيط خير بينكم لعلي افوز بافضل اجابة ... دمجت الفكرتين وبفضل الله خرجت بهذا الكود آمل الاطلاع من الجميع والتقييم 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 مشاركة لا مشكلة اخي اذكر حاجتك هنا ايضا لم تعلق وتبدي رأيك في المرفق

تجدها ضمن خصائص الحقل لسان التبويب : تنسيق / لغة لوحة المفاتيح

سنحصر العمل حسب طلبك ((( كيفية إرسال سجلات معينة لقسم معين )))) واعذرني عن المواصلة .. وبإذن الله ستجد الدعم والمساندة من اخوتك هنا . ستجد في المرفقات فكرة انتقال السجلات بين الاقسام اقرأ الخطوات لتفهم فكرة العمل . 1- قسم المشاريع هو الادمن او المسؤول عن انشاء الطلبية وانهائها 2- لا يظهر الا طلبية واحدة وهي التي قيد التنفيذ .. اذا تم انهاؤها يقوم قسم المشاريع بانشاء طلبية جديدة 3- قسم المشاريع يفتح مباشرة على الواجهة الرئيسية وفيها زر متاح له وحده للاطلاع على الطلبية ، وكذلك زر الإنهاء في فورم الطلبية خاص به وحده 4- اي قسم تم توجيه الطلبية له يظهر له تنبيه بوجودها ويخير بين فتحها او فتح الواجهة الرئيسية 5- اذا تم فتح الطلبية وتم عمل اللازم يمكنه تحويلها الى القسم المختص ويحفظ مع الخروج . 5- الاقسام الاخرى يتاح لها فقط الواجهة الرئيسية . الآن الطلبية متاحة لقسم المالية ملحوظة : اذا راقت لك الفكرة استبدل الاقسام بالمستخدمين حسب اليوزر DataUser.rar

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

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