كيفية تحديث النموذج مع البقاء في نفس السجل الحالي

[بن شجاع الدين]

سلام عليكم اخواني :

هل يوجد كود يقوم عند النقر على زر امر يقوم بتحديث النموذج بالكامل والبقاء على السجل الحالي .

تاكيد على البقاء على نفس السجل

[Shivan Kurdi]

Docmd.save

Docmd.refresh جرب

تم تعديل مايو 16, 2017 بواسطه Shivan Rekany

[بن شجاع الدين]

شكرا جزيلا اخي العزيز:

توصلت الى طريقة اخرى ومناسبة لأحتياجي وهي كالتالي:

On Error Resume Next
Dim Crnt As Variant

 " رقم التعريف" Crnt

= Me.ID

 Me.Requery

Me.ID.SetFocus

 DoCmd.FindRecord Crnt , , , , , acCurrent