الاخوة الاعزاء
كيف يمكن ان يتم عمل غلق للبرنامج ( جعل البرنامج نسخة تجريبية ) بعد عدد مرات من السجلات معين او عن تكرار فتح نموذج معين
و لكم جزيل الشكر
(مُّحَمَّدٌ رَّسُولُ اللَّهِ وَالَّذِينَ مَعَهُ أَشِدَّاء عَلَى الْكُفَّارِ رُحَمَاء بَيْنَهُمْ تَرَاهُمْ رُكَّعاً سُجَّداً يَبْتَغُونَ فَضْلاً مِّنَ اللَّهِ وَرِضْوَاناً سِيمَاهُمْ فِي وُجُوهِهِم مِّنْ أَثَرِ السُّجُودِ )) (الفتح : 29 )
أولا تحتاج لعملية فحص وهي كم سجل مخزن في قاعدة البيانات بحيث إذا زاد عن العدد المطلوب أغلق الفورم أو أظهر رسالة بأن العدد محدود
يمكنك الإستفادة من الكود التالي
Dim DB As Database
Dim RS As Recordset
Set DB = CurrentDb
Set RS = DB.OpenRecordset("select count(No) as Count_NO from TB")
If RS!Count_No > 10 Then DoCmd.Quitيا أيها الناس قولو لا إله إلا الله تفلحوا وتملكوا بها العرب وتذل لكم العجم وإذا آمنتم كنتم ملوكا في الجنة
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…