اريد ماكروا يغير كلمات في عمود واحد

[العجمي]

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

هذه اولى مشاركاتي هنا تقريبا في هذا القسم وستكون عبارة عن سؤال للأخوة برجاء المساعدة حول الأمور التالية :

لدي قاعدة بيانات أكسس فيها جدول به عمود يحوي البيانات التالية :

واحد

اثنان

ثلاثة

أربعة

اريد عمل ماكرو يقوم بتغيير هذه الكلمات كالتالي :

واحد الى اثنان

اثنان الى ثلاثة

ثلاثة الى اربعة

أربعة الى خمسة

بحيث يشمل التغيير جميع سجلات الجدول مع بعض في نفس الوقت ، تتغير كل الكلمات الى الكلمات التي تجاورها في نفس العمود بنفس الجدول بدون أي شروط فقط ضغط على زر ماكور ينفذ ذلك ويفضل عمل مثال على ذلك اذا أمكن .

والسلام عليكم ورحمة الله وبركاته

[rudwan]

جرب الكود التالي

Private Sub Command0_Click()

Dim Fa As DAO.Recordset
Set Fa = CurrentDb.OpenRecordset("info")
Fa.MoveFirst
Do Until Fa.EOF
Fa.Edit
Select Case Fa![Number]
Case "واحد": Fa![Number] = " اثنان "
Case "اثنان": Fa![Number] = " ثلاثه "
Case "ثلاثه": Fa![Number] = " أربعه "
End Select
Fa.Update

Fa.MoveNext
Loop
Fa.Close
MsgBox " Procedure Done "


End Sub

تم تعديل نوفمبر 20, 2005 بواسطه rudwan