ابو جودي

اتفضل فقط قم باستيراد الجدول tblGetFieldName وكذلك النموذج frmChangeDefaultValue الى القاعدة الخاصة بك وغير القيمة لاى حقل فى اى جدول Change default value programmatically.mdb

البيانات تبقى كما هى بنفس الجدول Table2 يتم ترحيل البيانات الى الجدول tblTempData بدون اى تكرار اخطار التى تناسب احتياجاتك Correct data without duplication .mdb

مشاركة متواضعة مع أساتذتي العظماء للعلم فقط كان ممكن التصميم يقتصر على عدد 2 استعلام فقط وجدول لترحيل البيانات الصحيحة بدون تكرار ولكن حاولت حل المشكلة دون ان يكون تأثير على تصميمك يعنى التعديل فى الاخر بيتم ع الجدول الاساسى كما انه كان من الممكن الاستغناء عن كل الاستعلامات بكتابة جملة SQL لكل استعلام حسب ترتيبه على زر الامر ولكن حتى يسهل عليك التعرف على الافكار ببساطه Correct data without duplication_.zip

طيب ايه بس ياللى مش فاهمه ؟

لا تقول لحالك شئ تانى ولا تكلمه دى اخرتها هاهاهاهاهاها

ونقلا عن الاستاذ @ناقل اتفضل المرفق MusndWZwayid001(2).accdb

والان حتى تكتمل الفائدة المرفق النهائى يحتوى على جميع الافكار Tab05 (1).accdb

السلام عليكم ورحمة الله تعالى وبركاته استاذى الجليل ومعلمى القدير @husamwahab ولان الاستاذى الفاضل الكريم @nssj طلب كود ذكى هاهاهاهاها عجباني قوى كود ذكى دى وحضرتك تفضلت علينا جميعا بحلولك الرائعة وأكوادك الأروع أرد بضاعتكم اليكم بإعادة التكويد ليكون روتين عام داخل موديول ليسهل التعامل معه فى زوايا البرنامج سواء كان مصدر البيانات استعلام او جدول الكود داخل الموديول Public Function RcrdSrc(ByVal RecordSource As String) On Error GoTo ErrorHandler Dim FirstChar As Long Dim SecondChar As Long Dim XCount As Long RecordSource = Replace(RecordSource, ";", " ") FirstChar = InStr(RecordSource, "from") + 5 SecondChar = InStr(FirstChar, RecordSource, " ") XCount = SecondChar - FirstChar RcrdSrc = Mid(RecordSource, FirstChar, XCount) ExitHere: On Error GoTo 0 Exit Function ErrorHandler: Select Case Err.Number Case Is = 5 RcrdSrc = (RecordSource) Case Else MsgBox Err.Description, , "ERROR " & Err.Number GoTo ExitHere End Select End Function ولجلب مصدر البيانات يتم استخدام الكود الاتى MsgBox (RcrdSrc(RecordSource)) طبعا انا استخدمت فى الشرح صندوق رسائل كل واحد يضع الكود أينما يريد بدلا من صندوق الرسائل المستخدم فى للشرح هنا فقط DB(2).mdb

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

اتفضل وهذا مرفقكم بعد التعديل valu (1).accdb مفيش أي تعب تحت امر حضرتك يا اهلا بيك

طيب انت لاحظت ان c2 ده حقل رقمي فى الجدول ؟! على كل حال ان كان الحقل نصى الكود يكون بهذا الشكل DoCmd.SetWarnings False DoCmd.RunSQL$ "insert into tbc(idn, cdatex, c1,c2 )VALUES(idn,tdatex, c1,'Rm')" DoCmd.SetWarnings True

اى حقل c1 ام C2 فى المنتدى انت طلبت c1 وفى المرفق طلبت c2 الله يرضى عليك ركز

ممكن مرفق وما المقصود بـ قيمة الحقل c1 في الجدول بعد الترحيل تساوي Rm

ههههههههه اى اناا عفريت المصباح

ماشى حظك حلو ماشاء الله جالك الأستاذ @husamwahab ومعاه مصباح علاء الدين حقق امانيك

جزاكم الله خيـرا ممكن تتكرم بالكود بارك الله فيك

لايوجد رابط لهذا الملف

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

السلام عليكم مشاركة مع استاذى الجليل واخى الحبيب @husamwahab ضع الكود الاتى فى موديول Function SpDelRec(ByVal strTableName As String, ByVal strFieldName As String) On Error GoTo ErrorHandler Const MyMsg = "Are you sure you wish to delete the records?" If MsgBox(MyMsg, vbYesNo + vbQuestion, "Confirm") = vbYes Then DoCmd.SetWarnings False DoCmd.RunSQL "DELETE [" & strTableName & "].* FROM [" & strTableName & "] WHERE ((([" & strTableName & "].[" & strFieldName & "]) Between [start delete from] And [To]))" DoCmd.SetWarnings True Else Exit Function End If ExitHere: On Error GoTo 0 Exit Function ErrorHandler: Select Case Err.Number Case Is = 2001, 3167 MsgBox "Action Aborted . " Case Else MsgBox Err.Description, , "ERROR " & Err.Number GoTo ExitHere End Select End Function وقم بعمل زر امر فى النموذج الذى تريد وضع الكود الاتى فى حدث عند النفر على الزر 'Call SpDelRec("Table Name", "Field Name") Call SpDelRec("TAB_RMZ", "TNO") وطبعا لأنك طلبت تم كتابة الروتين ليكون عام ومرن ليجعلك تكتب اسم الجدول الذى تريده مهما كان عدد الجدول فى كل زر امر اكتب الجدول الذى تختصه فى حذف السجلات منه وكذلك اسم الحقل جعلته مرنا تكتبه بكود زر الامر حتى ان كان اسماء الحقول مختلفة فى الجداول طبعا لا انسى أخص بالشكر استاذى الجليل ومعلمى القدير الأستاذ @jjafferr من أجل هذة الجزئية تحديدا [" & strTableName & "] جزاه الله هو وكل اساذتى الكرم كل الخيـر تقبل تحياتى

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

اتفضل مساحات (1).accdb

المرفق كما ينبغي ان يكون مساحات (2).accdb

جزانا الله واياكم خير الجزاء بس نصيحة انا قدمت الحل بطريقة خطأ لم يكن ينبغى استخدام الاحرف العربية داخل محرر الاكواد نصيحة اليكم تجنبوا استخدام اللغة العربية داخل المحرر

استاذى الجليل ومعلمى القدير و والدى الحبيب استاذ @ابوخليل جزاكم الله خيـرا على التنويه والتطرق الى تلك النقطة الهامة ومن أجل ذلك طلبت من الدكتور حلبى تجربة المرفق الخاص بأخونا الفاضل الاستاذ @Ahmed_J ولانى لا اعلم نتيجة التجربة أنتظر عودة الدكتور حلبى ان شاء الله ولكن الحل الوحيد المتبقى لدى الأن بعد رد الدطتور حلبى ان لم يجد مراده من مرفق الاستاذ @Ahmed_J هو عمل SplashForm عند الفتح يقوم بـ 1- الاحتفاظ بقيم دقة الشاشة الحالية 2- تعديل دقة الشاشة الى القيم التى يريدها الدكتور حلبى والتى قام بالتصميم عليها 3- عند الاغلاق استرجاع القيم لدقة الشاشة والتى تم الاحتفاظ بها عند الفتح واعرف ان ما يعيب هذه الطريقة انه فى حالة التهنيج والخروج من الاكسس بدون المرور على كود عودة الدقة الى القيم المحفوظة سوف تظل دفة الشاشة على القيم الجديدة المعدلة دون عودة انته جيدا يا دكتور لهذه الاسطـــــــــر وعلى وجه الخصوص واعرف ان ما يعيب هذه الطريقة انه فى حالة التهنيج والخروج من الاكسس بدون المرور على كود عودة الدقة الى القيم المحفوظة سوف تظل دفة الشاشة على القيم الجديدة المعدلة دون عودة

طيب يا دكتور جرب على مختلف الشاشات وشوف الدنيا تمام واللا لاء؟ منتظر ردك