نرجو من الاخوه الكريم التعديل على المرفق

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

نرجو من الاخوه الكريم التعديل على المرفق

مُساهمة من طرف gadr في الأحد فبراير 22, 2015 12:24 am

الاخوه الكرام نرجو المساعده بحثت كثير ولم اتوصل الى حل
http://zakyshny.eu5.org/kleeja/uploads/egy-tech14245646281.rar
avatar
gadr
...
...

تاريخ التسجيل : 16/11/2014
المساهمات : 44
النقاط : 56
التقيم : 0
الدولة : ليبيا
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: نرجو من الاخوه الكريم التعديل على المرفق

مُساهمة من طرف gadr في الأحد فبراير 22, 2015 11:48 pm

يبدو ان الامر صعب
avatar
gadr
...
...

تاريخ التسجيل : 16/11/2014
المساهمات : 44
النقاط : 56
التقيم : 0
الدولة : ليبيا
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: نرجو من الاخوه الكريم التعديل على المرفق

مُساهمة من طرف gadr في الأربعاء مارس 11, 2015 6:19 pm

الاخوة الكرام وينكم
avatar
gadr
...
...

تاريخ التسجيل : 16/11/2014
المساهمات : 44
النقاط : 56
التقيم : 0
الدولة : ليبيا
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: نرجو من الاخوه الكريم التعديل على المرفق

مُساهمة من طرف ذوكا في الخميس مارس 12, 2015 5:23 am

قمت بتحميل مثالك ولكنى لم افهم قصدك من ترتيب الكود على حسب الاختيار ؟

أما من ناحية النص المراد وضعة فى اعلى صفحة الاكسل فى التعديل كما فى المثال التالى :

http://zakyshny.eu5.org/kleeja/uploads/egy-tech14261377611.rar

avatar
ذوكا
.....
.....

تاريخ التسجيل : 26/05/2013
المساهمات : 92
النقاط : 155
التقيم : 11
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: نرجو من الاخوه الكريم التعديل على المرفق

مُساهمة من طرف gadr في الجمعة مارس 13, 2015 11:15 pm

مشكور اخى الكريم على الرد
والمقصود من كلامي هو ان مثلا اختار Check1 و Check2 يتم التصدير وفى حالت اخترت الجميع يتم تصدير الجدول بلكامل وفى حلت لم اختر اي شى تظهر رسالة تنبيه يجب اختيار
يارب ايكون الكلام واضح
avatar
gadr
...
...

تاريخ التسجيل : 16/11/2014
المساهمات : 44
النقاط : 56
التقيم : 0
الدولة : ليبيا
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: نرجو من الاخوه الكريم التعديل على المرفق

مُساهمة من طرف السنى في السبت مارس 14, 2015 8:07 am

avatar
السنى
.......
.......

تاريخ التسجيل : 18/02/2011
المساهمات : 186
النقاط : 346
التقيم : 18
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: نرجو من الاخوه الكريم التعديل على المرفق

مُساهمة من طرف gadr في السبت مارس 14, 2015 11:00 am

السنى كتب:
المثال بعد التعديل

http://zakyshny.eu5.org/kleeja/uploads/egy-tech14263204171.rar
الاخ الكريم الرابط لا يعمل
avatar
gadr
...
...

تاريخ التسجيل : 16/11/2014
المساهمات : 44
النقاط : 56
التقيم : 0
الدولة : ليبيا
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: نرجو من الاخوه الكريم التعديل على المرفق

مُساهمة من طرف السنى في السبت مارس 14, 2015 12:29 pm

gadr كتب:
الاخ الكريم الرابط لا يعمل

تعديل المثال كان على النحو التالى :

الكود:
Private Sub Command2_Click()

If Check1.Value = 1 Then
s1 = "SELECT r1 FROM teb "

ElseIf Check2.Value = 1 Then
s1 = "SELECT r2 FROM teb "

ElseIf Check3.Value = 1 Then
s1 = "SELECT r3 FROM teb "

ElseIf Check4.Value = 1 Then
s1 = "SELECT r4 FROM teb "

Else: MsgBox "برجاء اختيار احد الحقول ليتم التصدير"

Exit Sub

End If

If rs.State = adStateOpen Then rs.Close
rs.Open s1, db, adOpenDynamic, adLockOptimistic

Dim I, J, rtot, m
Dim ctot(1 To 5)
rtot = 0
Dim objExcl As Excel.Application

Set objExcl = New Excel.Application
objExcl.Visible = True
objExcl.SheetsInNewWorkbook = 1
objExcl.Workbooks.Add
objExcl.Range("A1:ak1" & rs.RecordCount + 2).HorizontalAlignment = xlCenter
objExcl.Windows(1).ActiveSheet.Name = "ßÔÜÜÜÜÜÜÜÜÝ ãÏÑÓíä"
objExcl.Cells(1, 4).Value = Text1.Text
objExcl.Range("A1:F1").Font.Bold = True
objExcl.Range("A1:F1").Font.Size = 14
objExcl.Cells(2, 1) = "ÑÞã ÇáÍÇÓÈ"
objExcl.Cells(2, 1).ColumnWidth = 6
objExcl.Cells(2, 1).Font.Size = 10
objExcl.Cells(2, 1).Font.Bold = True

objExcl.Range("A2").CopyFromRecordset rs

End Sub
avatar
السنى
.......
.......

تاريخ التسجيل : 18/02/2011
المساهمات : 186
النقاط : 346
التقيم : 18
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: نرجو من الاخوه الكريم التعديل على المرفق

مُساهمة من طرف gadr في السبت مارس 14, 2015 2:01 pm

الكود:
objExcl.Range("A2").CopyFromRecordset rs
بعد التجريب ظهر هذه الخطأ
avatar
gadr
...
...

تاريخ التسجيل : 16/11/2014
المساهمات : 44
النقاط : 56
التقيم : 0
الدولة : ليبيا
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: نرجو من الاخوه الكريم التعديل على المرفق

مُساهمة من طرف السنى في السبت مارس 14, 2015 2:56 pm


اخى الكريم انتظر عدة ساعات فقط حتى يتم اصلاح سرفر المنتدى وقم بتحميل المشروع الذى ارفقته فى المشاركة الاولى فمن الواضح انه هناك عطل فى السرفر حتى لا يمكنك تنزل مثالك الذى قمت بتحميلة من قبل ....

على اى حال ان لم يتم اصلاح السرفر سوف اقوم باعادة رفعة على سرفر خارجى
avatar
السنى
.......
.......

تاريخ التسجيل : 18/02/2011
المساهمات : 186
النقاط : 346
التقيم : 18
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: نرجو من الاخوه الكريم التعديل على المرفق

مُساهمة من طرف gadr في السبت مارس 14, 2015 3:36 pm

avatar
gadr
...
...

تاريخ التسجيل : 16/11/2014
المساهمات : 44
النقاط : 56
التقيم : 0
الدولة : ليبيا
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: نرجو من الاخوه الكريم التعديل على المرفق

مُساهمة من طرف gadr في السبت مارس 14, 2015 11:51 pm

السنى كتب:
اخى الكريم انتظر عدة ساعات فقط حتى يتم اصلاح سرفر المنتدى وقم بتحميل المشروع الذى ارفقته فى المشاركة الاولى فمن الواضح انه هناك عطل فى السرفر حتى لا يمكنك تنزل مثالك الذى قمت بتحميلة من قبل ....

على اى حال ان لم يتم اصلاح السرفر سوف اقوم باعادة رفعة على سرفر خارجى
اخي السنى ياريت ترفعو على سيرفر ثاني
avatar
gadr
...
...

تاريخ التسجيل : 16/11/2014
المساهمات : 44
النقاط : 56
التقيم : 0
الدولة : ليبيا
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: نرجو من الاخوه الكريم التعديل على المرفق

مُساهمة من طرف السنى في الأحد مارس 15, 2015 6:44 am


رابط تحميل المشروع

http://zakyshny.eu5.org/1234.rar
avatar
السنى
.......
.......

تاريخ التسجيل : 18/02/2011
المساهمات : 186
النقاط : 346
التقيم : 18
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: نرجو من الاخوه الكريم التعديل على المرفق

مُساهمة من طرف gadr في الأحد مارس 15, 2015 11:52 am

السنى كتب:
رابط تحميل المشروع

http://zakyshny.eu5.org/1234.rar
مشكور اخي السني اوسامحني على تعبك بس ظهر هذ الحطأ
mediafire.com download/rf2wlz9dvase2vy/dd.rar
صور الخطأ
avatar
gadr
...
...

تاريخ التسجيل : 16/11/2014
المساهمات : 44
النقاط : 56
التقيم : 0
الدولة : ليبيا
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: نرجو من الاخوه الكريم التعديل على المرفق

مُساهمة من طرف السنى في الأحد مارس 15, 2015 6:52 pm


الاخ الكريم أهلا بك و أسعد دائما بكل اسئلتك و اكون أسعد لو أستعطت الاجابة عليها

بالنسبة لرسالة الخطأ تلك فهى تحدث نتيجة أن التطبيقات التي يتم تجميعها في نظام التشغيل Windows 7 SP1 أو Windows Server 2008 R2 SP1 استخدام معرفات الواجهة الجديدة (IIDs) في مكتبات الأنواع ADO التي تم تضمينها في حزم SP1 لنظام التشغيل Windows 7 ولذلك لا يتم تشغيل التطبيق على جهاز كمبيوتر يقوم بتشغيل إصدار سابق من Windows.

وبما أننى قمت بكتابة التطبيق فى نظام التشغيل Windows 7 وقمت بتجربة الكود وتم تجميع الكود فى Windows 7 وبالتالى لا يعمل بطريقة صحيحة عندك لربما تكون تعمل على ويندوذ اقل

الحل :
الحل الاول : الاستغناء على النسخة التى قمت برفعها اليك و كتابة الكود فى مشروع جديد مع مراعات أن تقوم باستخدام المكتبة microsoft excel 12.0 object library

الحل الثانى :أن تقوم بتحميل و تثبيت التحديث الذى نص عليه هذا المقال
http://support.microsoft.com/en-us/kb/2640696

ثم أخبرنى بالنتيجة فى كلتا الحالتين
avatar
السنى
.......
.......

تاريخ التسجيل : 18/02/2011
المساهمات : 186
النقاط : 346
التقيم : 18
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: نرجو من الاخوه الكريم التعديل على المرفق

مُساهمة من طرف gadr في الإثنين مارس 16, 2015 4:23 pm

السنى كتب:
الاخ الكريم أهلا بك و أسعد دائما بكل اسئلتك و اكون أسعد لو أستعطت الاجابة عليها

بالنسبة لرسالة الخطأ تلك فهى تحدث نتيجة أن التطبيقات التي يتم تجميعها في نظام التشغيل Windows 7 SP1 أو Windows Server 2008 R2 SP1 استخدام معرفات الواجهة الجديدة (IIDs) في مكتبات الأنواع ADO التي تم تضمينها في حزم SP1 لنظام التشغيل Windows 7 ولذلك لا يتم تشغيل التطبيق على جهاز كمبيوتر يقوم بتشغيل إصدار سابق من Windows.

وبما أننى قمت بكتابة التطبيق فى نظام التشغيل Windows 7 وقمت بتجربة الكود وتم تجميع الكود فى Windows 7 وبالتالى لا يعمل بطريقة صحيحة عندك لربما تكون تعمل على ويندوذ اقل

الحل :
الحل الاول : الاستغناء على النسخة التى قمت برفعها اليك و كتابة الكود فى مشروع جديد مع مراعات أن تقوم باستخدام المكتبة microsoft excel 12.0 object library

الحل الثانى :أن تقوم بتحميل و تثبيت التحديث الذى نص عليه هذا المقال
http://support.microsoft.com/en-us/kb/2640696

ثم أخبرنى بالنتيجة فى كلتا الحالتين
اخي الكريم السني بارك الله فيك وزادك من علمه
تمت العملية بنجاح بعد التحديث ولك منى الف الف تحيه وشكر
avatar
gadr
...
...

تاريخ التسجيل : 16/11/2014
المساهمات : 44
النقاط : 56
التقيم : 0
الدولة : ليبيا
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى