aben_hamid قام بنشر أكتوبر 19, 2007 مشاركة قام بنشر أكتوبر 19, 2007 السلام عليكم كيف اقوم بالتسجيل في النموذج لسجل ولايقوم بالحفظ حتى اضغط حفظ واذا ضغط زر تراجع لايقوم بالتسجيل ياليت مثال ياشباب يعطيكم الف عافية تحياتي رابط هذا التعليق شارك More sharing options...
جهراوي الكويت قام بنشر أكتوبر 20, 2007 مشاركة قام بنشر أكتوبر 20, 2007 اخي .. اذهب الى النموذج بطريقة عرض التصميم ةوعند الحدث ( قبل التحديث ) للنموذج ضع هذا الكــــــــــــــــــــــــــــــود قد يبدو الكود غير واضح أو غير منسق .. لأنه مكتوب باللعة العربية لكن اعمل عملية نسخ .. وضعه في النموذج وسوف يعاد الى وضعه الطبيعي .. هذا لكود يعمل عند حدوث أي تغييرات ويعبر عنه باللغة الانجليزيىة ( ديرتي ) اذا حفظ أو تراجع 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 رابط هذا التعليق شارك More sharing options...
aben_hamid قام بنشر أكتوبر 21, 2007 الكاتب مشاركة قام بنشر أكتوبر 21, 2007 اشكرك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.