خانة للصنف المعدل

[husseinharby]

السلام عليكم 

في النموذج المرفق اريد عند التعديل علي اسم الصنف الحالي ان يظهر اسم الصنف ماقبل التعديل في خانة اسم الصنف القديم

 

Documents.rar

تم تعديل يونيو 2, 2023 بواسطه husseinharby

[ابوخليل]

اقرب واسهل طريقة هو ان يتم حفظ قيمة الحقل عند التركيز وقبل اجراء اي تغيير

Dim i As String
Private Sub item_GotFocus()
i = Me.item
End Sub
Private Sub item_BeforeUpdate(Cancel As Integer)
Me.note = i
End Sub

 

New2.accdb

[husseinharby]

شكرا اخي ابو خليل

 

[شايب]

وممكن نختصر الامر

في حدث بعد التحديث نضع الامر

Dim i As String
i = Nz(item.OldValue, "")
note = i

 

[ابوخليل]

تصدق يالشايب كأني اعرفك .. 

عودا حميدا .. وحياك الله .. في المنتدى وفي قلوبنا