الجازع قام بنشر مارس 17, 2013 مشاركة قام بنشر مارس 17, 2013 اخواني واساتذتي الكرام الموضوع قد سبق وانطرح من قبل الاستاذ/عبدالله باقشير، ولاكن لم اسطتيع تنفيذ طلبي على الملف المطروح مسبقاً وطلبي هو ان لدي برنامج واريد في عملية الادخال يتم ادراج المدخلات في ملف اكسس بشكل تراكمي وفي حال طلب التقرير من خلال البرنامج يتم استراد البيانات من الاكسس للاكسيل ليتم عمل المعادلات واستخراج القيم المطلوبة. ارجو ان يكون قد تم شرح الطلب بصورة واضحة. ولكم جزيل الشكر والتقدير. Qulity V16.rar 3 رابط هذا التعليق شارك More sharing options...
الجازع قام بنشر مارس 18, 2013 الكاتب مشاركة قام بنشر مارس 18, 2013 ارجو المساعدة رابط هذا التعليق شارك More sharing options...
الجازع قام بنشر مارس 19, 2013 الكاتب مشاركة قام بنشر مارس 19, 2013 ارجو المساعدة رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر مارس 19, 2013 مشاركة قام بنشر مارس 19, 2013 السلام عليكم في الملف الذي ذكرت استيراد كل البيانات وتصدير كل البيانات 1 رابط هذا التعليق شارك More sharing options...
الجازع قام بنشر مارس 19, 2013 الكاتب مشاركة قام بنشر مارس 19, 2013 استاذي الفاضل ارجو توضيح الرد رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر مارس 19, 2013 مشاركة قام بنشر مارس 19, 2013 اعني في ملفي الذي ذكرته لا يعتمد عل تصدير تراكمي انما يصدر جميع البيانات ضربه واحدة ويستورد كل البيانات بالمثل فهمت رابط هذا التعليق شارك More sharing options...
الجازع قام بنشر مارس 20, 2013 الكاتب مشاركة قام بنشر مارس 20, 2013 يا استاذي الفاضل اسعد الله صباحك فهمت قصدك ولاكن كنت ارجو تنفيذ عملية التصدير على الملف المرفق بشكل تراكمي ولكم جزيل الشكر والتقدير. رابط هذا التعليق شارك More sharing options...
احمد عبد الناصر قام بنشر مارس 24, 2013 مشاركة قام بنشر مارس 24, 2013 السلام عليكم هذا كود للاستدعاء من ملف الاكسيس Dim rsData As ADODB.Recordset Dim sConnect As String Dim sSQL As String sConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ActiveWorkbook.Path & "\" & اسم_ملف_الاكسيس & ".mdb;Persist Security Info=True " sSQL = "select * from اسم_الجدول" Set rsData = New ADODB.Recordset rsData.Open sSQL, sConnect, adOpenForwardOnly, _ adLockReadOnly, adCmdText If Not rsData.EOF Then 'الخلية المراد جلب البيانات اليها [a1].CopyFromRecordset rsData End If و هذا للاضافة الي ملف الاكسيس Dim rsData As ADODB.Recordset Dim sConnect As String Dim sSQL As String sConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ActiveWorkbook.Path & "\" & اسم_ملف_الاكسيس & ".mdb;Persist Security Info=True " 'تحدد اسماء حقول الجدول لملف الاكسيس و الخلاية التي تحتوي القيم المراد اضافتها sSQL = "insert into اسم_الجدول (field1,field2,field3) values (" & [b1] & "," & [b2] & "," & [b3] & ")" Set rsData = New ADODB.Recordset rsData.Open sSQL, sConnect, adOpenForwardOnly, _ adLockReadOnly, adCmdText ملاحظة فعل هذه tools > references >microsoft activex data objects 2.6 library تحياتي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان