Eng.Qassim

كود استاذ ابو خليل يعمل جيدا .. لكن بالنسبة للكود الذي طرحته يعمل هكذا 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)

لايمكن ذلك ...فحقل ال 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

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

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