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

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

الخبراء
  • Posts

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

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

  • Days Won

    2

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

  1. للأسف أستاذى @jjafferr هذه الصيغه الوحيده فى البرنامج فى عملى حيث حين استخرجها أكسل تفقد بعض البيانات هل يمكن استيرادها بأكسيس 0125.rar
  2. شكراً أستاذى و معلمى @jjafferr الملف ده الى هشتغل عليه سأذهب اليوم الى العمل بإذن الله و أحاول استخراج صيغة أخرى
  3. تفضل هل هذا ما تريد Dim myLink As String myLink = "https://www.google.com/search?q= " & Me.authorname Application.FollowHyperlink (myLink)
  4. تم رفع صفحة بالبيانات بالفعل واسف لتكرار الموضوع 0125.rar
  5. هناك ملف يكون أول سطر به فارغ حيث عند استيراده فى اكسل يظهر هذا السطر و تم معالجته باضافة "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
  6. أستاذى @أبو إبراهيم الغامدي هناك ملف يكون أول سطر به فارغ حيث عند استيراده فى اكسل يظهر هذا السطر و تم معالجته باضافة "A2:j100000" Dim x3, x4 x3 = CurrentProject.Path & "\" & "0125" & ".xls" 'اكتب اسم الجدول المراد انشاءه x4 = "جدول جديد" DoCmd.TransferSpreadsheet acImport, 10, x4, x3, True, "A2:j100000" كما يظهر فى الصورة هل يمكن معالجته هنا تم ارفاق الملف 0125.rar
  7. أستاذى @أبو إبراهيم الغامدي هناك ملف يكون أول سطر به فارغ حيث عند استيراده فى اكسل يظهر هذا السطر و تم معالجته باضافة "A2:j100000" Dim x3, x4 x3 = CurrentProject.Path & "\" & "0125" & ".xls" 'اكتب اسم الجدول المراد انشاءه x4 = "جدول جديد" DoCmd.TransferSpreadsheet acImport, 10, x4, x3, True, "A2:j100000" كما يظهر فى الصورة هل يمكن معالجته هنا
  8. شكراُ أستاذى @سامي الحداد أتت رسالة خطأ و بالبحث تقريبا عاوزة مكتبة
  9. أريد استيراد ملف html الى جدول جديد بالكود وجزاكم الله خيراً testdate5.rar
  10. لا أعلم كيف أخطات شكراُ للتصحيح والتوضيح
  11. أريد تغير كلمة ميت غمر من نهاية الجملة الى بداية الجملة عبر استعلام تحديث وجزاكم الله خيراً testdate4.mdb
  12. جزاكم الله خيراً تم ايجاد اضافته اذا كان هناك تعديل على "A2:j100000" ليكون أفضل يرجى التنبيه Dim x3, x4 x3 = CurrentProject.Path & "\" & "0125" & ".xls" 'اكتب اسم الجدول المراد انشاءه x4 = "جدول جديد" DoCmd.TransferSpreadsheet acImport, 10, x4, x3, True, "A2:j100000"
  13. أستاذى @Eng.Qassim جدول tblOld أريد عمل نسخه جديده منه الى tbLNew و يكون جدول الجديد tbLNew لا يوجد به بيانات مثل الصورة ولكن عن طريق كود
  14. أستاذى @سامي الحداد جزاك الله خيراً حضرتك حذفت السطر الاول يدوى ولا من خلال اكسيس أرجو الافادة سؤال ممكن اسماء الحقول تبدأ من السطر التانى فى اكسيس
×
×
  • اضف...

Important Information