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

محمد احمد لطفى

الخبراء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    1,925

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

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

  • Days Won

    2

 نوع المحتوي 

كل منشورات العضو محمد احمد لطفى

  1. محمد احمد لطفى
    يعمل على نواة X32
  2. محمد احمد لطفى
    أستاذى @Eng.Qassim لما نكون محددين الملف بالكود مش هنختاره هو هيظهر Set objFolder = objFSO.GetFolder("D:\NameFolder") و ده لمعرفة ان كان الملف مخفى If objFolder.Attributes And 2 Then objFolder.Attributes = objFolder.Attributes + 2 End If حيث رقم 2 الملف مخفى بحيث ان كان مخفى يظهر بس مش عارف لو العكس ان الملف ظاهر يبقى ايه ؟
  3. محمد احمد لطفى
    هل هذا ما تريد 1080_2.rar
  4. محمد احمد لطفى
    تفضل يا أستاذى Hide (1).mdb
  5. محمد احمد لطفى
    جزاكم الله كل خير وبالنسبة بدون مسار Dim objFSO As Object Set objFSO = CreateObject("Scripting.FileSystemObject") Dim objFolder As Object Set objFolder = objFSO.GetFolder("D:\NameFolder") objFolder.Attributes = objFolder.Attributes + 2
  6. محمد احمد لطفى
    بعد أن تقوم باظهار ملفات النظام أختر الملف مرة ثانية من البرنامج سيظهر لهذا أقول * أن يكون مكان الملف فى الكود وليس اختياره من شاشة الويندوذ واختيار الاظهار و الاخفاء من النموذج لأن الملف بعد الاخفاء لن تستطيع اظهاره مرة ثانية إلا بعد السماح باظهار ملفات النظام
  7. محمد احمد لطفى
    يجب إرفاق الملف حتى يمكن لأحد المساعدة
  8. محمد احمد لطفى
    حضرتك لو كررت هيعكس هيظهر ويرجى تطوير الكود أن يكون مكان الملف فى الكود وليس اختياره من شاشة الويندوذ واختيار الاظهار و الاخفاء من النموذج و السبب أنه اذا كان مخفى يجب اظهار ملفات النظام لاختيار مرة ثانية و والسبب الاخر اذاى كان هناك الكثير من السجلات (الملفات) يمكن التحكم بها من خلال النموذح فى عرض السجل
  9. محمد احمد لطفى
    تفضل Hide.mdb
  10. محمد احمد لطفى
    أيوه اشتغلت عندى بتختار الملف بيختفى
  11. محمد احمد لطفى
    طيب ما ينفعش نسحب البيانات لجدول موجود قبل كده ملف html براس الحقول الى داخل جدول جمعه طيبه مباركه
  12. محمد احمد لطفى
    للأسف أستاذى @jjafferr هذه الصيغه الوحيده فى البرنامج فى عملى حيث حين استخرجها أكسل تفقد بعض البيانات هل يمكن استيرادها بأكسيس 0125.rar
  13. محمد احمد لطفى
    شكراً أستاذى و معلمى @jjafferr الملف ده الى هشتغل عليه سأذهب اليوم الى العمل بإذن الله و أحاول استخراج صيغة أخرى
  14. محمد احمد لطفى
    ألف مبروك
  15. محمد احمد لطفى
    تفضل هل هذا ما تريد Dim myLink As String myLink = "https://www.google.com/search?q= " & Me.authorname Application.FollowHyperlink (myLink)
  16. محمد احمد لطفى
    تم رفع صفحة بالبيانات بالفعل واسف لتكرار الموضوع 0125.rar
  17. محمد احمد لطفى
    للرفع
  18. محمد احمد لطفى
    هناك ملف يكون أول سطر به فارغ حيث عند استيراده فى اكسل يظهر هذا السطر و تم معالجته باضافة "A2:j100000" Dim x3, x4 x3 = CurrentProject.Path & "\" & "0125" & ".xls" 'اكتب اسم الجدول المراد انشاءه x4 = "جدول جديد" DoCmd.TransferSpreadsheet acImport, 10, x4, x3, True, "A2:j100000" كما يظهر فى الصورة هل يمكن معالجته هنا IMPORT_HTML_TABLE_2.rar
  19. محمد احمد لطفى
    أستاذى @أبو إبراهيم الغامدي هناك ملف يكون أول سطر به فارغ حيث عند استيراده فى اكسل يظهر هذا السطر و تم معالجته باضافة "A2:j100000" Dim x3, x4 x3 = CurrentProject.Path & "\" & "0125" & ".xls" 'اكتب اسم الجدول المراد انشاءه x4 = "جدول جديد" DoCmd.TransferSpreadsheet acImport, 10, x4, x3, True, "A2:j100000" كما يظهر فى الصورة هل يمكن معالجته هنا تم ارفاق الملف 0125.rar
  20. محمد احمد لطفى
    الف مبروك الترقية
  21. محمد احمد لطفى
    أستاذى @أبو إبراهيم الغامدي هناك ملف يكون أول سطر به فارغ حيث عند استيراده فى اكسل يظهر هذا السطر و تم معالجته باضافة "A2:j100000" Dim x3, x4 x3 = CurrentProject.Path & "\" & "0125" & ".xls" 'اكتب اسم الجدول المراد انشاءه x4 = "جدول جديد" DoCmd.TransferSpreadsheet acImport, 10, x4, x3, True, "A2:j100000" كما يظهر فى الصورة هل يمكن معالجته هنا
  22. محمد احمد لطفى
    باراك الله فيكم أساتذتنا الأفاضل
  23. محمد احمد لطفى
    الملف عباره عن صفحة html بها جدول
  24. محمد احمد لطفى
    تفضل هل هذا ما تريد 0.accdb
  25. محمد احمد لطفى
    شكراُ أستاذى @سامي الحداد أتت رسالة خطأ و بالبحث تقريبا عاوزة مكتبة
×
×
  • اضف...

Important Information

  I accept