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

ان شاء الله يكون طلبك 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 هل صحيح هذا التغير ام توجد طريقة افض

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

🌼

up

او المشعوذبن

الاستاذ المبدع @jjafferr شكرا لمرورك جميل جدا 👌 لكني اريد ان ينتفل التركيز الى الحقل المشابة مع رسالة في حالة وجود نشابة او لم يكن هناك تشابة

السلام عليكم لدي نموذج fxy يحتوي على نموذجين fx , fy احتاج عند الضغط على اي حقل في النموذج fx يبحث عن قيمة هذا الحقل في النموذج fy ثم ينقل التركيز للتشابه ان وجد وفي حال لم يكن هناك قيمة مشابهة تظهر سالة بعدم وجود تشابة fxy.accdb

السلام عليكم هل اسنطيع اضيف هذا الكود الى متغير وكيف DoCmd.GoToRecord , , acNext

ننتطر الشرح استاذ

اخي استخدم التنسيق الشرطي JO (1).accdb

بحسب فهمي للسؤال ضع عند حدث النقر الفحوصات

لاتوجد عندي مشكلة لكن جرب ShortcutMenu = True Refresh

ShortcutMenu = False للاظهار ShortcutMenu = True

اخيرا فهمت فائدة السطرين تحياتي وللعلم الكود الحالي يبحث عن اسم الكتاب والمؤلف قيل ادخالهما الى المكتبة فاذا تم ادخالهما مسبقا يتم اعلام بان الكتاب تم ادخاله فعلا

السلام عليكم في هذا الكود اريد اضافة شرط جديد للكود وحو اسم المؤلف writer If DCount("*", "[TBLibrary]", "[TBLibrary]![bookname]=Forms![FLibraryMain]![FLibrarySub].Form![bookname]") >= 1 Then اي يكون المعيار هو اسم الكتاب bookname + اسم المؤلف writer

السلام عليكم في النموذح FXY اريد حساب عدد السجلات المكررة استنادا الى الحقلين X ,Y لو تلاحظون عدد السجلات هي 2 كيف احسبها XY.accdb