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

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

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

  • Posts

    1928

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

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

  • Days Won

    2

 نوع المحتوي 

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

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

Important Information

  I accept