كود رسالة تظهر عدد السجلات عند الفتح

الحجازي طارق كتب:

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

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

سيكون كود الرسالة بهذه الطريقة عند الفتح

Private Sub Form_Open(Cancel As Integer)
Dim x As Integer
x = DCount("[ID]", "Table1")
MsgBox " عدد السجلات في النموذج هي " &  x  & " سجل ", vbInformation, "سجلات"
End Sub

غير ما يلزم في الكود حسب الحقل واسم الجدول لديك

بالتوفيق

شكرا وبارك الله فيكى