تكرار قيمة حقل في باقي السجلات

[حمدي توفيق]

كيفية تكرار قيمة حقل معين في نموذج في باقي السجلات لهذا الحقل , بحيث عند تغيير قيمة الحقل في السجل الأول تتغير باقي السجلات تلقائيا بناء على قيمة السجل الأول لهذا الحقل فمثلا الحقل school عند تغيير السجل الأول فيه أريد أن يتكرر التغير في باقي السجلات كما هو موضح بالمرفق

ham.accdb

تم تعديل أغسطس 22, 2018 بواسطه حمدي توفيق

[صالح حمادي]

السلام عليكم

إليك طريقتين و أختار أيهما تشاء:

الطريقة الأولى:

Dim Strschool As String
Dim i As Integer
Strschool = Me.school
DoCmd.GoToRecord , , acFirst

For i = 1 To DCount("*", "teacher")
   Me.school = Strschool
   DoCmd.GoToRecord , , acNext
Next i

الطريقة الثانية:

Dim mysql As String
mysql = "update [teacher] set [school]='" & Me.school & "';"
Me.Refresh
DoCmd.RunSQL mysql

 

الطريقة الأولى.rar

الطريقة الثانية.rar

[حمدي توفيق]

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

 

تم تعديل أغسطس 22, 2018 بواسطه حمدي توفيق