Eng.Qassim

اضافة لما تفضل به الاستاذ @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 هو اسم ليبل تضعه في النموذج ليحسب الوقت لغلق النموذج

وعليكم السلام اخي.. بما انه لديك الاف السجلات ..عملت لك حقل في الجدول اسمه RDnum.. وعملت لك روتين يدور حول السجلات لملء هذا الحقل ..وعملت زر لتحديث السجلات ويمكنك الاستغناء عن الروتين اذا الجدول فارغا ..اي من بداية التسجيل ..حيث ستكون قيمة الحقل هذا بنفس المعادلة القديمة تضعها بعد اي حدث تختاره RD.rar

هناك مشكلة عندي ...لماذا لم يظهر المرفق عندي وتصورت ان صاحب السؤال ارفق الصور فقط لولا اجابة الاستاذ @kkhalifa1960..التي جعلتني انتبه بأن المرفق لم يظهر عندي !!

وعليكم السلام .. ضع في control source of (doyoun)..شيء كهذا DLookUp("[tot]";"Query_table1";"[coud]=" & coud)

اضافة لما تفضل به استاذي @ابوخليل اليك المثال التالي ..حينما تفتح النموذج form1 وعندما لايكون هناك اي نشاط عليه سيغلق النموذج بعد 10 ثواني تستطيع تغيير الوقت ان اردت close form.rar