Shivan Rekany

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

اخي رضا الله يطول عمرك هل عملت اخفاء للجداول والنماذج او اي ارفق قاعدة بيانات المطلوبة بصفة عادية لكي نعمل عليه تحياتي

اخي ريباز السلام عليكم ورحمة الله وبركاته في البداية انا فتحت استعلام ترحيل واضفت حقل ANJAM وعطيت له شروط TRUE اي من بها صح وعمل نفس الاستعلام لكن استعلام الحذف واستخدمت هذا الكود لفتح تلك الاستعلامين RESALE = "هل تريد نقل البيانات المحدودة الى جدول اخر" TITLE = "تنبيه" If MsgBox(RESALE, vbMsgBoxRight + vbYesNo, TITLE) = vbYes Then DoCmd.SetWarnings False DoCmd.OpenQuery "appendselected1", acViewNormal DoCmd.OpenQuery "DELETEappendselected1", acViewNormal DoCmd.Requery DoCmd.SetWarnings True MsgBox "تم النقل" End If لكن اذا ماتريد ان يحذف البيانات من الجدول الاول احذف هذا السطر من الكود DoCmd.OpenQuery "DELETEappendselected1", acViewNormal واليك قاعدة بياناتك بعد التعديل append selected.rar

انا عدلت المعلومات وجربت من جديد وحسب رأيي الان ما بها مشكلة والله يعلم دالة شرطية.rar

شوف هل تريد هذا ؟ Database1 (2).rar

اه اسف انا کان الان انا عم استخدم موبايل غدا ان شاء الله راح اشوف علاقة الجداول انتظرني

يا اخ ريباز انا الان عم استخدم موبايل ان شاء الله راح اساعدك غدا اذا ما يسبقني احد تحياتي

اه اسف انا کان عملت شی اخر وکان طلبک شی اخر بعد عرفت ماترید نسیت احذف الاکواد تبعه احذف السطرین اللی یبدا ب Me.t1 Me.t2 وما راح يكون هنالك مشكلة تحياتي واعتزر منك من جديد

يعني تريد حژف الريكورد من الجدول اذا رفعت علامة صح على المربع ؟ صحيح هسة راح اعمل وارفقه جرب هذا اذا ما كان هذا هو المطلوب غدا راح نلتقي من جديد ان شاء الله دالة شرطية.rar

لا اخي احنا هنا للمساعدة في سبيل الله ما ثقلت علي بل كبرت اجري الى الله عز وجل ان شاء الله .... يعني تريد ان لا يحذف المعلومات بس تريد ترفع علامة صح في جدول والنموذج ؟ هل انا فهمت بالصحيح ؟

شوف هل هذا ما تريد او اغير شي دالة شرطية.rar

اتفضل رقم سري هو 212 حماية سجل معين.rar

ممكن توضح لي فقط ماتريد بالضبط اي يعني حقل بالانس بيحسب الريكورد السابقة وبيكمل او تريد يبدأ من جديد حين ننطيه التاريخين تحياتي

هنالك سؤال ماتريد ان يحذف في الجدول هل تريد ان تحذف بس علامة صح على المربعات ام تريد تحذف الريكورد ام تريد تحذف البيانات من حقل منصب الشغل للحالة المدنية و وحقل ريبورت تايتل و رفع علامة صح على المربععات

تمام اخي انا معك 100 % وهي نتيجة صحيحة واذا كاان ظهرت الاربع سوى كانت النتيجة خطأ !! شوف مرة واحدة فقط اسم المستثمر هو وليد راشد و ثلاث مرات هو ناصر مبارك واذا تريد ان يظهر الجميع لا ادخل اي اسم في كومبو بوكس راح يظهر اربع سوى تحياتي

مبروك عليك اخي صالح حمادي فكرت راح يكون ترقيتك الى الخبير لكن صار اكبر من توقعي صرت كفريق الموقق تستاهل الف مبروك

الف الف مبروك اخوي صالح حمادي

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

يا لك يا خبيرنا المستقبل القريب شكرا على هذا المجهود الرائع

كان اريد ان انزل المرفق لكن ما اكدرت وقلت لي لمنتمكن من تحديد المحتوي الذي ترغب في عرضه لذا ارفقه مجددا

شوف اذا اكدرتي ان تطبق عليه الحمد لله واذا ما اكدرتي احنا راح نعمل المطلوب ان شاء الله

اليك هذه القاعدة بها المطلوب كان انا عملت لجمعية خيرية وهذه هو رابطه واليك ملف بعد اضافة حقل جديد برقم تلقائي كود الترحيل.rar

اعتذر منك استاذ جعفر للتدخل حسب فهمي لسؤالك تكدر بيكون كلا من جدولين الموظفين و المتقاعدين بها حقل برقم تلقائي وتكدر تعمل استعلام اضافة بدون حقل رقم تلقائي وحذف الريكورد بعدين في كلا الحالتين واذا تريدي ارفع قاعدة بياناتك لنتم العملية عليه

انا عملت لك المطلوب على القاعدة المرفق في مشاركتي السابقة السماح بطول صفر او شي شبه هذا ما اعرفه بالضبط لكن شوف الصورة بس بالانكليزية

عفوا نسيت استخدم هدول الاكواد بدل السابق Private Sub AgentGuechi_Click() Me.PTetatCivil = "" Call PTetatCivil_AfterUpdate End Sub Private Sub DelegationSainiture_Click() Me.PTetatCivil = "" Call PTetatCivil_AfterUpdate End Sub Private Sub PTetatCivil_AfterUpdate() If Me.PTetatCivil.Value = "مفوض الحالة المدنية" Then Me.DelegationSainiture = True Me.AgentGuechi = False Me.Reporte_Title = Me.PTetatCivil.Value ElseIf Me.PTetatCivil.Value = "" Or IsNull(Me.PTetatCivil) Then Me.AgentGuechi = False Me.DelegationSainiture = False Me.Reporte_Title = Me.PTetatCivil.Value Else Me.AgentGuechi = True Me.DelegationSainiture = False Me.Reporte_Title = Me.PTetatCivil.Value End If 'Me.PTetatCivil.Value = Me.Reporte_Title.Value End Sub وافتح جدول EtatCivil في وضع تصميم وحدد حقل PTetatCivil وغير خاصية Allow Zero Length الى yes واليك ملفك بعد تعديل دالة شرطية.rar