اذهب الي المحتوي
أوفيسنا

عبدالله المجرب

أوفيسنا
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    5,409

  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    47

عبدالله المجرب last won the day on سبتمبر 4 2017

عبدالله المجرب had the most liked content!

السمعه بالموقع

606 Excellent

Community Answers

65

See answers

44 متابعين

اعرض كل المتابعين

عن العضو عبدالله المجرب

  • تاريخ الميلاد 02 فبر, 1984

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    موظف
  • البلد
    مملكة البحرين
  • الإهتمامات
    صرح اوفسينا التعليمي

وسائل التواصل

  • MSN
    alalwi07@msn.com

اخر الزوار

15,456 زياره للملف الشخصي
  1. عبدالله المجرب
    جميل جدا جاري التجربة مع جزيل الشكر
  2. عبدالله المجرب
    السلام عليكم راجع هذا الموضوع https://www.officena.net/ib/topic/84487-عرض-عدد-سجلات-معينه-في-التقرير/
  3. عبدالله المجرب
    السلام عليكم اخي صالح جرب هذا الحل بالنسبة للمجموع لم اجد الوقت للتعديل فقم بذلك اذا كان هذا المطلوب الشهادات.zip
  4. أبومروان started following عبدالله المجرب
  5. محمد مسافر started following عبدالله المجرب
  6. عبدالله المجرب
    الف مبروك الترقية المستحقة
  7. haroun55 started following عبدالله المجرب
  8. omerahmed5 started following عبدالله المجرب
  9. عبدالله المجرب
    الف مبروك والى الامام دائما مع هذا الصرح العظيم
  10. عبدالله المجرب started following التعامل مع صفوف واعمدة الجداول في الوحدات النمطية او في اكواد vba و مكتبة الموقع - الكاتب الذكي لدوال المجال :::: Dloockup وأخواتها 😊
  11. عبدالله المجرب
    رائع جدا ومفيد جدا بكتابة الدوال جزاك الله خيرا
  12. عبدالله المجرب
    جربت هذا الحل والى الان الامور تمام سلمت استاذ جعفر شكرا لك وكل عام والجميع بخير
  13. عبدالله المجرب
    ان شاء الله اجرب واعلمك النتيجة
  14. عبدالله المجرب
    هل تقصد ان الدالة بوضعها التالي Private Declare PtrSafe Function apiGetUserName Lib "advapi32.dll" Alias _ "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long ستعمل على النواتين
  15. عبدالله المجرب
    تم التوصل الى الخلل في هذه الدالة apiGetUserName بالذات هذا السطر nSize As Long لازم يكون nSize As LongPtr طلبي الان هو التعديل في الكود بخيث يعمل على النواتين Option Compare Database Option Explicit #If VBA7 Then Private Declare PtrSafe Function apiGetUserName Lib "advapi32.dll" Alias _ "GetUserNameA" (ByVal lpBuffer As String, nSize As LongPtr) As Long #Else Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _ "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long #End If Function fOSUserName() As String ' Returns the network login name Dim lngLen As Long, lngx As Long Dim strUserName As String strUserName = String$(254, 0) lngLen = 255 lngx = apiGetUserName(strUserName, lngLen) If (lngx > 0) Then fOSUserName = Left$(strUserName, lngLen - 1) Else fOSUserName = vbNullString End If End Function بالذات في هذه الدالة Function fOSUserName() As String ' Returns the network login name Dim lngLen As Long, lngx As Long Dim strUserName As String strUserName = String$(254, 0) lngLen = 255 lngx = apiGetUserName(strUserName, lngLen) If (lngx > 0) Then fOSUserName = Left$(strUserName, lngLen - 1) Else fOSUserName = vbNullString End If End Function لانها ظهرت اخطاء في هذه الاسطر lngx = apiGetUserName(strUserName, lngLen) وهذا السطر fOSUserName = Left$(strUserName, lngLen - 1)
  16. عبدالله المجرب
    كل عام وانت بخير استاذ جعفر شكرا للرد لكنه الواقع والمشكلة التي اصادفها هي انه بعد حوالي 5 دقائق يغلق البرنامج وتظهر له نسخة احتياطية ثم يفتح من جديد وهكذا
  17. عبدالله المجرب
    استخدم دالة البحث Dlookup ضع معيار البخث ضمن الشروط وبعدها استخدم نتيجة الدالة في تنفيذ شرطك
  18. عبدالله المجرب
    لا زلت اعاني من هذه المشكلة جربت التعديلات المطلوبة على حسب معرفتي (عملت #If VBA7 Then - وكذلك PtrSafe بدلت المتغيرات التي تحتاج الى تغيير مثل Len الى LenB طبعاً حسب الحاجة) لا زالت المشكلة عندي انه اذا شغلت البرنامج على اوفيس 64 بت فانه يعمل لمدة 5 دقائق وبعدها فجأة يغلق ويقوم بعمل نسخة إحتياطية ثم تشغيل البرنامح طبعاً جربته على خمسة كمبيوترات لاني كنت اعتقد المشكلة في الاوفيس ولا والت المشكلة مستمرة طبعاً عملت Compile ولكن لا توجد اخطاء في الكود ويصبخ غير مفعل اي انه لا اخطاء في الأكواد ما الحل من فضلكم
  19. عبدالله المجرب started following هل يوجد برنامج للاندرويد يشغل برنامج اكسس
  20. عبدالله المجرب
    بالانتظار
  21. عبدالله المجرب
    ما شاء الله استاذ جعفر انت كما عودتنا دائما تفاجأنا بالجديد المبهر سلمت استاذي الفاضل
×
×
  • اضف...

Important Information

  I accept