اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

أوفيسنا
  • Posts

    5,409
  • تاريخ الانضمام

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

  • Days Won

    47

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

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

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

607 Excellent

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

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

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

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

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

  • MSN
    alalwi07@msn.com

اخر الزوار

16,239 زياره للملف الشخصي
  1. جميل جدا جاري التجربة مع جزيل الشكر
  2. السلام عليكم راجع هذا الموضوع https://www.officena.net/ib/topic/84487-عرض-عدد-سجلات-معينه-في-التقرير/
  3. السلام عليكم اخي صالح جرب هذا الحل بالنسبة للمجموع لم اجد الوقت للتعديل فقم بذلك اذا كان هذا المطلوب الشهادات.zip
  4. الف مبروك والى الامام دائما مع هذا الصرح العظيم
  5. رائع جدا ومفيد جدا بكتابة الدوال جزاك الله خيرا
  6. جربت هذا الحل والى الان الامور تمام سلمت استاذ جعفر شكرا لك وكل عام والجميع بخير
  7. ان شاء الله اجرب واعلمك النتيجة
  8. هل تقصد ان الدالة بوضعها التالي Private Declare PtrSafe Function apiGetUserName Lib "advapi32.dll" Alias _ "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long ستعمل على النواتين
  9. تم التوصل الى الخلل في هذه الدالة 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)
  10. كل عام وانت بخير استاذ جعفر شكرا للرد لكنه الواقع والمشكلة التي اصادفها هي انه بعد حوالي 5 دقائق يغلق البرنامج وتظهر له نسخة احتياطية ثم يفتح من جديد وهكذا
  11. استخدم دالة البحث Dlookup ضع معيار البخث ضمن الشروط وبعدها استخدم نتيجة الدالة في تنفيذ شرطك
  12. لا زلت اعاني من هذه المشكلة جربت التعديلات المطلوبة على حسب معرفتي (عملت #If VBA7 Then - وكذلك PtrSafe بدلت المتغيرات التي تحتاج الى تغيير مثل Len الى LenB طبعاً حسب الحاجة) لا زالت المشكلة عندي انه اذا شغلت البرنامج على اوفيس 64 بت فانه يعمل لمدة 5 دقائق وبعدها فجأة يغلق ويقوم بعمل نسخة إحتياطية ثم تشغيل البرنامح طبعاً جربته على خمسة كمبيوترات لاني كنت اعتقد المشكلة في الاوفيس ولا والت المشكلة مستمرة طبعاً عملت Compile ولكن لا توجد اخطاء في الكود ويصبخ غير مفعل اي انه لا اخطاء في الأكواد ما الحل من فضلكم
  13. ما شاء الله استاذ جعفر انت كما عودتنا دائما تفاجأنا بالجديد المبهر سلمت استاذي الفاضل
×
×
  • اضف...

Important Information