شاهر

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

تسلم عزيز على هذا المجهود ولكن لو امكن تعريب التسميات وذلك لتسهيل للمبتدئين للستفاده والتعلم مع خالص التحيه

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

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

وكذالك لو امكن كيف التعديل على التقارير قاعدة بيانات بنفس الامتداد mde وجزيتم خيرا

اخي الكريم رضون بارك الله فيك وزادك الله علما ونور وجعلك ذخرن لنا في هذا المنتدي الرقي

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

اخي الكريم الهيثم نرجو التكريم بتعديل علي الكود بحيث ييم التشييك علي الترقيم في حالة الحذف واعادة ترقيم بدلا عن الارقام المحذوفه حتي لايبقا ارقام شواغر ولك خالص الشكر والتقدير

السلام عيكم ورحمة الله وبركاته اخي الكريم ا لهيثم نرجوا التكرم بتعديل على المثل الذي انزالته بحيث يتم التشييك على الترقيم في حالة حذف رقم ويعيد الترقيم حتي لايبقي ارقام شاغره في السجلات ولك حالص الشكر والتقدير مثل حذف رقم اربعه سيبقا الترقيم بهذا الشكل بعد الحذف 1 2 3 5 6 7 وهكذا لتلفي فراغ الارقام

اين ارد ياستاذتنا ياشباب مافيه احد عارف كيف الحل لهذه المشكله

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

السلام عليكم ورحمة الملك العلام وكل عام وانتم با الف خير وسلام وعافيه لدي كود يعمل على جعل النماذج عند التشغيل في المقدمه اى برنامج على الشاشه ولايستطيع المستخدم العمل على اطار غير النموذج الذي يحمل هذا الكود او حتي انزاله على شريط المهام بزري وندوز وحرف d لكن المشكله انك لاتستطيع التركير او الخروج من قاعدة البيانات الا اذا انهية المهمه للكسس نرجو ممن يستطيع التعديل على الكود لكي تعم الفائد ونستفيد من ميزت هذا الكود لاعمل نماذج احترافيه شكر ومقدر لجميع من ساعد في حل هذه المشكله مع خالص الاحترام لمشرفي واعضاء واستذة هذا الصرح العملاق والذي له الفاضل الكبير في تعليم اخوكم شاهر الكود Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, _ ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Declare Sub ReleaseCapture Lib "user32" () Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long Const HWND_TOPMOST = -1 Const SWP_NOMOVE = &H2 Const SWP_NOSIZE = &H1 Public Function PutWindowOnTop(Form1 As Form) Dim lngWindowPosition As Long lngWindowPosition = SetWindowPos(Form1.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE) End Function ويتم استدعائها بهذا الكود في حدث Private Sub Form_Load() Call PutWindowOnTop(Me) End Sub

ممنونين وطال الله عمرك

للرفع

اخي ابو وليد جرب هذا الكود في حدث في الحالي لنموذج الرئيسي If me.[اسم حقل التاريخ[<>date then Me![اسم النموذج الفرعي]AllowEdits = False ELSE Me![اسم النموذج الفرعي]AllowEdits = True END IF

الاستاذ الكريم رضوان ارجوا منكم التكرم والاهتمام الامر عاجل

الاستاذر رضوان لم يكن شرح الاخير واضح ارجوا الاهتمام

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

هذه هي الرابطه المرفقات http://www.officena.net/ib/index.php?showtopic=10958 هذا هو المثال

للرفع

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

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

الاستاذ الفاضل رضوان وشكري للـ bash20000 السلام عليكم ورحمة الله زادك الله علما وحلم وانار الله دربك ونفعه الله بك وبعلم اجرك به الجنه ورزقك الله واى الذريه الصالحه لك من فائق الشكر والتقدير لقد عمل الكود بنجاح (y) وجمعة مبارك مقدماٌ اخوك شاهر

اخي التقني لكي من خالص الشكر والتقدير علي هذا التفاعل الجميل والتعاون الخالق بس كانت ارغب في معرفة جدوا من هذا الكود وعلى العموم كفيت ووفيت شاكر ومقدير التعاون

الاعضاء المشرفين الاكارم ماكو حال والاطريقه لعمل هذا