مساعدة فى استيراد بيانات من جدول الي فورم

[DBA.Oracle]

برجاء المساعدة فى استيراد بيانات من جدول الي فورم معين وبعد التعديل عليها من داخل الفورم نقوم بتصديرها مرة اخري

مرفق ملف به مثال جدول + فورم + تفاصيل الشرح

ولكم فائق الشكر والاحترام

Get_Mod.rar

[DBA.Oracle]

للرفع

[أبوعبد الله]

أخي العزيز

رجاء الاطلاع على المرفق وقد تم إلغاء مفتاح استدعاء البيانات حيث الاستدعاء يتك بشكل تلقائي بمجرد إختيار الإسم من ال COMBOBOX كما أن التعديل متاح للإسم أيضاً لا أدري إن كان هذا يمثل إضافة مفيدة بالنسبة لك أم لا ولكن أخبرني إن كان غير مطلوب تعديل الإسم .

تحياتي

أبو عبدالله

Get_Mod.rar

[DBA.Oracle]

الله ينور عليك والله هو دا المطلوب بالضبط لكن فى مشكلة لو جربت التعديل علي خليه بيسأل للتأكيد وبضغط اوك فبيعدل عليها ولكن بعد التعديل بيعطي ايرور ويعلم علي الامر دا

    Me.TextBox1.Text = fAddr.Offset(0, -1).Value

[أبوعبد الله]

المرفق به تعديل بسيط لحل مشكلة رسالة ال ERROR جرب الآن .

تحياتي

أبو عبدالله

Get_Mod-1.rar

[DBA.Oracle]

بصراحة ممتاز

وجزاك الله كل خير لكن استفسار بسيط

هل فى طريقة تخلي الكومبو بوكس لما يعرض الداتا يعرض الخلايا الممتلئة فقط ويتغاضي عن الخلايا الفارغة ام شرط انو يعرض كل الخلايا

وجزاك الله كل خير

[أبوعبد الله]

قم بتعديل النطاق NAMES إلى =OFFSET(Sheet1!$B$2;0;0;COUNTA(Sheet1!$B:$B);1)

[DBA.Oracle]

اعذرنى لكن هل تقصد ؟

Private Sub UserForm_Initialize()

ComboBox1.RowSource = OFFSET(Sheet1!$B$2;0;0;COUNTA(Sheet1!$B:$B);1)

End Sub

[أبوعبد الله]

أخي العزيز

أنا استخدم اكسيل 2007 وما قصدته هو تعديل تعريف النطاق NAMES من NAME MANAGER وليس بالكود - يعني من NAME MANAGER اختر النطاق NAMES ثم من EDIT ومن REFERS TO الصق =OFFSET(Sheet1!$B$2;0;0;COUNTA(Sheet1!$B:$B);1) مكان الموجود بالحقل .

المرفق تم التطبيق به .

تحياتي

Get_Mod-1.rar

[DBA.Oracle]

فى الحقيقة انا عاجز عن الشكر

تسلم علي مجهودك وتعبك معايا وجزاك الله كل خير

لكن مازالت هناك مشكلة حاول اضافة اى كلمة فى الخانات السفلي ولن تظهر فى القائمة للاسف

وان ظهرت تظهر فى الوسط الخلايا الفارغة

Get_Mod-1.rar

تم تعديل أبريل 7, 2010 بواسطه DBA.Oracle

[أبوعبد الله]

أخي العزيز

أظن أنه من المنطقي أنك تتعامل مع جدول به بيانات متصلة ولم تشير من قبل بأنه وارد ترك فراغات بين كل سجل وآخر وعلى هذا الأساس تم التعامل مع طلبك وتغيير تعريف النطاق NAMES من تعريف نطاق عادي إلى التعريف الأخير الذي أرفقته لك بردي الأخير وهو ما يطلق عليه ال DYNAMIC RANGE لن يعالج الفراغات الموجودة بين صفوف السجلات ، وأنا حقيقة لا أفهم السبب وراء رغبتك في ترك فراغات إذا كنا نتحدث عن جدول كل صف فيه يمثل سجل معلوماتي ، وهذا التوضيح حسب ما لدي من معلومات وأتمنى ممن لديه حل لطلبك أن يتدخل مشكوراً .

تقبل تحياتي

أبو عبدالله

[DBA.Oracle]

اخى ابو عبد الله

جزاك الله كل خير علي مجهودك معي

واعتذر عن عدم توضيح الفكرة بالطريقة الصحيحة و أرضي بما قدمته لي من مساعدة ولا اطمع فى المزيد لذا لا تعتقد ان معلوماتك ذهبت بلا فائدة بالعكس فلقد قمت بتقديم معلومات مهمة جدا اليوم ولك جزيل الشكر علي ذلك ولا املك غير الدعاء لك ولوالديك

[DBA.Oracle]

اخى عبد الله

وجدت الحل والحمد لله من مثال سابق من موقع اجنبي

استبدلت استخدام الرو سورس بهذا ونفعت الحمد لله ولك جزيل الشكر علي مجهودك معي

Private Sub ComboBox1_Enter()

Dim i As Integer

Dim final As Integer

Dim tareas As String


ComboBox1.BackColor = &H80000005


For i = 3 To ComboBox1.ListCount



               ComboBox1.RemoveItem 0


           Next i


For i = 4 To 1000

If Sheet1.Cells(i, 3) = "" Then

final = i - 3

Exit For

End If

Next






For i = 4 To 1000

tareas = Sheet1.Cells(i, 3)

If tareas <> "" Then

ComboBox1.AddItem (tareas)

Else

End If

Next




End Sub

[أبوعبد الله]

أخي العزيز

أشكرك جداً على المعلومة ولكن لدى نقل الكود لاخر مرفق بالمشاركة تحدث مشكلة عند استدعاء الفورم ويعطي error بنفس الكود فأرجو التكرم بإرفاق ملف مطبق عليه الكود كي تتضح الفائدة من الكود .

تقبل شكري

أبو عبدالله

[DBA.Oracle]

اخي عبد الله

الكود موجود فى هذا الملف فى يوزر فورم 28

بس بدون التعديل اللى انا ضيفته ليجعله لا يضيف الخلايا الفارغة

الملف دا جميل جدا هو من موقع اجنبي ولكن احد الاخوة الافاضل فى المنتدي فك الحماية عنه

ولك جزيل الشكر

Macro_Excel_Stocks_warehouses_unlocked.rar

[DBA.Oracle]

تفضل اخي عبد الله مرفق مثال بالكود المعدل

وهذا هو ما كنت اقصده فى طلبي ولك فائق الاحترام وكل الشكر علي معاونتك ليlast.rar

تم تعديل أبريل 11, 2010 بواسطه DBA.Oracle

[key_ro]

اخى الكريم ابو عبد الله ممكن تعديل كود الفورم ليتهامل مع ارقام لانة يتعامل مع حروف فقط الموجودة فى نطاق names

اريد الخانة 2 و3و4 تعرض بيانات b2 b3 b4 وتعدل كذلك بيانات لb2 b3 b4 والخانة الاولى اختار منها ارقام وليس حروف والثانية اعدل على الارقام الموجودة فى a2 ولكم جزير الشكر

[أبوعبد الله]

أخي العزيز / DBA.Oracle

أشكرك على المرفق والفكرة جداً قيمة .

تقبل تحياتي

أبو عبدالله

أخي العزيز / key_ro

أرجو توضيح طلبك بشكل أوضح واتمنى يكون على الملف المرفق حتى أستطيع المساعدة إن شاء الله .

تحياتي

[key_ro]

أخي العزيز / DBA.Oracle

أشكرك على المرفق والفكرة جداً قيمة .

تقبل تحياتي

أبو عبدالله

أخي العزيز / key_ro

أرجو توضيح طلبك بشكل أوضح واتمنى يكون على الملف المرفق حتى أستطيع المساعدة إن شاء الله .

تحياتي

اشكرك جدا على الاهتمام ومرفق ملف به المطلوب

Get_Mod-1.rar

[أبوعبد الله]

أخي العزيز / key_ro

رجاء الاطلاع على المرفق .

تحياتي

أبو عبدالله

Get_Mod-2.rar

[key_ro]

الاخ الكريم ابو عبد الله جزاك الله كل خير هذا خو المطلوب فعلا وشكرا جزيرا

[م/ مغترب]

أخي العزيز / key_ro

رجاء الاطلاع على المرفق .

تحياتي

أبو عبدالله

السلام عليكم

أستاذنا / عبد الله

أنا اريد ان اضيف اكثر من Label  و  TextBoxوهذا سهل

هل ممكن ان نجعل Label  في الفورم ان يأخذ اسم العمود بالتدريج مباشرة بدلا من دخولي الى البرمجة و اضافة الاسم يدويا

اي اجعل الجدول من  5 اعمدة مثلا     الاسم - الترتيب - الصف - الدرجة - اسم الاب

لكن Label و TextBox في الفورم 6     فاول ما اضيف اسم للعمود 6 بالجدول  اريده ان يظهر بالفورم

 

 

ارجو ان تكون وصلت فكرتي

وشكرا