أستاذنا
طبقت الكود السابق كما يلي
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_DiskDrive", , 48)
For Each objItem In colItems
s = objItem.SerialNumber
Next
If s = "1210253353" Then
DoCmd.OpenForm "frm-userlogon"
Else
MsgBox "البرنامج محمي لا يمكن فتحه"
DoCmd.Quit
End If
ورقم الفلاش هو
1210253353
ولكن النتيجة أن الرسالة تظهر البرنامج محمي
مع أنه المفروض أن يدخل عن النموذج
مع العلم أن الكود تم وضعه في حدث عند الفتح للنموذج