Eng.Qassim

استخدم الفاصلة المنقوطة =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

بحدود سؤالك يمكن ذلك ..تخيل لديل جدول طلاب فيه 3 طلاب وجدول الدرجات فيه 4درجات في الاستعلام سيظهر لك 12 سطر لان كل طالب سيأخذ 4 درجات مالفائدة من ذلك ؟.. جمالية الاكسس في العلاقات بين الجداول لانها تسهل الكثير من الامور لا اعلم ان كنت قد فهمت سؤالك ...لكن على اي حال لنفرض انك اشتريت مادة معينة (وانت في جدول المشتريات)..فحينما تختار المادة سوف تختارها من جدول اخر وهو جدول المواد ..وحينما تختار اسم المورد ستختاره من جدول اخر وهو جدول الموردين

انا في الخدمة..تحياتي لك

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

تفضل.. 1080.rar

هذا مثال بسيط لما تريده job_hala.accdb

وعليكم السلام اجعل كود الحفظ هكذا If IsNull(Me.sname) Or Me.sname = "" Then MsgBox "لا يمكن ترك حقل الاسم فارغا.", vbCritical, "Error" Me.sname.SetFocus Exit Sub End If If IsNull(Me.sage) Or Me.sage = "" Then MsgBox "لا يمكن ترك حقل العمر فارغا", vbCritical, "Error" Me.sage.SetFocus Exit Sub End If Dim db As DAO.Database Dim rst As DAO.Recordset Set db = CurrentDb Set rst = db.OpenRecordset("tbltest", dbOpenDynaset) With rst .AddNew ![sname] = Me.sname ![sage] = Me.sage .Update .Close End With Set rst = Nothing db.Close Set db = Nothing Me.sname = "" Me.sage = ""

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

بالاضافة لماتفضل به الاساتذة..تستطيع استخدام جملة السكوال في الاستعلام SELECT Count(Table1.case) AS CountOfcase FROM Table1 HAVING ((((Table1.case))="يعمل"));

استخدم كود استاذ جعفر هكذا =IIf(Len([N1] & "")=0,0,1)+IIf(Len([N2] & "")=0,0,1)+IIf(Len([N3] & "")=0,0,1)+IIf(Len([N4] & "")=0,0,1)