Eng.Qassim

اضافة لما تفضل به استاذي @ابوخليل اليك المثال التالي ..حينما تفتح النموذج 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)

لايمكن ذلك ...فحقل ال Attachment فيه ثلاث تفرعات abb.FileData abb.FileName abb.FileType ولهذا تحتاج لنسخ تلك الحقول او التفرعات الى حقل الجدول لديك اعتقد مثال استاذ موسى يساعدك هذا كان السؤال الذي يدور في دماغي ...فنحن لسنا بحاجة للدوران حول كل السجلات لكن المشكلة ان الاستعلام لايعمل مع ال Attachment اعتقد الموضوع بحاجة لبخور عماني ☺️

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

بناء على اقتراخ الاستاذ @محمد احمد لطفى..قمت بعمل مربع نص لادخال المسار Hide.mdb

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

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

الف مبروك لولدنا العزيز احمد ... مزيد من التألق والابداع

طيب اعمل استعلام الحاق AppendQ INSERT INTO tblOld ( sdate, idNum ) SELECT tblNew.sdate, tblNew.idNum FROM tblNew; ثم استعلام حذف deleteQ DELETE tblNew.sdate, tblNew.idNum FROM tblNew; وفي زر نسخ الجدول ضع : DoCmd.SetWarnings False DoCmd.OpenQuery "AppendQ" DoCmd.OpenQuery "deleteQ" DoCmd.SetWarnings True

ده انكليزي ي محمد ههههه والله لم افهمك ..رغم اني اعلم بأن أسألتك كبيرة كيف ننسخ للجدول tbLNew ويكون فارغ ؟ هو بالاساس كان فارغ قبل النسخ ...وهو الان مليان بعد النسخ ممكن توضيح اكثر استاذ محمد

السلام عليكم ... اين استخدمت DLookUp لعملية تحديث سعر الشراء في الجدول ؟ طالما ان لديك امكانية لتحديث سعر الشراء بواسط الاستعلام فهو اسرع من استخدام دالة DLookUp خاصة اذا كان عدد السجلات كبير اعتقد ان الافضل ان تعمل جدول مؤقت من خلال الاستعلام qryItemCosts

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

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

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

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

ممكن سؤال ...هو ليه كل الاستعلامات دي ؟ ربنا يعينك استاذ برناوي @Barna

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