أكاديمية الصقر للتدريب

اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز
المشرف المتميز
المراقب المتميز
المدير المتميز
الموضوع المتميز
القسم المتميز
بكار للأبد Eslam Abdullah لا تميز خلال هذه الفترة YasserKhalil الداله الجديده المعرفه alsqrdate - حسام خطاب اكسيل اسئله واجابات



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





داله لمعرفة رقم الماذربورد

الاخوه العزاء اعضاء المنتدى كل عام و انتم بخير هل يوجد داله فى اكسس لمعرفة رقم المازربورد الخاصه بالكمبيوتر ؟ افيدونا ..



03-06-2018 12:20 صباحا
ابو عبد الرحمن
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 29-09-2017
رقم العضوية : 744
المشاركات : 1
الجنس : ذكر
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 10
الاعجاب : 0
 offline 
الاخوه العزاء اعضاء المنتدى 
كل عام و انتم بخير 
هل يوجد داله فى اكسس لمعرفة رقم المازربورد الخاصه بالكمبيوتر ؟ 
افيدونا فى ذلك و جزاكم الله خيرا




03-06-2018 10:13 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14752
الاعجاب : 5507
 offline 
look/images/icons/i1.gif داله لمعرفة رقم الماذربورد
السلام عليكم أخي الكريم
في الحقيقة أنا مشتغلتش على الأكسس لكن أعتقد الدالة التالية والتي تعمل في الإكسيل ممكن تشتغل معاك أو يمكن التعديل عليها بما يتناسب مع الأكسس
Sub Test_MBSerialNumber_UDF()
    MsgBox MBSerialNumber
End Sub

Function MBSerialNumber(Optional strComputer As String = ".") As String
    Dim v           As Variant
    Dim vName       As Variant
    Dim vUUID       As Variant

    With GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
        For Each v In .ExecQuery("SELECT * FROM Win32_ComputerSystemProduct", , 48)
            vName = v.Name
            vUUID = v.UUID
        Next v
    End With

    MBSerialNumber = vName & ", " & vUUID
End Function






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
برنامج لمعرفة الوزن المثالى - منقول Ahmed Samir
10 296 ahmed_nady779
الطريقة السرية لمعرفة عمر حاسوبك باليوم والشهر والسنة stenour
16 511 abdoo_fox
برنامج البردين لمعرفة أوقات الصلاة (منقول) ali mohamed ali
6 384 السيد عبد النبي مقلاش
الدالة المعرفة AlsaqrExitList Eslam Abdullah
24 1695 ahmedamara
الدالة المعرفة Addin Eslam Abdullah
9 266 الصقر

الكلمات الدلالية
داله ، لمعرفة ، الماذربورد ،


 







الساعة الآن 03:57 مساء

أعلن هنا
أعلن هنا
أعلن هنا