Next
BIOx = BIOx + 11 / 3.1 * 66612.9 / 7 * 13
For i = 1 To Len(GetDriveHD)
GetDrivX = GetDrivX & (AscW(Mid(GetDriveHD, i, 1)))
Next
GetDrivX = GetDrivX / 3 * 30811.1 * 2.9 + 31235 * 1301.2
'ÇáÊÇßÏ ãä ÑÞã ãÝÊÇÍ ÇáÊÔÛíá
If Val(Prox) = Nz(Val(DLookup("[SnProc]", "sntb")), 0) And Val(BIOx) = Nz(Val(DLookup("[SnBIOS]", "sntb")), 0) And _
Val(GetDrivX) = Nz(Val(DLookup("[SnDrv]", "sntb")), 0) Then
Label0.Caption = "äÌÇÍ ÇáÊÓÌíá ãÈÑæß ÇáÑÞã ÕÍíÍ"
Else
DoCmd.Close
MsgBox "ÇáÑÞã ÛíÑ ÕÍíÍ"
DoCmd.OpenForm "StartUpFrm"
End If
الكود دة في form1
المفروض لما افتح البرنامج يجبي ارقام القطع بس مش بيجبها بيجيب الرسالة الي في المشاركة الاولي