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

إرسال مساهمة في موضوع

اذهب الى الأسفل

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

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

الاخوه الكرام نرجو المساعده بحثت كثير ولم اتوصل الى حل
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
avatar
gadr
...
...

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

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

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

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

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

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

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

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

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

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

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


المثال بعد التعديل

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
avatar
السنى
........
........

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

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

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

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

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] كتب:
المثال بعد التعديل

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
الاخ الكريم الرابط لا يعمل
avatar
gadr
...
...

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

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

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

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

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

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

الكود:
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
المساهمات : 216
النقاط : 404
التقيم : 22
الجنس : ذكر

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

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

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

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

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

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

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

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


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

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

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

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

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

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

اتفضل اخي الكريم
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
avatar
gadr
...
...

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

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

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

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

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

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

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

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

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

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


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

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
avatar
السنى
........
........

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

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

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

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

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] كتب:
رابط تحميل المشروع

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
مشكور اخي السني اوسامحني على تعبك بس ظهر هذ الحطأ
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
صور الخطأ
avatar
gadr
...
...

تاريخ التسجيل : 16/11/2014
المساهمات : 45
النقاط : 57
التقيم : 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

الحل الثانى :أن تقوم بتحميل و تثبيت التحديث الذى نص عليه هذا المقال
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

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

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

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

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

مُساهمة من طرف 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

الحل الثانى :أن تقوم بتحميل و تثبيت التحديث الذى نص عليه هذا المقال
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

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

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

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

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


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