قائمة بعناوين مكاتب السجل التجارى بجمهورية مصر العربية [ الكاتب : أحمد فاروق سيد حسنين - آخر الردود : kimidar - عدد الردود : 297 - عدد المشاهدات : 34721 ]       »     برنامج حساب الضريبة على الدخل حتى سنة 2018- تصميم خالد توفيق [ الكاتب : khaled sawy - آخر الردود : أيمن محمود - عدد الردود : 10 - عدد المشاهدات : 17090 ]       »     اعداد القوائم المالية ومراجعة الحسابات بالإكسل - مكاتب المحاسبة في مصر [ الكاتب : محمودحموده - آخر الردود : ramysamy2000 - عدد الردود : 64 - عدد المشاهدات : 71786 ]       »     أغرب أسباب الطلاق فى العالم [ الكاتب : غاااوي نت - آخر الردود : غاااوي نت - عدد الردود : 0 - عدد المشاهدات : 1733 ]       »     تعرف علي الفيروسات [ الكاتب : غاااوي نت - آخر الردود : غاااوي نت - عدد الردود : 0 - عدد المشاهدات : 1718 ]       »     نموذج مذكرة دفاع للجنة الطعن ضرائب القيمة المضافة [ الكاتب : programgo - آخر الردود : eslambatooo - عدد الردود : 17 - عدد المشاهدات : 31071 ]       »     سؤال عن كيفية معرفة سعر بيع او شراء شركة قائمة (طريقة تقييمها ) [ الكاتب : mosker - آخر الردود : mosker - عدد الردود : 0 - عدد المشاهدات : 1595 ]       »     ( س و ج محاسبة ) هذه المشاركة لطرح اسئلتك او حالة عملية واجهتك في عملك والرد عليها [ الكاتب : هشام حلمي شلبي - آخر الردود : mosker - عدد الردود : 3153 - عدد المشاهدات : 480226 ]       »     أفضل الوظائف المتعلقة بتحليل البيانات في 2020 [ الكاتب : nassereme - آخر الردود : nassereme - عدد الردود : 0 - عدد المشاهدات : 1553 ]       »     المفاجأه الكبري : كورس الجامعة الأمريكية كامل- cma البارت الأول الشرح بالعربي [ الكاتب : Emad Abd Ullatif - آخر الردود : nassereme - عدد الردود : 582 - عدد المشاهدات : 68268 ]       »     تكلفة خروج البضاعة من المخازن بسعر الصرف الفوري وقت عملية البيع ام بسعر صرف اخر عملية [ الكاتب : اليماني سهيل - آخر الردود : اليماني سهيل - عدد الردود : 0 - عدد المشاهدات : 1844 ]       »     تعديلات معايير المحاسبة المصرية أبريل 2019 [ الكاتب : sultanaccount - آخر الردود : غاااوي نت - عدد الردود : 4 - عدد المشاهدات : 10265 ]       »     اعرف فوائد زيت حبة البركة [ الكاتب : غاااوي نت - آخر الردود : غاااوي نت - عدد الردود : 0 - عدد المشاهدات : 2026 ]       »     برامج حسابات ومخازن [ الكاتب : mona lotfy - آخر الردود : amohsalah - عدد الردود : 36 - عدد المشاهدات : 24796 ]       »     أضرار الإجهاد [ الكاتب : غاااوي نت - آخر الردود : غاااوي نت - عدد الردود : 0 - عدد المشاهدات : 2216 ]       »     مجمع شرائح الضرائب من ق 157 ل 93 وحتى ق97 ل 2018 [ الكاتب : المعز لدين الله - آخر الردود : المعز لدين الله - عدد الردود : 2 - عدد المشاهدات : 14865 ]       »     مجموعة مميزة من دروس الاكسل ( تصميم فواتير وسندات قبض if ... ) القسم الأول [ الكاتب : waseem kalboneh - آخر الردود : waseem kalboneh - عدد الردود : 0 - عدد المشاهدات : 2499 ]       »     تعرفوا علي صداع إجهاد العين [ الكاتب : غاااوي نت - آخر الردود : غاااوي نت - عدد الردود : 0 - عدد المشاهدات : 2552 ]       »     فوائد تناول السماق [ الكاتب : غاااوي نت - آخر الردود : غاااوي نت - عدد الردود : 0 - عدد المشاهدات : 2737 ]       »     مصروفات سنوات سابقة [ الكاتب : مصر 2015 - آخر الردود : مصر 2015 - عدد الردود : 0 - عدد المشاهدات : 2791 ]       »    


إضافة رد
قديم 06-22-2020, 05:59 PM
  #1
ياسر مسلم
مشارك مبتدئ
 
تاريخ التسجيل: Jun 2020
المشاركات: 1
Icon20 طلب مساعدة في البحث باسم يوزرفورم

السلام عليكم إخوتي اخوكم ياسر من تونس اود ان تساعدوني في انجاز قاعدة بيانات لمدرسين حاولت تطبيق بعض الدروس و انجازها لكن واجهتني مشكلة في الاكواد و خاصة عند البحث باسم و ترحيل البيانات من الشيت الى يوزرفورم عند طرق listbox اكتف الترحيل الى حدود العمود 9 مما اظطرني لاعادة الرقم 9
Private Sub ListBox1_Click()
For i = 0 To ListBox1.ListCount
If ListBox1.Selected(i) = True Then
لم استطع ارفاق ملف الاكسال بالمراسلة من يمكنه مساعدتي اكون له شاكرا يترك له بريده الالكتروني لارسل الملف

txtnom.Value = ListBox1.List(i, 0)
txtnumero.Text = ListBox1.List(i, 1)
cboecole.Text = ListBox1.List(i, 2)
txtnaissance.Text = ListBox1.List(i, 3)
txtlieu.Text = ListBox1.List(i, 4)
cbocivile.Text = ListBox1.List(i, 5)
cbonbenfants.Text = ListBox1.List(i, 6)
txtmail.Text = ListBox1.List(i, 7)
txtadresse.Text = ListBox1.List(i, 8)
txtcin.Text = ListBox1.List(i, 9)
txtphone.Text = ListBox1.List(i, 9)
cbostatut.Text = ListBox1.List(i, 9)
txtdateembauche.Text = ListBox1.List(i, 9)
txtdateDelimitation.Text = ListBox1.List(i, 9)
txtdateposteact.Text = ListBox1.List(i, 9)
cboancienneté.Text = ListBox1.List(i, 9)
txtdateinspection2.Text = ListBox1.List(i, 9)
txtnotedateinspection2.Text = ListBox1.List(i, 9)
cbolangue2.Text = ListBox1.List(i, 9)
txtdateinspection1.Text = ListBox1.List(i, 9)
txtnotedateinspection1.Text = ListBox1.List(i, 9)

cbolangue1.Text = ListBox1.List(i, 9)

End If
Next i

Private Sub Textrecherche_Change()
cboecole = ""
cbocivile = ""
cbonbenfants = ""
cbostatut = ""
cboancienneté = ""
cbolangue2 = ""
cbolangue1 = ""
txtnumero = ""
txtnom = ""
txtnaissance = ""
txtlieu = ""
txtmail = ""
txtadresse = ""
txtcin = ""
txtphone = ""
txtdateembauche = ""
txtdateDelimitation = ""
txtdateposteact = ""
txtdateinspection2 = ""
txtnotedateinspection2 = ""
txtdateinspection1 = ""
txtnotedateinspection1 = ""

Sheets("Source").Activate
ListBox1.Clear
ss = Sheets("Source").Cells(Rows.Count, 2).End(xlUp).Row
K = 0
For Each c In Range("b2:b" & ss)
B = InStr(c, Textrecherche)
If B > 0 Then
ListBox1.AddItem
ListBox1.List(K, 0) = Cells(c.Row, 2).Value
ListBox1.List(K, 1) = Cells(c.Row, 1).Value
ListBox1.List(K, 2) = Cells(c.Row, 3).Value
ListBox1.List(K, 3) = Cells(c.Row, 4).Value
ListBox1.List(K, 4) = Cells(c.Row, 5).Value
ListBox1.List(K, 5) = Cells(c.Row, 6).Value
ListBox1.List(K, 6) = Cells(c.Row, 7).Value
ListBox1.List(K, 7) = Cells(c.Row, 8).Value
ListBox1.List(K, 8) = Cells(c.Row, 9).Value
ListBox1.List(K, 9) = Cells(c.Row, 10).Value
ListBox1.List(K, 6) = Cells(c.Row, 7).Value

K = K + 1
End If
Next c
ياسر مسلم غير متواجد حالياً  
رد مع اقتباس
قديم 06-22-2020, 07:00 PM
  #2
حسام هداية
 الصورة الرمزية حسام هداية
 
تاريخ التسجيل: Nov 2007
المشاركات: 5,164
افتراضي رد: طلب مساعدة في البحث باسم يوزرفورم


جاري البحث
__________________



التعديل الأخير تم بواسطة حسام هداية ; 06-23-2020 الساعة 07:35 PM
حسام هداية غير متواجد حالياً  
رد مع اقتباس
قديم 06-22-2020, 08:16 PM
  #3
على أحمد على
 الصورة الرمزية على أحمد على
 
تاريخ التسجيل: Jun 2006
العمر: 73
المشاركات: 2,412
افتراضي رد: طلب مساعدة في البحث باسم يوزرفورم

__________________
Ali Ahmed Ali
على أحمد على غير متواجد حالياً  
رد مع اقتباس
قديم 06-23-2020, 07:34 PM
  #4
حسام هداية
 الصورة الرمزية حسام هداية
 
تاريخ التسجيل: Nov 2007
المشاركات: 5,164
افتراضي رد: طلب مساعدة في البحث باسم يوزرفورم


بحمد الله تم التوصل لحل

إن أداة ListBox مصممة أنها تستقبل البيانات من الشيت بعدد 10 أعمدة كحد أقصى بالطريقة التي تتبعها وذكرتها أنت

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

حيث نعبئ المصفوفة بكل البيانات التي نحتاجها من الشيت، وبعدها نعبئ أداة ListBox بالمصفوفة

بهذه الطريقة يمكن أن تحتوي أداة ListBox على العديد من الأعمدة

حيث يمكن أن يتخطى عددها إلى 50 عمودا

تم إرسال الملف بعد التعديل

تحياتي
__________________


حسام هداية غير متواجد حالياً  
رد مع اقتباس
إضافة رد

أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML متاحة

الانتقال السريع


الساعة الآن 09:40 AM