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

قمت بعمل التحديث عن طريق الكود

لكن هناك مشكلة فى تحديث السجل الحامس

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

منذ ساعه, hemabeb said:

انا وورد ٢٠١٦ 

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

يتم طباعة الملف كما هو إلى ملف pdf

هذا مجرب على وورد 2007

ابحث عن برنامج

Pdf creator

وهو برنامج مجانى

يثبت فى الجهاز على أنه طابعة

و من داخل الوورد

اطبع مع اختيار هذه الطابعة pdfcreator

سيتم حفظ الملف إلى pdf

شكرا أبا خليل

طريقة أخرى 

شاهد استعلام2

عد غياب المواد.rar

وللمادة الموحدة للكل مثل اللغة العربية

ara22: DCount("[ar_2]";"شيت رئيسي";"[dept_code]=276 and [school_code]=" & [school_code] & " and [ar_2]='" & "غ" & "'")

19 دقائق مضت, Shivan Rekany said:

ما فهمت قصدك استاذي الحبيب

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

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

Decoder

غالبا هذه وظيفة مخصصة من عمل المستخدم

وتحتاج لوسيطتين

و هما هنا

العائد من دألتى  dlookup

ابحث فى الوحدات النمطية عن الوظيفة لتعرف ماذا تفعل

والله أعلم

أيضا يخزن الناتج فى متغير b

1 دقيقه مضت, رمهان said:

شوي استاذ عبدالفتاح  .. الراجل لسا مارد بس ماشاء الله عليك قرات اللي في بالي .

ولكن بما نك شرفتنا : اريد التوسعة لسجل واحد فقط . ثم اغلاق التوسعه لنفس السجل ؟ 

تحياتي

المعذرة أستاذنا

ما قصدنا  التقدم على أساتذتنا

و الدفة معك من جديد

1 دقيقه مضت, رمهان said:

شوي استاذ عبدالفتاح  .. الراجل لسا مارد بس ماشاء الله عليك قرات اللي في بالي .

ولكن بما نك شرفتنا : اريد التوسعة لسجل واحد فقط . ثم اغلاق التوسعه لنفس السجل ؟ 

تحياتي

المعذرة أستاذنا

ما قصدنا  التقدم على أساتذتنا

و الدفة معك من جديد

شكلا وقيمة

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

11 ساعات مضت, jjafferr said:

في الواقع صادفت هذه المشكلة في البرنامج ، ولكن لما الحقول كانت نص!!

الله يطمنك

كده تمام

إذن حذف الحقل و إنشاؤها أضمن

و الله استفدنا منكم كثيرا

وفقكم الله

زادكم  الله علما

ونفعنا بكم

من أنفع المواضيع و أعظمها فائدة

شكرا للجميع

أعتقد هذا أجدى و أنفع

منذ ساعه, jjafferr said:

بدل ان نأخذ اعلى قيمة ثم نأخذ اللي بعدها ، خلينا نفرز جميع القيم من الاكبر الى الاصغر ، مثلا للموظف رقم 2

هذا موضوع قيم جدا

صارت عندنا أرصدة من الحلول الجزئية و الكلية

وفقكم الله