jjafferr

تفضل اخي :) Time_in هو الوقت المخزن ، n3f3 هو النتيجة المطلوبة ، والحقول الباقية هي خطوات للوصول للنتيجة (ولكنك غير محتاج لها) :) جعفر 94.time.mdb.zip

ممكن مثال او مثالين لوسمحت :) جعفر

وانا كذلك اؤيد ان بيانات التقرير = بيانات الاستعلام = بيانات الجدول وكما قالت اختنا الفاضلة الدكتورة ام عهود ، الارقام الناقصة التي ذكرتها هي اصلا غير موجودة في حقل voucherno جعفر

اخي عبدالحميد جرب هذا الكود الخاص بـ DAO (انا لم اجربه :( ): Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From emp") For i = 0 To Me.RecordsetClone.RecordCount - 1 If Me.Month = 1 Then rst.FindFirst "[empid]=" & Me.empid & " AND [month]…

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

تتمة للشكل النهائي للتقرير بهذا الشكل: ولكي نحصل على هذا الشكل ، يجب ان نفتح التقرير في هيئة Print Preview جعفر 91.قاعدة بيانات1.test6.mdb.zip

طويل العمر :) طلبك غير طبيعي ، واكسس لا يلبيه :( اضطريت ان اعمل Function في module بحيث يضبط الخانات المطلوبة ، ثم يرسلها للتقرير (او اي مكان اخر): Public Function SortIt(eID, fld, n) 'eID = EmpId 'fld = Field name 'n = How many Records to return Dim rst As DA…

رجاء خذ من وقتك واعمل لي جدول نهائي اشتغل عليه :) جعفر

اخي kak2009 انا ضعت :( انت قلت: كيف الغي تكرار الاسم ... بدل مايكرر الاسم ابغاه فقط يحط تالريخ الغياب في حقل واحد ------------------------- انا اريد تاريخ الغياب يكون في خانة الغياب بشكل تنازلي الاسم ناريخ الغياب محمد 1434/11/11 1434/11/12 علي 1435/12/12 -----…

طويل العمر ، خبرني كيف تريده :)

حياك الله :)

تفضلي اختي :) بدل rst.AddNew خلينا الكود التالي: rst.FindFirst "[identity]='" & a7 & "'" If rst.NoMatch Then rst.AddNew Else rst.Edit End If جعفر 92.WebImport.mdb.zip

عفوا ، سؤال : > إذا كان Identity موجود موجود في الجدول او موجود في صفحة الانترنت؟ جعفر

حياك الله :) سهله :) في الكود اللي عندك ، بدل rst.addnew ، حطي هاي المعادلة (وصلى الله وبارك :) ): if len(a7 & "")=0 then rst.edit else rst.addnew endif جعفر

الله الله عليك أم عهود ، إحنا كلنا نعرف سعة صدرك ، لهذا السبب كنتي ولازلتي وستستمرين ان شاء الله ، صاحبة العطاء ، وتستاهلين :) جعفر

شكرا لكي اختي الفاضلة الدكتورة ام عهود ، كالعادة وفيتي في شرحك :) اخي ابولميس ، لوسمحت تلصق كل سطر على عمود مستقل ، وشوف النتائج ، ثم حاول ان تحذف اي جزء ، وذنبك على جنبك :) EmpName: DLookup("[empn]";"test6";"[EmpID]='" & [EmpId] & "'") EmpName2: DLast("[empn]…

تفضلي اختي :) لمعرفة الكود ، اضغطي اولا على الزر "اجمع بيانات الجداول ادناه" ، والذي سيحفظ لكي بيانات الجداول بصيغة csv ويفتح لكي اكسل بالبيانات ، ثم الزر "استيراد البيانات" ، والذي ياخذ البيانات من صفحة الانترنت ، ويحفظها في قاعدة البيانات :) رجاء امسحي بيانا…

اخي kak2009 هل هذا المطلوب؟ جعفر 91.قاعدة بيانات1.test6.mdb.zip

تفضل اخي ابولميس ، انا عملت لك طريقتين ، فاختار اللي تريده :) جعفر 91.قاعدة بيانات1.test6.mdb.zip

حياك الله :)