(تمت الاجابة) التسجيل والحفظ

[aben_hamid]

السلام عليكم

كيف اقوم بالتسجيل في النموذج لسجل ولايقوم بالحفظ حتى اضغط حفظ واذا ضغط زر تراجع لايقوم بالتسجيل ياليت مثال ياشباب يعطيكم الف عافية

تحياتي

[جهراوي الكويت]

اخي ..

اذهب الى النموذج بطريقة عرض التصميم

ةوعند الحدث ( قبل التحديث ) للنموذج

ضع هذا الكــــــــــــــــــــــــــــــود

قد يبدو الكود غير واضح أو غير منسق .. لأنه مكتوب باللعة العربية

لكن اعمل عملية نسخ .. وضعه في النموذج وسوف يعاد الى وضعه الطبيعي ..

هذا لكود يعمل عند حدوث أي تغييرات ويعبر عنه باللغة الانجليزيىة ( ديرتي )

اذا حفظ أو تراجع

If Me.Dirty = True Then

Dim a As String, b As String

Dim c As Long

a = " åá ÊÑíÏ íÝÙ ÇáÊÛííÑÇÊ "

b = "Êã ÊÛííÑ ÇáÓÌá"

c = MsgBox(a, vbYesNo + vbExclamation, b)

If c = vbNo Then

Cancel = True

Me.Undo

End If

End If

[aben_hamid]

اشكرك