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

وعليكم السلام في اعدادات النموذج ، نطلب من النموذج الذهاب الى الوحدة النمطية Color_Nulls كل ثانية (1000 معناه ثانية) ، وبهذه الطريقة لا تحتاج ان تضع الكود في كل نموذج ،وانما تعمله من هذه الاعدادات ، وستلاحظ ان النموذجين يعملان (المرفق فيه نموذجين) . وهذه الوحدة النمطية المسؤولة عن العمل Public Function Color_Nulls() Dim frm As Form Dim ctrl As Control Set frm = Screen.ActiveForm For Each ctrl In frm.Controls If ctrl.ControlType = acTextBox Then If Len(ctrl.Value & "") = 0 Then ctrl.BackColor = IIf(ctrl.BackColor = vbWhite Or ctrl.BackColor = vbBlue, vbRed, vbBlue) End If End If Next End Function جعفر 829.Flash_BG.mdb.zip

السلام عليكم ومشاركة مع اخي شفان ، وبالنظر الى الموضوع من زاوية اعلى ، نستطيع ان نرسل اسم النموذج الذي فتح نموذج البحث ، عن طريق المتغير OpenArgs ، هكذا Private Sub Field_DblClick(Cancel As Integer) DoCmd.OpenForm "Search Orient", , , , , , "FrmAmr" End Sub او للنموذج الثاني Private Sub Field_DblClick(Cancel As Integer) DoCmd.OpenForm "Search Orient", , , , , , "FrmMoh" End Sub . ثم من نموذج البحث ، نرجع المعلومة هكذا: Private Sub Orient_DblClick(Cancel As Integer) Forms(Me.Parent.OpenArgs)!Field = Me.Client DoCmd.Close End Sub جعفر

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

اتفضل القي نظرتا الى هذه الصور تم عمر كروب للحقل تاريخ و تم تسلسله من القديم الى الجديد و بعدين تم اختيار الكروب للشهر واحد باي مونث sorting date.rar

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، تفضل الملف المرفق لعل فيه ما تريد... أخوك بن علية TIME SHEET TAREK EK.rar

السلام عليكم اخي ابو ياسين ، يُفضل ان يكون الكود الذي عملته انت ، ان يكون على الحدث "قبل التحديث" ، حتى لا تُحفظ القيمة وينتقل المؤشر الى الحقل التالي وهذا هو مثال طريقتي ، على شروطك: جعفر 830.Validation_Rule.mdb.zip

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

قصدك b = a + 1 . جعفر

وعليكم السلام الوحدة النمطية التالية تقوم بالعمل Option Compare Database Option Explicit Public rst As DAO.Recordset ' Public Function Calc_Empty_Fields() Dim i As Integer Dim RC As Integer Dim RF As Integer Dim j As Integer Dim Counter As Integer rst.MoveLast: rst.MoveFirst RC = rst.RecordCount RF = rst.Fields.Count 'Records For i = 1 To RC Counter = 0 'Fields For j = 0 To RF - 1 If IsNumeric(rst(j).Name) And rst(j).Value = -1 Then Counter = Counter + 1 End If 'rst Next j 'rst.Edit ' rst!Sum_Check = Counter 'rst.Update rst.MoveNext Next i Calc_Empty_Fields = Counter rst.Close: Set rst = Nothing End Function . ونناديها من النموذج الفرعي هكذا Private Sub Form_Current() Set rst = Me.RecordsetClone Me.sum_Check = Calc_Empty_Fields() End Sub . جعفر 833.Prog400.mdb.zip

السلام عليكم المرفق الأول ليس فيه ما تقول (برنامج طباعة الشهادات) وهو يحوي 4 دوال مستحدثة لحساب العمر... ولا تنسى إرفاق نموذج للشهادات حسب ما تريده... بن علية حاجي

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

السلام عليكم تفضل الملف به المطلوب... بن علية حاجي New-Userform_1.rar

شكرا لك فرحّنا مشاركتك معنا ... شكرا لك مجددا

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

انا فتحت قاعدة بياناتك وما فهمت شيء منه لكن على هذا الكلام تقدر تستخدم احد من هذه السطور DoCmd.RunCommand acCmdRefresh DoCmd.RunCommand acCmdSaveRecord

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

شكر اليك استاذي نعم هذا المطلوب تحياتي اليك

القی نژرتا الێ اسم النموذج !! ليس لدينا اي نموذج بهذا الاسم اتفضل اليك هذا الكود Private Sub Orient_DblClick(Cancel As Integer) If CurrentProject.AllForms("FrmMoh").IsLoaded = True Then Form_FrmMoh.mytxt.Value = Me.Orient DoCmd.Close acForm, "search orient", acSavePrompt Else Form_FrmAmr.mytxt.Value = Me.Orient DoCmd.Close acForm, "search orient", acSavePrompt End If End Sub 2.rar

العفو اخوي ابو ياسين وحياك الله جعفر

تسوي حقل calculated وتقسم المبلغ على العدد [المبلغ]/[العدد]

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

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

نعم هو كذلك لانه كما فهمت من كلام صاحب الموضوع AbedElkader بارك الله فيكم .. الان بدي اغلبك مرة ثانية . المطلوب تحديد عدد الارقام بتسعة ارفام فقط وقد فهمناه و لكن اذا ما تُرك الحقل خالياَ قبِل به وغير ذلك لا يقبل مع رسالة تفيد بعدم القبول اي اما تسعة ارقام او لا شي والا فرسالة تفيد بوحود خطأ ,,, مع الشكر الجزيل مقدماً :

انت في هذه الحالة حفظت قيمة الحقل ="" ، وانتقل المؤشر الى الحقل التالي جعفر

اخي العزيز بارك الله فيك من الافضل كي يتم الرد عليك من الاخوه الاعضاء يفضل ترفق ملف فيه المثال لانه فيه عده طرق وكل واحد يفضل طريقه خذ هذا مثال اجعل مصدر عنصر التحكم هكذا =DLookUp("[user]";"fbi") او مثل اخر في عنصر التحكم اسم المستخدم والقيمه الافتراضيه =[Forms]![login]![a] طبعا تغير الاسماء حسب المسميات عندك

وعليكم السلام واهلا وسهلا بك في المنتدى ورجاء قراءة قوانين المنتدى قبل وضع مشاركات جديدة تفضل ، المطلوب في برنامجك المرفق ، وهذا الكود يقوم بالعمل: Private Sub cmd_Do_Month_Dates_Click() Dim rst As DAO.Recordset Dim i As Date Set rst = Me.نموذج_فرعي_main_data.Form.RecordsetClone For i = DateSerial(Me.iYear, Me.iMonth, 1) To DateSerial(Me.iYear, Me.iMonth + 1, 0) rst.AddNew rst!dd = Format(i, "dddd") rst!ddate = i rst.Update Next i rst.Close: Set rst = Nothing End Sub جعفر 831.برنامج رواتب.accdb.zip

العفو اخي الكريم بالتوفيق

هل المطلب صعب ؟ أم بحاجة لتوضيح أكثر ؟ الأخ الفاضل ابو خليل المحترم الاستاذ جعفر المحترم

اتفضل اخي استخدم هذا الكود بعد حدث If Len(Rjmfatwra) <> 9 Or Len(Rjmfatwra) = "" Then MsgBox " استخدم تسعه ارقام فقط لا اقل ولا اكثر" & " ", , "تـنـبـيـه" Rjmfatwra= "" Me.Undo End If

لرقم 12 هو اختصار للعبارة "xlCellTypeVisible" جزاك الله خيرا استاذ سليم

اخي جعفر انا منتبه وفاهم قصدك بس هو خطاء لانه انا ادخل الفاتورة رقم A0002 واعمل مرتجع 4 وهو يروح يخصم من فاتورة A0001 شوف الصورة -1 وقبل العمليلة كان 3 ارجو ان تكون وصلتك الفكرة ما اريد ان اوصل له انه لا يعمل حسب الشرط وانا اريد الشرط انه يخصم من نفس رقم الفاتورة وليس من نفس الرقم

حبيبى قلبى استاذ سليم هو المطلوب بالضبط رائع جدا اشكرك اشكرك

عفوا اخي houari-edu ، رجاء فتح موضوع خاص لسؤالك. شكرا جعفر

حاولت بما استطيع والباقي عليك هههههه ما عرفت ايش اللي تقصده حسابات قيد مزدوج1.rar

وعليكم السلام الامر هو: DoCmd.GoToRecord , , acLast ويعمل على جميع اصدارات الاكسس جعفر