عاوز كود لفتح البرنامج عدد مرات وبعد انتهاء العدد المسموح به تخرج رساله تنبهك

[ahmed-saad]

السلام عليكم

ارجو مساعدتي

عاوز كود لفتح البرنامج عدد مرات وبعد انتهاء العدد المسموح به تخرج رساله تنبهك

مع الشكر

[مختار حسين محمود]

تفضل ضع هذا الكود فى حدث الــــــ    w.b

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If [A1] >= 5 Then GoTo 1
[A1] = [A1] + 1
1:
ThisWorkbook.Save
End Sub

Private Sub Workbook_Open()
If [A1] >= 5 Then
MsgBox "لقد فتح الملف خمس مرات ولا يمكن فتحه مرة اخرى", , "تنبيه"
ThisWorkbook.Save
ThisWorkbook.Close
End If
End Sub

a1 خلية تبين عدد مرات فتح الشيت              تقبل تحياتى

تم تعديل ديسمبر 26, 2014 بواسطه مختار حسين محمود

[ahmed-saad]

اولا اشكرك   أ. مختار على تفاعلك معى

بس لو امكن ممكن تعرفنى نوع الحدثين  ( w.b )

معلشى علشان مستوايا صعيف فى الاكسس

تحياتى

[مختار حسين محمود]

متأسف أخى الكريم

مخدتش بالى أنى فى قسم الاكسس

هذا الكود خاص بالاكسل .

متأسف مرة ثانيه . انتظر شويه وستجد من يلبى طلبك

[ahmed-saad]

يكفينى ان حضرتك اهتميت واشكرك أ .مختار على التوضيح وفى انتظار ردود الاعضاء

[يوسف أحمد]

بارك الله فيك استاذ مختار و جزاك خير الجزاء

 

اخي احمد

 

انظر المرفق به جدول و به حقل واحد يحمل القيمة صفر و عند فتح النموذج الرئيسي سيضاف واحد الى هذا الحقل   .. لاحظ بالكود حد عدد مرات فتح البرنامج هو 5

 

 

ارجو ان يكون هو المطلوب

 

هناك مشكلة في ارفاق الملف

 

عموماً : الفكرة تتلخص في عمل جدول به حقل واحد و بحدث عند الفتح لنموذج بدء البرنامج تضع الكود التالي :

 
DoCmd.RunSQL "UPDATE tblNoOfOpen SET nOfOpen = [nOfOpen]+1;"If 
Nz(DLookup("nOfOpen", "tblNoOfOpen")) < 5 Then    Exit 
SubElse    MsgBox "تم تجاوز الحد المسموح 
به"    DoCmd.QuitEnd If

حيث tblNoOfOpen  هو اسم الجدول

 

nOfOpen  هو الحقل و الذي سيضاف اليه واحد

 

 

 

بالتوفيق 

[ahmed-saad]

بارك الله فيك وجزاك الله خير الجزاء أ. yousef

هذا هو المطلوب واشكرك شكرا جزيلا لردك على سؤالى

[طارق زكريا حسين جاه الرسول]

اين المرفق

[ahmed-saad]

اسف الكود يعمل بصورة جيدة بس لو امكن كنت عاوز انفذ الموضوع بدون جداول ( يكون فى حقل نص غير منضم ) مع الشكر

 

 

ده مرفق تم عملة بكود أ.yousef

لو امكن عاوز الغى الجدول

 

المرفق

aaa.rar

تم تعديل ديسمبر 27, 2014 بواسطه ahmed-saad