ازهر عبد العزيز

دائما ثلاث ثواني لكن البرنامج توقف بعد تشغيل استعلام الالحاق

اعتقد اني وجدت الحل لك وذلك عن طريق الكود للاستاذ @Eng.Qassim If Me.tot = 0 Then Dim ID As Long ID = CurrentRecord - 1 Me.tot.Value = DLookup("tot", "asas", "ID=" & ID) End If

اسف لايوجد عندي حل لكني منتظر معك الاجابة

استخدم الكود Private Sub tot_AfterUpdate() If Me.tot = 0 Then Me.oldtot = Me.tot.OldValue End If End Sub teatea.accdb

جرب هذا المرفق لعله بفيدك note.rar

Me.lastupdate = Date ضع في حدثث بعد التحديث للحقول الثلاثة

ممكن تفهمني هذا الجدول ماهو وماذا تقصد بالحقل TABOL_NO هل هو رقم الموظف ؟

عذرا لم افهم الطلب هل من الممكن التوضبح اكثر

حسب فهمي لطلبك 1782942947_.accdb

وغليكم السلام استخدم اسنعلام التحديث ولن تحتاج الى كود

جزبل الشكر استاذ على هذا الكود الاكثر من رائع

جزبل الشكر بااخي وهو المطلوب

السلام عليكم في النموذج Fimg مريع صورة مسار الصورة له هو ="C:\bookimg\img\1.jpg" كيف اجغل هذا المسار مخصص لفولدر قاعدة البيانات اي لو تم نقل فلودر قاعدة البيانات الى بارتيسن اخر ولنفرض e لايتاثر مسار الصورة بمعنى ماذا اضع بدل حرف c ليفهم الاكسس ان هذة الصورة موجوده في قولدر قاعدة البيانات دائما bookimg.rar

لا حظ اخي الحبيب الكود IIf(IsNull([D_ObsT]) And IsNull([Gr_Pro]);"X";"Y") هو المسؤول عن اظهار النتائج اضف له القيم الجديده للنتائج التي برغب بعرضها ثم لاحظ العلاقات يجب عند اضافة جدول جديد عمل لهة نفس الغلاقة اما اذا التبس عليك الامر ارشل مرفق و ان شاء الله انا او اي الموجودين بالخدمة واسئلك الدعاء لامي

ان شاء الله يكون طلبك Database27.accdb

اخي ادخل بيانات جديدة في جدول tbl_confrmation جدول tbl_promotion جدول tbl_takfl لحسب رقم الموظف لاني قمت بمسح البيانات القديمة بسبب الاخطاء الموجوده لديك لاحظ المرفق Database27.accdb

وعليكم السلام Database27.accdb

محاولة على قدر فهمي لطلبك ddsum.accdb

السلام عليكم لدي اكسس 2019 كيف اجعل قاعدة البيانات تعمل على النسخ القديمة من اكسس

بالنسبة لي سوف اعتمد متال الاستاذ جعفر فلم اجد بة مشاكل عند التطبيق مع شكري الجزبل للستاذ قاسم

Dim rst_fy As DAO.Recordset Dim rs As DAO.Recordset Dim IsExists As Boolean Set rs = [Forms]![fxy]![fy].Form.RecordsetClone With rs If Not (.BOF And .EOF) Then .MoveFirst Do While Not .EOF IsExists = (!yyy = Me.xxx) If IsExists Then Exit Do .MoveNext Loop .Close End With Set rs = Nothing If IsExists Then MsgBox "الرقم موجود" & Me.xxx Set rst_fy = Forms!fxy!fy.Form.RecordsetClone Me.Parent!fy.Form.Bookmark = rst_fy.Bookmark Me.Parent!fy.SetFocus Else MsgBox " الرقم غير موجود" End If مع دمج الكودين الاستاذ @jjafferr الاستاذ @Eng.Qassim اعتقد اني استحق افضل اجابة 😁

جميل استاذ Eng.Qassim لكن لاحظت ان نقل التركيز بطئ

استاذ @jjafferr في حال لايوجد بيانات في النموذج FY يظهر ERROR وضعت هذا الامر ل rst_fy.OpenRecordset بدل هذا الجزء rst_fy.MoveFirst هل صحيح هذا التغير ام توجد طريقة افض

جزاك اللة عني كل خير وحفظك ورعاك

🌼