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

أ / محمد صالح

أوفيسنا
  • Posts

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

  • Days Won

    198

كل منشورات العضو أ / محمد صالح

  1. أولا الملف المرفق ينقصه الكثير من أوزراق العمل المطلوبة في الكود ثانيا ربما تكون نسخة تظامك الجديد 64 بت والكود مجهز ليعمل على 32 بت فقط لذلك يرجى تغيير الكود في بداية userform3 إلى #If Win64 Then Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long #Else Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long #End If لاحظ كلمة ptrsafe بين كلمة declare و function إن شاء الله يعمل جيدا بعد هذه التعديلات
  2. جميعا بإذن الله استاذ رفيق محمد شكرا لمرورك الكريم أستاذ خالد القدس للرفع لتعم الفائدة
  3. للرفع حتى تعم الفائدة للجميع
  4. بالتوفيق للجميع المهم أن يعم النفع للجميع بدون استغلال لحاجة الناس والله في عون العبد مادام العبد في عون أخيه
  5. شكرا لجميع الزملاء الذين مروا على هذا الموضوع المتواضع
  6. * بالنسبة للتوقيع يفضل إعداده في اوتلوك وسيتم إرفاقه مع الرسالة تلقائيا * بالنسبة للمرفقات يتم نسخ رابط الملف في العمود 1St File Path أو 2nd File Path شكرا لجميع الزملاء الذين شرفوني بمرورهم على موضوعاتي المتواضعة
  7. شكرا لكم جميعا على المرور الكريم نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا
  8. رائع بشمهندس ماجد لكن من الأفضل كتابة وصف مختصر لمحتوى الفيديو حتى يظهر في نتائج البحث داخل المنتدى
  9. ما شاء الله جزاك الله خير الجزاء على البرنامج المجاني وكل الشكر على دعم فكرة البرامج المفتوحة المصدر من هنا نبني صرحا من العلم يشارك فيه الجميع
  10. شكرا لمروركم الكريم نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا
  11. للرفع وفقنا الله جميعا لكل ما يحبه ويرضاه
  12. يبدو أن سر ترتيب الأرقام بهذه الطريقة صعب للغاية بالعكس سهل جدا
  13. شكرا لكل الإخوة الكرام على المرور الكريم منياوى أبوبكر مسعودي وليد فتحي وفقنا الله جميعا لكل خير
  14. شكرا لجميع الإخوة على كلماتهم الطيبة كامل الداتا طبعا البرنامج يقوم بتحويل ملف الأكسس إلى ملف sql يتم استيراده الى قواعد البيانات mysql والعكس أعتقد موجود جرب استعمال البحث في المنتدى الأستاذ الفاضل محمد ليث البرنامج يحول بين الأكسس و mysql الخاص بالموقع مثلا وليس ب sql server
  15. شكرا لمتابعتكم أستاذ علي المصري ولكن الكود يعمل على جميع الإصدارات حيث أن الجزء الخاص ب Application.Version يقوم بجلب رقم الإصدار الحالي للأكسس ثم الجزء التالي IIf(Application.Version < 12, "Level", "VBAWarnings") وهو دالة if فإذا كان الإصدار أقل من 12 يكون اسم الحقل في الرجيستري level وإذا كان أكبر من أو يساوي 12 يكون اسم الحقل VBAWarnings أرجو أن يكون الأمر قد اتضح
  16. شكرا لكلماتك الطيبة أستاذ رائد 1982 السلسلة مازالت مستمرة وفي زيادة بإذن الله تابعونا
  17. شكرا لمروركم الكريم أستاذ نجم طويق بعض ما عندكم أستاذ عبد اللطيف سلوم بالأيام فقط أسهل مجرد طرح التاريخين استاذ يوسف السيد شكرا لكلماتك الطيبة استاذ bakry kassala
×
×
  • اضف...

Important Information