co2002co قام بنشر أبريل 26, 2017 قام بنشر أبريل 26, 2017 السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتكم بكل خير كنت استخدم DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord لتحديد الصف وحذفه كامل لكني اريد فقط حذف قيمة معينه لنفترض ان بالجدول 10 حقول واريد حذف الحقل رقم 5 فقط مع الابقاء على القيم كما هي
Shivan Rekany قام بنشر أبريل 26, 2017 قام بنشر أبريل 26, 2017 اعطيني مثال توضيحي اكثر هل تريد تحذف البيانات من السجل 5 بدون تحذف السجل نفسه ام تريد تحذف البيانات من الحقل اي مثلا عندك حقل اسم و عنوان و رقم تلفوان مثلا وتريد تحذف البيانات من الحقل تلفوان وتبقى حقل نفسه ما هو تريد بالضبط السجل ام الحقل
اكرم العريقي قام بنشر أبريل 26, 2017 قام بنشر أبريل 26, 2017 سوي استعلام تحديث قيمة الحقل المطلوب بشرط رقم السجل واكتب القيمة التي تريد اما صفر او فارغه 1
co2002co قام بنشر أبريل 26, 2017 الكاتب قام بنشر أبريل 26, 2017 في 26/4/2017 at 07:21, اكرم العريقي said: سوي استعلام تحديث قيمة الحقل المطلوب بشرط رقم السجل واكتب القيمة التي تريد اما صفر او فارغه Expand انا ابي انقل قيمة حقل وحذفه بعد النقل فقط الحقل المنقول في 26/4/2017 at 06:35, Shivan Rekany said: السجل ام الحقل Expand الحقل فقط راح ارفق مثال
co2002co قام بنشر أبريل 26, 2017 الكاتب قام بنشر أبريل 26, 2017 Test.rar اريد ان انقبل قيمة الحقل c فقط ومن ثم حذف قيمة الحقل دون الاضرار بقيم الحقول الباقيه
Shivan Rekany قام بنشر أبريل 26, 2017 قام بنشر أبريل 26, 2017 في 26/4/2017 at 13:32, co2002co said: Test.rarFetching info... اريد ان انقبل قيمة الحقل c فقط ومن ثم حذف قيمة الحقل دون الاضرار بقيم الحقول الباقيه Expand حسب فهمي لسؤالك انت عملت المطلوب فقط غير هذه السطرين الى في 26/4/2017 at 05:54, co2002co said: DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord Expand me.c = ""
co2002co قام بنشر أبريل 26, 2017 الكاتب قام بنشر أبريل 26, 2017 في 26/4/2017 at 13:44, Shivan Rekany said: حسب فهمي لسؤالك انت عملت المطلوب فقط غير هذه السطرين الى Expand جرب المثال المرفق If IsNull(Me.c) Then MsgBox "الحقل فارغ" Exit Sub End If DoCmd.Requery On Error Resume Next Dim strSQL As String strSQL = "INSERT INTO Table2 ( c ) SELECT Table1.c" DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord MsgBox "OK" DoCmd.SetWarnings True اريد ان احذف الحقل المنقول فقط بعد النقل
اكرم العريقي قام بنشر أبريل 26, 2017 قام بنشر أبريل 26, 2017 جرب المرفق افتح النموذج شغل زر التحديث بالتوفيق A-test.rar
co2002co قام بنشر أبريل 26, 2017 الكاتب قام بنشر أبريل 26, 2017 في 26/4/2017 at 14:04, اكرم العريقي said: جرب المرفق افتح النموذج شغل زر التحديث بالتوفيق Expand للاسف ليس هذا المطلوب لنفترض ان جميع الحقول ممتلئه واريد نسخ قيمه الحقل c الى الجدول الاخر وحذف قيمة الحقل c مع الابقاء على باقي الحقول كما هي
co2002co قام بنشر أبريل 26, 2017 الكاتب قام بنشر أبريل 26, 2017 في 26/4/2017 at 14:49, اكرم العريقي said: اتفضل اتمنى يكون المطلوب Expand للاسف لا بس انت اعطيتني المفتاح بجد اشكرك If IsNull(Me.c) Then MsgBox "الحقل فارغ" Exit Sub End If DoCmd.Requery On Error Resume Next Dim strSQL As String strSQL = "INSERT INTO Table2 ( c ) SELECT Table1.c" Me.c = "" If IsNull(Me.c) Then MsgBox "ÇáÍÞá ÝÇÑÛ" Exit Sub End If DoCmd.Requery On Error Resume Next Dim strSQL As String strSQL = "INSERT INTO Table2 ( c ) SELECT Table1.c" DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.RunCommand acCmdSelectRecord Me.c = "" MsgBox "OK" DoCmd.SetWarnings True
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.