نجوم المشاركات

اذا جرب ان تكتب هذا في اسفل الكود SendKeys "{Enter}"

برنامج صغير لحساب العمر اهداء لكم حساب العمر.accdb

هذه الجدول مبينة في الصورة اضغط على كنترول و حرف A لتحديد الكل وبعدين اضغط كليك يمين على يمين الصورة اي المنطقة الصفراء جنب حقل اي دي واختر الاختيار الاخير وهو Row Height سيظهر لك نافذة صغيرة اكتب فيها رقم 20 واضغط Ok

اخي العزيز kanory لماذا الأسف؟؟ لا حاجة لذلك، فكلما كثرت الحلول زاد النجاح تحياتي

نعم هو نوع من الحماية ، يستخدمه المبرمج كجزء من الحماية جرب وانقل البرنامج الى جهاز آخر وانقل ملف التيكست ، فإن عمل معك فيعني هذا ان الملف هو الحماية التي اعتمدها المبرمج وان لم يعمل وطالبك برقم تسجيل فاعلم ان الملف المذكور جزء من الحماية فقط

استخدم: SendKeys قبل أي اختصار بين الاقواس BACKSPACE {BACKSPACE}, {BS}, or {BKSP} BREAK {BREAK} CAPS LOCK {CAPSLOCK} DEL or DELETE {DELETE} or {DEL} DOWN ARROW {DOWN} END {END} ENTER {ENTER}or ~ ESC {ESC} HELP {HELP} HOME {HOME} INS or INSERT {INSERT} or {INS} LEFT ARROW {LEFT} NUM LOCK {NUMLOCK} PAGE DOWN {PGDN} PAGE UP {PGUP} PRINT SCREEN {PRTSC} RIGHT ARROW {RIGHT} SCROLL LOCK {SCROLLLOCK} TAB {TAB} UP ARROW {UP} F1 {F1} F2 {F2} F3 {F3} F4 {F4} F5 {F5} F6 {F6} F7 {F7} F8 {F8} F9 {F9} F10 {F10} F11 {F11} F12 {F12} F13 {F13} F14 {F14} F15 {F15} F16 {F16 هكذا: SendKeys "{BACKSPACE}"

تحياتى و ايام مباركه سبحان الله و بحمده مرفق برنامج بسيط جاهز للطباعه على شيكات بنك التجارى الدولى_مصر_CIB_اصدار دفاتر 2018 مميزات البرنامج يتم التفقيط تلقائى بالجنيه المصرى كود بحث و اضافه دبل كليك عن المستفيد امكانية اضافة عدد لا نهائى من البنوك مع ضبط ابعاد الشيك كود طباعه للشيك لا تنسونا من صالح الدعاء برنامج الطباعه على Check_cib_2018.rar

شكرا لك اخى الكريم تم حل المشكله

وهذا مع شرط الصنف اخي أبو زاهر استبدل الشرط السابق بهذا الشرط مع تعديل المتغير (0) حسب حاجتك: =DSum("[Alkmiah]","[Hrakatsanf]","[ID_Sanf]='" & [ID_Sanf] & "'" & " And [Atarih] <= #" & ZaherMnth(0) & "#")

أحسنت استاذى الكريم رائع جزاك الله كل خير

الأخوة الكرام لله الحمد تمكنت من إيجاد الحل ، وأضعه بين أيديكم للاستفادة منه كود الربع الأول: Me.Text2 = DateSerial(Year(Date), Int((Month(Date) - 1) / 3) * 0 + 1, 1) Me.Text4 = DateSerial(Year(Date), Int((Month(Date) - 1) / 3) * 0 + 4, 0) كود الربع الثاني: Me.Text2 = DateSerial(Year(Date), Int((Month(Date) + 1) / 3) * 1 + 1, 1) Me.Text4 = DateSerial(Year(Date), Int((Month(Date) + 1) / 3) * 1 + 4, 0) كود الربع الثالث: Me.Text2 = DateSerial(Year(Date), Int((Month(Date) + 1) / 3) * 2 + 1, 1) Me.Text4 = DateSerial(Year(Date), Int((Month(Date) + 1) / 3) * 2 + 4, 0) كود الربع الأخير: Me.Text2 = DateSerial(Year(Date), Int((Month(Date) + 1) / 3) * 3 + 1, 1) Me.Text4 = DateSerial(Year(Date), Int((Month(Date) + 1) / 3) * 3 + 4, 0)

ضع المؤشر بين الخط الفاصل بين الصفوف حتى يتحويل المؤشر إلى الأسود ذو سهمين بعدها تستطيع أن تتحكم بين مسافة الصفوف .

بلى يعمل شوف اضغط باليد على مجموعة F واعرف كل واحد سيعمل لك اي شيء وبعدين استخدم الكود مثلا عندي F1 بيظهر لي نافذة المساعدة وعند استخدام هذا الكود سيعمل لي كأن انا اضغط على زر F1 SendKeys "{F1}"

وعليكم السلام ورحمة الله وبركاته حسب ما فهمت : تريد ان تظهر الكمية المباعة حتى تاريخ اليوم، قبل شهرين، وهكذا ... وليس بين تاريخين ،،، هناك فرق تم استخدام الوحدة النمطية التالية: Public Function ZaherMnth(M As Integer) If Date + 1 = DateSerial(Year(Date), Month(Date) + 1, 1) Then ZaherMnth = DateSerial(Year(Date), Month(Date), 1) - 1 Else If Day(DateSerial(Year(Date), Month(Date) - M, Day(Date))) = Day(Date) Then ZaherMnth = DateSerial(Year(Date), Month(Date) - M, Day(Date)) Else ZaherMnth = DateSerial(Year(Date), Month(Date), 1) - 1 End If End If End Function لارجاع التاريخ حسب المتغير M ثم استخدمنا الاستدعاء التالي في الحقول المراد اظهار النتيجة فيها: =DSum("[Alkmiah]","[Hrakatsanf]","[Atarih] <= ZaherMnth(0)") مع ملاحظة ان صفر هو المتغير M والصفر حتى تاريخ اليوم وواحد قبل شهر واثنان قبل شهرين وهكذا ... جرب ووافني بالنتيجة تحياتي abu zaher.rar

أخي أبو زاهر وجدت هذا الرابط هو مفيد جدا :

السلام عليكم لم أجد حلا سوى إضافة عمود مساعد سميته "رقم الدفتر" وتمت إضافة المعادلات المناسبة للمطلوب... بن علية حاجي المصنف3.xlsx

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

وعليكم السلام ..... ايش الهدف من الكود ؟؟؟؟ هل تسنعملها للكتابة مثل لوحة المفاتيح مثلا أو .... اسف أخي الوزير لم انتبه لمشاركتك

تمام .. هو يبقى يختار اللى عاوزه :D

تمام -ولكن هناك تعديل بسيط بحيث لو ليس هناك فى الصف اى تواريخ مساوية تبقى الخلية فارغة مطلوب مساعده(1).xls

لو الشيت اللى هتشتغل عليه صغير تنفع الدالة دى .. وكمان هيظهر عندك باللون الاحمر لو الصف كله مفيهوش الشهر اللى بتدور عليه مطلوب مساعده.xls

تفضل ::بالتوفيق:: Attendance2&Payroll pro.rar

السلام عليكم تفضل احي الكريم Hide (Call DoCmd.NavigateTo("acNavigationCategoryObjectType" (Call DoCmd.RunCommand(acCmdWindowHide Unhide (Call DoCmd.SelectObject(acTable, , True

جزاك الله خير الجزاء ولكن هناك مشكلة MSCALOCX ماذا علي ان افعل

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

كتب جميلة ورائعة جزاك الله خيرا