salah.sarea قام بنشر April 7 مشاركة قام بنشر April 7 السلام عليكم ورحمة الله وبركاته لو بالامكان اريد كود يكرر لي نص معين اكتبه في النموذج يتم تكراره في جميع السجلات في الجدول . رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر April 7 مشاركة قام بنشر April 7 تفضل أخي @salah.sarea ، هذا الكود لإضافة كلمة تحددها في النموذج الى جميع السجلات في الجدول الذي تختاره ، طبعاً باستثناء حقل الترقيم التلقائي :- Sub AddWordToAllFields() Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSQL As String Dim strTable As String Dim strWordToAdd As String Dim fld As DAO.Field strTable = Txt_Tbl.Value strWordToAdd = Txt_Search.Value Set db = CurrentDb Set rs = db.OpenRecordset(strTable) For Each fld In rs.Fields If fld.Name <> "ID" And fld.Name <> "RecordID" Then strSQL = "UPDATE " & strTable & " SET " & fld.Name & " = IIf([" & fld.Name & "] Is Null, '" & " " & strWordToAdd & " " & "', [" & fld.Name & "] & '" & strWordToAdd & "')" db.Execute strSQL End If Next fld rs.Close Set rs = Nothing Set db = Nothing MsgBox "تمت إضافة الكلمة بنجاح إلى جميع الحقول في الجدول" End Sub Add_Word.accdb 3 رابط هذا التعليق شارك More sharing options...
gavan قام بنشر April 7 مشاركة قام بنشر April 7 السؤال يمكن أن يكون قليل الشرح، هل الجدول ممتلئ بالبيانات ام فارغ؟ ، ماذا لو أدخلت تلك الكلمة في القيمة الافتراضية في الجدول؟؟ بعدها كما تقول لنفترض انك كتبت كلمة،، بيت،، في النموذج ليحول ذلك الحقل في الجدول الي كلمة،، بيت،، وبعدها أردت كتابة كلمة،، سيارة،، سيحول كل الحقل الي الكلمة الجديدة،، سيارة،، ولن يبقى لكلمة،، بيت،، اي أثر، ارجوا ان اكون وفقت في إيصال الفكرة، تحياتي 🌹🌹 1 رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر April 7 مشاركة قام بنشر April 7 13 ساعات مضت, salah.sarea said: لو بالامكان اريد كود يكرر لي نص معين اكتبه في النموذج يتم تكراره في جميع السجلات في الجدول . استاذ @gavan هذا طلب السائل . أم.. هل انت تريد التطبيق على السجلات الجديدة ؟. هنا الكود سيتغير . واذا كان الامر كذلك . حتى لا أركب على عمل استاذ @Foksh نترك له ذلك بعد تحديد طلبك . تحياتي وعيدكم مبارك . رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر April 7 مشاركة قام بنشر April 7 47 دقائق مضت, gavan said: السؤال يمكن أن يكون قليل الشرح، هل الجدول ممتلئ بالبيانات ام فارغ؟ ، ماذا لو أدخلت تلك الكلمة في القيمة الافتراضية في الجدول؟؟ بعدها كما تقول لنفترض انك كتبت كلمة،، بيت،، في النموذج ليحول ذلك الحقل في الجدول الي كلمة،، بيت،، وبعدها أردت كتابة كلمة،، سيارة،، سيحول كل الحقل الي الكلمة الجديدة،، سيارة،، ولن يبقى لكلمة،، بيت،، اي أثر، ارجوا ان اكون وفقت في إيصال الفكرة، تحياتي 🌹🌹 أخي @gavan ، في المثال الذي أرفقته مع الكود في مشاركتي ( إضافة كلمة إلى القيمة الموجودة في السجل ) وليس استبدال القيمة في الحقول كاملةً . رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان