[ تمت الإجابة ]كيف اضع عدد مرات فتح النموذج

شوف المرفق كنت قد عملته سابقا

ان شاء الله يؤدي غرضك ... موفق دوما

ملاحظات

القيمة تسجل في الريجستري بالنسبة لهذا المثال

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

لايمكن للمستخدم تصفير القيمة الا بالاطلاع على الكود

Ekseer_Runcount.rar

Dim cont As Integer
Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("Table3")

If rs.RecordCount = 0 Then GoTo adn:

rs.MoveFirst
rs.Edit
rs!OpenForm = rs(0) + 1
rs.Update
Exit Sub


adn:
rs.AddNew
rs!OpenForm = 1
rs.Update

وهذا مثال اذا اردت ان يكون على جدول

اسم الجدول يجب ان يكون table3

فيه حقل اسمه openform

او تغيره حسب ما تريد

استاذي الكريم اكسير ....................الله يعطيك الف عافيه .......نعم هذا هو المطلوب .....ارجوا ان تتواجد تائما بكرمك في العطاء لهذا المنتدى الكريم

استاذي الكريم human73 الله يعطيك العافية ماقصرت .............انا الصراحة ماجربت الكود ولكن اعرف انه 100% ممتاز على ابداعات الذي وضعه

بسم الله الرحمن الرحيم

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة