السلام عليكم ..
لدي جدول فيه حقل note وحقل txtara
اريد تحديث جميع قيم حقل txtara في الجدول بشرط أنن يحتوي حقل note على كلمة ( نقل ) مثلاً
مثال :
وقد حاولت أن استخدم هذا الكود :
Dim db As Database
Dim MyTABLE As Recordset
Set db = DBEngine.Workspaces(0).Databases(0)
Set MyTABLE = db.OpenRecordset("t_11", dbOpenTable)
Do While Not MyTABLE.EOF
MyTABLE.Edit
If MyTABLE![note] Like"نقل" Then
MyTABLE![txtara] = "رسمي"
End If
MyTABLE.Update
MyTABLE.MoveNext
Loop
MyTABLE.Closeولم يعمل
ماهو الحل الأفضل سواءً بهذا الكود أو بغيره . غفر الله لي ولكم .
