Barna

اعمل جدول وادرج السنوات المطلوبة بالكود ....

هل هذه الصورة المطلوبة ..... استخدم هذا ..... H: Year(Now()) & "-" & Year(Now())+1 & "-" & Year(Now())+2

طيب ... جرب الملف ..... Bar11.mdb

وعليكم السلام ... كان المفروض منك ادراج ملف مثال ليتم التعديل .... على العموم تفضل هذا المثال ... طبقه على ملفك ..... Bar11.mdb

اخي الكريم اقرأ ردي السابق

وعليكم السلام ورحمة الله وبركاته .... طيب في اعلا الصفحة ضع هذا ..... Option Compare Database #If VBA7 Then Private Declare PtrSafe Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long #Else Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long #End If ثم في حدث عند التركيز على مربع النص العربي ضع هذا ..... On Error Resume Next Dim kbd As Long kbd = GetKeyboardLayout(0) kbd = Hex(kbd) If Right(kbd, 1) <> 1 Then SendKeys "%+" End If

هل هذه الصورة المطلوبة ...... اذا كان نعم .... فلا انصح به ... لانك تحتاج تغيير بعذ الاستعلامات المرتبطة بتلك النماذج .... لكن على كل حال انا اجريت تعديل واحد فقط على نموذج البلديات ... اذا انت مصر على المطلوب تتبع التعديل وعدل في كل الاكواد بنفس الطريقة ..... Handicap Bar Menu .rar

اخي خير اخترها افضل اجابة حتى نعرف انه تم الاجابة على السؤال .....

طيب اجعل الموشر في خانة البحث ثم اسحب الباركود بالماسح وانظر ....... Database1.accdb

هل هذا هو المطلوب .................. __شئون الطلبة_Barna (1).rar

وعليكم السلام الباركود يجب ان يعتمد على رقم فريد للموظف مثلا ( رقم هوية أو رقم وظيفي أو ...... ) لم اجد في الجدول لديك رقم فريد ؟؟؟؟؟

اين النموج ؟؟؟؟؟

طيب جرب المرفق التالي بعد التعديل ....... test print.mdb

جرب خاصية البحث في المنتدى تجد ما يسرك ...

جرب المرفق ........ واكتب التاريخ في مربع النص كاملا .... مثلا ( 2014/03/22 ) والبرنامج يقوم بالمطلوب . test print.mdb

يا اخي الكريم ابحث عن تاريخ موجود .... لكن جرب المرفق تم تعديل الرسالة .... test print.rar

غير هذا ..... بهذا .... Vl = Forms!test1!dateprint

انظر هذا الموضوع ... ولاتنسى التشغيل كمسؤول

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

هههه ........ بل انت بارك الله فيك اخي @ابوخليل سوف تفتح لنا باب كنا نظن اننا من فئة الشباب ..... 😉

الف . الف . مبروك ابا احمد ...... تستاهل .... اعانك الله وسدد خطاك .

بارك الله فيك أخي الكريم : اولا : مبارك لك الترقية وأسأل الله تعالى لك وللجميع التوفيق والسداد والاعانة .. تستاهل . الف . الف . مبروك ثانيا : فكرة المنتدى في اساسه التعلم والتعليم ..... كلنا نتعلم وانا اولكم ..... فأكثر من اجابة ومشاركة في الأراء تثري الموضوع .... تفضل أخي الكريم التعديل ..... DB5 (1).mdb

طيب .... جرب المرفق .... DB5 (1).mdb

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

وعليكم السلام ورحمة الله وبركاته ... بالنسبة للمطلوب الاول : الأفضل يبقى كما هو ... لأنك قد تظطر الى الغاء الفاتورة مثلا ..... لكن حسب رغبتك تفضل ...... انقل هذا الكود من زر الحفظ الى حدث النموذج عند الفتح Forms!Form1.ID = Nz(DMax("[ID]", "InvoiceSavetbl") + 1) Forms!Form1.InvoiceID1 = Year(Date) & "- " & Forms!Form1.ID.Value بالنسبة للمطلوب الثاني : للاسف غير مفهوم لي !!!!!!