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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
khaled alborene مجدى يونس-- لا تميز خلال هذه الفترة YasserKhalil اكثر من 350 لعبة فلاش للأطفال مجمعه في برنامج واحد Y-GAMES اكسيل اسئله واجابات


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



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





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

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



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

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






03-06-2018 10:13 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6450
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 394
قوة السمعة : 17734
الاعجاب : 452
 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






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
اضافة ازرار انتقال وازرار لمعرفة الخانات الخالية الجزء 15 مجدى يونس
4 54 مجدى يونس
عداد بالفورم لمعرفة اخر رقم مسجل بملف الاكسل مجدى يونس
16 387 مجدى يونس
الدالة المعرفة DateDif30 Eslam Abdullah
36 1181 المبتدأ
الدالة المعرفة AlsaqrExitList Eslam Abdullah
31 2558 شعبان عطيه
الدالة المعرفة ColorEA لجمع الخلايا الملونة Eslam Abdullah
23 1599 المبتدأ

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


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 02:21 مساء

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