Eng.Qassim

كل شيء ممكن ...بس لو اعرف انت عاوز ايه 😂 اليك المرفق ...وغير به ماتشاء ...اشرح مالذي تريده ولاتخشى اي شيء ...انا شخصيا احترم طالب العلم ربما تحتاج لهذا Me.txt3 = DCount("[jop_hala_coode]", "[data]", "[Insurance_coode] =1 And [jop_hala_coode] =1") test(2).rar

استاذي العزيز @AbuuAhmed الدالة fix تأخذ الاعلى مرتبة نزولا في الاحداثي السالب ..والاعلى مرتبة صعودا في الاحداثي الموجب فالاعلى بالنسبة ل 1.6- هو -2 ... وهي مختلفة تماما عن دلة int ..التي تأخذ الاعلى قيمة ....لكن الاخ صاحب المشاركة يمكن ان يستخدمها او لايستخدمها لان ليس من المعقول ان تكون السلفة بالسالب تحياتي استاذي ابو احمد ...ملاحظة جيدة

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

نسيت شيئا ...في حالة اردنا عدم طباعة نفس الاسم مرة اخرى .. Dim fullName As String Dim strSQL As String Dim rs As DAO.Recordset fullName = Me.txtName.Value strSQL = "SELECT * FROM tb1 WHERE NameX = '" & fullName & "';" Set rs = CurrentDb.OpenRecordset(strSQL) If rs.RecordCount > 0 Then MsgBox "الاسم مكرر" Me.txtName = "" Me.txtAddress = "" Me.txtName.SetFocus Else rs.AddNew rs!NameX = fullName rs!Adress = Me.txtAddress Me.txtName = "" Me.txtAddress = "" rs.Update MsgBox "تم التسجيل بنجاح" End If rs.Close Set rs = Nothing

اضافة لما تفضل به الاستاذ @kkhalifa1960..لم أتي بشيء جديد لكني أفضل كتابة الكود للفائدة..لان تعلم كتابة الكود ومعرفة كل سطر امر مهم لكل مبرمج Dim rs As DAO.Recordset Dim sql As String sql = "select * from tb1 " Set rs = CurrentDb.OpenRecordset(sql) rs.AddNew rs!NameX = Me.txtName rs!Adress = Me.txtAddress Me.txtName = "" Me.txtAddress = "" rs.Update Set rs = Nothing

وعليكم السلام اخ سامر.. احاول الشرح نظريا كي تعم الفائدة ..امسح مصدر البيانات لكل الحقول في النموذج.. بعد حدث بعد التحديث لمربع التحرير..ضع الكود التالي فيما يخص المربع الاول (اجمالي الموظفين (يعمل))..واكل البقية في نفس الحدث ووافني بالنتيجة... Private Sub cbo1_AfterUpdate() Me.Text1 = DCount("[jop_hala_coode]", "[data]", "[jop_hala_coode] =1 And [Location_coode] Like '" & Me.cbo1 & "' ") End Sub cbo1 هو اسم مربع التحرير

وعليكم السلام.. عن اذن استاذ احمد...استخدم دالة IsDate If Not IsDate(Me.dateTextBox) Then MsgBox "الرجاء ادخال التاريخ" Me.dateTextBox.SetFocus End If

بالتوفيق..

وعليكم السلام.. استخدم الاداة int لتعطيك رقم بدون كسور...مثلا في حقل بيانات السلفة يكون : =Int([txtajmaly]*[txtqaim_Solaf])

انظر لهذا الموضوع ..وهناك العديد من المشاركات في الموقع يمكن الاستفادة منها https://www.officena.net/ib/topic/116860-مساعدة-في-صلاحيات-المستخدم/#comment-703914

انت عملت لحالك افضل اجابة 😂 يعني انت حليت الموضوع ...بالخير عليك يازلمة ..

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

بالتوفيق يارب

استخدم الفاصلة المنقوطة =DCount("[fullname]";"[data]";"[jop_hala] Like 'يعمل' And [intNu] =true ")

نعم اخي واستاذي @ابوبسمله..اتحاشى كثيرا استخدامها في الاستعلام بالنسبة للسجلات الكبيرة الحجم ..اما بالنسبة للمشاريع المحدودة فلا بأس بها

بالـتأكيد...تستطيع من خلال الاستعلام ..بجملة السكوال التالية SELECT Count(data.jop_hala) AS CountOfcase FROM data HAVING ((((data.jop_hala))="يعمل") And ((intNu)=True)); أو من خلال مربع نص في النموذج ..وتضع الجملة التالية في مربع عنصر التحكم =DCount("[fullname]","[data]","[jop_hala] Like 'يعمل' And [intNu] =true ")

اعمل حقل في الجدول intNu ونوع البيانات نعم/لا وفي الاستعلام اعمل كما في الصورة

حسب الجدول لديك فأنك لاتحتاج الى Dsum انما الى استعلام تجميع فقط كما موضح بالصورة

سأشرح لك كمفهوم عام ..وانت اعمل البقية.. في نموذج الرئيسية اعمل زر لفتح نموذج البيانات cmdData ..وحينما يفتح هذا النموذج للمستخدم محمد2 الذي لايملك الصلاحية لنموذج البيانات فأن الزر سيكون غير ممكن تضع هذا الكود عند الفتح او التحميل Private Sub Form_Load() If Me.m = 3 Then Me.cmdData.Enabled = False End If End Sub واعمل نفس الشيء على بقية النماذج والازرار

سؤالك هذا ليس له علاقة بالعنوان الرئيسي ..هذا الخلط يربك الذي يبحث عن معلومة ثانيا هناك العشرات من الفيدوات التي تشرح ماتريد..يجب ان تتعب نفسك قليلا حتى تتعلم تحياتي لك

مشاركة مع استاذي العزيز @ابو جودي..اللي ليه وحشة كبيرة في الموقع بحث بالرقم او الحرف داخل الكمبوبوكس cboSearch.rar

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

الشكر لله وحده اخي الكريم ..بما انعم علينا من العلم والمعرفة لخدمة الاخرين انا بالخدمة استاذ جمال

يعني كيف استاذ طاهر ..لم افهم قصدك ؟

كود استاذ ابو خليل يعمل جيدا .. لكن بالنسبة للكود الذي طرحته يعمل هكذا Private mlngTimeout As Date Private Sub Form_Timer() Me.txt.Caption = 10 - DateDiff("s", mlngTimeout, Now) If Me.txt.Caption = 0 Then DoCmd.Close Else Exit Sub End If End Sub Private Sub Form_Load() mlngTimeout = Now Me.TimerInterval = 1000 End Sub Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) mlngTimeout = Now End Sub ملاحظة: txt هو اسم ليبل تضعه في النموذج ليحسب الوقت لغلق النموذج