مساعدة لتنفيذ كود Recordset

[elkareee]

السلام عليكم 

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

Tbl

المطلوب من الكود انه يشوف هل السيريال للهارد و رقم اللوحة الأم الموجودين بالنموذج مطابقين لأى سجل فى الجدول المذكور أم لا بحيث فى حالة المطابقة يفتح النموذج الرئيسى وفى حالة عدم احتواء الجدول على السيريال مع رقم اللوحة الام يطلع رسالة " ليس لديك صلاحية " ثم يخرج من البرنامج

مرفق بصيغتين 2010 و 2003 

جزاكم الله خير

Example.rar

تم تعديل ديسمبر 1, 2017 بواسطه elkareee

[jjafferr]

تفضل

 

ولا داعي لإستخدام Recordset ، فـ Dcount تفي بالغرض

Private Sub Form_Load()
'Me.CPU = GetWmiDeviceSingleValue("Win32_Processor", "ProcessorID")
'Me.BIOS = GetWmiDeviceSingleValue("Win32_BIOS", "SerialNumber")

    C = GetWmiDeviceSingleValue("Win32_Processor", "ProcessorID")
    'Debug.Print C
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Dim obj_FSO As Object, obj_Drive As Object
 Set obj_FSO = CreateObject("Scripting.FileSystemObject")
 Set obj_Drive = obj_FSO.GetDrive("c:\")
 'MsgBox obj_Drive.SerialNumber
' Me.HardSerial = obj_Drive.SerialNumber
    H = obj_Drive.SerialNumber
    'Debug.Print H
 Set obj_FSO = Nothing
 Set obj_Drive = Nothing
 
 '
    If DCount("*", "tbl", "[Pro]='" & C & "' And [Hard]='" & H & "'") > 0 Then
        'Exists
        DoCmd.OpenForm "frm2"
    Else
        DoCmd.OpenForm "frm1"
    End If
    
    DoCmd.Close acForm, Me.Name
    
End Sub

 

جعفر

775.1.mdb.zip

[elkareee]

اقتباس

ولا داعي لإستخدام Recordset ، فـ Dcount تفي بالغرض

استاذى الفاضل جزاك الله خير ... فعلا اقصر الطرق ابسطها 

عندى استفسار اخر ما سبب الارقام الموجودة تسمية جميع امثلتك  775 هل هى تسلسل لشئ معين ام ماذا لاحظتها اكثر من مرة 

 

[jjafferr]

حياك الله

 

همممم ، انت الوحيد الذي سألني عن هذا التسلسل 

 كل سؤال أرد عليه في المنتدى وبه مرفق ، اجعله عندي في تسلسل

وإذا تطلب الأمر تعديل جذري عليه، فيظل التسلسل + 0.1

 

و حقوق الطبع والنشر محفوظة

 

جعفر

[elkareee]

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

[jjafferr]

حياك الله، ولي الشرف

[النجاشي]

منذ ساعه, jjafferr said:

حياك الله

 

همممم ، انت الوحيد الذي سألني عن هذا التسلسل 

 كل سؤال أرد عليه في المنتدى وبه مرفق ، اجعله عندي في تسلسل

وإذا تطلب الأمر تعديل جذري عليه، فيظل التسلسل + 0.1

 

و حقوق الطبع والنشر محفوظة

 

جعفر

اسعدك الله استاذنا. دوما وانت بجورانا

شكرا اليك استاذنا جعفر

[jjafferr]

1 ساعه مضت, ابو زاهر said:

اسعدك الله استاذنا. دوما وانت بجورانا

شكرا اليك استاذنا جعفر

شكرا اخي وضاح

 

وانا شاكر متابعتك كذلك

 

جعفر