عبد الفتاح كيرة

تم المراد من رب العباد جزيل الشكر لك أخى الحبيب @Shivan Rekany لابد من الاستبدال ب صفر فى الأول i لأن قيمة الصفر سيبنى عليها قيمة rr زاد الموضوع ثراء بالفكرة العبقرية للأستاذ @رمهان أعتقد يمكن تطوير هذه الفكرة للحصول على أحدث 3 سجلات و ليس اثنين هذا التحديث بالكود فهل يمكن التحديث بالاستعلام مع استخدام نفس الفكرة؟ جربته لم يفلح رسالة خطأ اختلاف النوع مع أنها نفس الحقول التى بالكود جزيل الشكر لكم جميعا

شيفان المحترم هذا سؤال أم خبر سار؟ جار التجربة شكرا لك

قمت بعمل التحديث عن طريق الكود لكن هناك مشكلة فى تحديث السجل الحامس testo.rar

الأستاذ @رمهان أنا جهزت مرفقا لتطبيق ما تفضلت به و فيه بعض المحاولات أرجو الاطلاع و التعديل و المطلوب هو أحدث تاريخين من حقل السنة و هو رقمى لكل موظف ثم تحديث الجدول الأول t1 بهذه النتائج testo.rar المطلوب أعلى قيمة و السابقة لها فى حقل السنة أين تنفذ هذه الصيغة السابقة أنا استخرجتها فى استعلام بعد ذلك كيف نحدث الجدول الأصلى ليتك تطبق لنا المعادلة على الملف المرفق جزاك الله خيرا

هايل جدا فكرة مبتكرة لكن فى هذا الموضوع سنستخدم مع حقل السنة شاء الله أن يفيض هذا الموضوع بكنوز برمجة الأكسيس وفقكم الله جار التجربة وقد نعود إن شاء الله

ننتظر نتيجة التجربة

جرب هذا Private Sub Form_BeforeUpdate(Cancel As Integer) If Me.Dirty = True Then If MsgBox("Do you wish to save the changes?", vbQuestion + _ vbYesNo, "Save Record?") = vbNo Then Cancel = True If MsgBox("هل تريد حذف البيانات المدخلة?", vbQuestion + _ vbYesNo, "Save Record?") = vbYes Then Me.Undo End If End If End If End Sub

إذن جرب طباعة بعض الأوراق

يتم طباعة الملف كما هو إلى ملف pdf هذا مجرب على وورد 2007

ابحث عن برنامج Pdf creator وهو برنامج مجانى يثبت فى الجهاز على أنه طابعة و من داخل الوورد اطبع مع اختيار هذه الطابعة pdfcreator سيتم حفظ الملف إلى pdf

شكرا أبا خليل طريقة أخرى شاهد استعلام2 عد غياب المواد.rar وللمادة الموحدة للكل مثل اللغة العربية ara22: DCount("[ar_2]";"شيت رئيسي";"[dept_code]=276 and [school_code]=" & [school_code] & " and [ar_2]='" & "غ" & "'")

هذا يقال عند الحيرة فى أمر من الأمور

اضرب أخماسا فى أسداس أستاذ @Shivan Rekany

Decoder غالبا هذه وظيفة مخصصة من عمل المستخدم وتحتاج لوسيطتين و هما هنا العائد من دألتى dlookup ابحث فى الوحدات النمطية عن الوظيفة لتعرف ماذا تفعل والله أعلم أيضا يخزن الناتج فى متغير b

المعذرة أستاذنا ما قصدنا التقدم على أساتذتنا و الدفة معك من جديد المعذرة أستاذنا ما قصدنا التقدم على أساتذتنا و الدفة معك من جديد

شكلا وقيمة 0.5 فى القيمة هى نفسها 00.500 صحيح؟

=Format([T1]/[T2]*[T3];"0.000")

السلام عليكم فى زر فرد السجلات الموجودة فى فرعى الفرعى(الحفيد) ضع هذا الكود Me.rasael_custmer.Form.SubdatasheetExpanded = True و اصنع زرا آخر لطى السجلات ضع فيه الكود التالى Me.rasael_custmer.Form.SubdatasheetExpanded = False نقل تركيز.rar

بعض العمل يا أستاذ ما زال هناك الكثير لتفعله بالتوفيق TestEmpSearch.rar

هذا النمط هو إضافة والقديم متاح لنا

شكرا لك أستاذ رمهان نورت هذا الموضوع سأجرب معلومتك القيمة و أخبرك بالنتائج لكن تبين لى أن المشكلى فى ترتيب المكتبات لاحظ ترتيب مكتبة DAO 306 فمع هذا الترتيب لا يعمل الكود و هنا يعمل بعد تغيير الترتيب كلامك مضبوط 100% Public Function Last2Records(id, Position) On Error Resume Next Dim rs As DAO.Recordset, L2R 'نستطيع استخدام cint مكان cdate Set rs = CurrentDb.OpenRecordset("Select emp_id,CInt(rep_year) as RepYear,rep From report " _ & "Where emp_id=" & id _ & " ORDER BY emp_id,Cdate(rep_year) Desc") L2R = rs.GetRows(2) Last2Records = L2R(1, Position) End Function أشكرك على هذه الهدية القيمة و يا ليت أجد تفسيرا للصورتين السابقتين أعتقد أن ترتيب المكتبات يؤثر فى أى مكتبة ستفسر الكود و الله أعلم

تقبل الله منا ومنكم صالح الأعمال

يبدو أن هذا الموضوع لم ينته بعد قمت بتطبيق وظيفة الأخ @أبو إبراهيم الغامدي مع جزء من كود الأستاذ jjafferr لتحديث جدول EMP زر التحديث يعمل بكفاءة مع ملف MDB لكنه لا يعمل مع ملف ACCDB ما تفسير ذلك وما الحل مرفق الملفان ياللعجب! التطبيق كيرة.rar

الله يطمنك كده تمام إذن حذف الحقل و إنشاؤها أضمن و الله استفدنا منكم كثيرا وفقكم الله

زادكم الله علما ونفعنا بكم من أنفع المواضيع و أعظمها فائدة شكرا للجميع