محمد سعيد رشاد قام بنشر April 6 مشاركة قام بنشر April 6 @jjafferr اخى هل هذه مشكله فى اللغه ام ماذا ؟؟ رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر April 6 مشاركة قام بنشر April 6 عفوا، وين السؤال ؟ رابط هذا التعليق شارك More sharing options...
محمد سعيد رشاد قام بنشر April 6 الكاتب مشاركة قام بنشر April 6 كلمه dimo رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر April 6 مشاركة قام بنشر April 6 مع انك لم تعطي السؤال كاملا، ولكن ومن ملاحظتي للبيانات، الظاهر انك استعملت برنامج تجريبي لإسترجاع البيانات، فترك بصمته على بياناتك. جعفر 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة Foksh قام بنشر April 6 أفضل إجابة مشاركة قام بنشر April 6 (معدل) تفضل أخي @محمد سعيد رشاد . إن كانت السجلات كبيرة وعددها كثير ، جرب هذا المرفق لحذف الكلمة التي تريدها دون التعديل على القيم أو التأثير عليها . اختر الجدول ثم اكتب الكلمة التي تريد حذفها من بين السجلات كود لجلب اسماء الجداول في قاعدة البيانات ، وإدراجها في الكومبوبوكس :- Private Sub Form_Open(Cancel As Integer) Dim db As DAO.Database Dim tbl As DAO.TableDef Dim strTableName As String Me.Txt_Tbl.RowSource = "" Set db = CurrentDb For Each tbl In db.TableDefs If Not (tbl.Name Like "MSys*" Or tbl.Name Like "~*") Then Me.Txt_Tbl.AddItem tbl.Name End If Next tbl db.Close Set db = Nothing End Sub والكود الرئيسي هو البحث عن الكلمة التي تم ادخالها في مربع النص ، ومن ثم حذفها :- Sub DeleteWordFromAllFields() Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSQL As String Dim strTable As String Dim strWordToDelete As String Dim fld As DAO.Field strTable = Txt_Tbl.Value strWordToDelete = Txt_Search.Value Set db = CurrentDb Set rs = db.OpenRecordset(strTable) For Each fld In rs.Fields strSQL = "UPDATE " & strTable & " SET " & fld.Name & " = Replace([" & fld.Name & "], '" & strWordToDelete & "', '')" db.Execute strSQL Next fld rs.Close Set rs = Nothing Set db = Nothing MsgBox "تم حذف الكلمة بنجاح من جميع الحقول" End Sub Delete_Word.accdb تم تعديل April 6 بواسطه Foksh 1 رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر April 6 مشاركة قام بنشر April 6 عمل جميل استاذ @Foksh لكنه لايحدث ان كان المعرف ترقيم تلقائي رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر April 6 مشاركة قام بنشر April 6 4 دقائق مضت, Eng.Qassim said: لكنه لايحدث ان كان المعرف ترقيم تلقائي كلامك صحيح أخي @Eng.Qassim ، ولا شك فيه . الترقيم التلقائي لا تستطيع التغيير فيه ولكن مشاركتي كانت بهدف توفير الوقت لصالح الأخ @محمد سعيد رشاد عندما استرجع بياناته المحذوفة عن طريق برنامج مجاني ، ولكني وسعت الفكرة بجعلها حرة الاختيار للجدول والكلمة 2 رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر April 6 مشاركة قام بنشر April 6 استاذ @محمد سعيد رشاد اذا كان طلبك مهم ارسل القاعدة . لدي البرنامج مفعل . 2 رابط هذا التعليق شارك More sharing options...
gavan قام بنشر April 7 مشاركة قام بنشر April 7 تحياتي للأخ خليفة🌹🌹 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.