تحويل كود في منشأ التعليمات البرمجية إلى الماكرو

[moho58]

السلام عليكم

من فضلكم أٍريد تحوبل الكود التالي:

Private Sub الرقم_AfterUpdate()
If [Forms]![كتاب]![الرقم] <= [Forms]![كتاب]![نص338] Then
Me.الرقم = ""
MsgBox "تنبيه: الرقم مكرر", vbInformation, "تنبيه"
End If
End Sub

إلى الماكرو   يعني استعمال منشأ الماكرو

 

الرجاء المساعدة في اقرب وقت وبارك الله فيكم

[kkhalifa1960]

تفضل أخي .

اذا كان هذا طلبك اضغط على أفضل اجابة .

تفضل المرفق .

 

DD142.accdb

[moho58]

منذ ساعه, kkhalifa1960 said:

تفضل أخي .

اذا كان هذا طلبك اضغط على أفضل اجابة .

تفضل المرفق .

 

DD142.accdb 864 kB · 6 downloads

بارك الله فيك أخي وربي يجازيك هذا هو المطلوب بالدات