Combo Box

السلام عليكم..

كل ما عليك عمله هو استعلام الجدول واخذ العناصر و من ثم ادراجها في الcombo box

هل تريد ان تضع كل عنصر في combo box لوحده؟

سلام

اخ راكان هذا هو الكود الذي قمت انا بكتابته

  Do While Not rs1.EOF
     Combo1.AddItem rs1![MovieName]
      rs1.MoveNext
   
   Loop

لكن انا عندي اكثر من عنصر في قاعدة البيانات واريد انا اخذ كل عنصر موجود في قاعده البيانات الى combo box مختلف ارجو الافاده اخي الغزيز

سلام

قم بوضع خاصية ال index في الcombo1 الى -0

Private Sub Form_Load()
Me.WindowState = vbMaximized
Combo1(0) = ""
 Do While Not rs1.EOF
    If Combo1(0) = "" Then
        Combo1(0).Text = rs1![MovieName]
        rs1.MoveNext
    Else
        Load Combo1(Combo1.UBound + 1)
        With Combo1(Combo1.UBound)
            .Text = rs![MovieName]
            .Left = Combo1(Combo1.UBound - 1).Left
            .Top = Combo1(Combo1.UBound - 1).Top + Combo1(Combo1.UBound - 1).Height
        End With
        rs.MoveNext
    End If
  Loop

End Sub

صحيح كلام اخي راكان لازم تعمل لووب لاي متغير وتضيف الحقول الى الكومبو بوكس

وماذا لو تكررت البيانات بالكمبو ؟؟

مشكلة تواجهنى

في الجنرال

Public Sub AddAllNamesTocbo()

' Add All Name Without Duplication

Combo1.Clear
SQL = "Select name from Tbl GROUP BY Asl_Type"

Set rs = db.OpenRecordset(SQL) 'Table
With rs
    Do Until .EOF
       Combo1.AddItem !name       
       .MoveNext 'Next Record
       
       DoEvents 'Don't Freez The System
       
Loop
    .Close  'Close Rs When Finish
    
        End With

وفي form_Load

AddAllNamesTocbo

هذا باعتبار ان لدينا جدول اسمة tbl و حقل اسمة name

الاخ الفاضل إبراهيم الطيب

شكرا للمساعدة سأجرب واخبرك ,

الاخ الفاضل إبراهيم

لم تنفع معى هذة الطريقة

على العموم هذا هو الكود الذى استخدمة فى حدث الضغط على الاداة Combo :

Dim RS As New ADODB.Recordset
Dim SQL As String
'

    SQL = "SELECT * FROM TypeStokePrice WHERE BluckType='" & Combo1 & "'"
 Set RS = Cn.Execute(SQL)
'

 If RS.EOF = False Then Label3.Caption = RS.Fields(7)
 If RS.EOF = False Then Text5.Text = RS.Fields(3)
 If RS.EOF = False Then Text6.Text = RS.Fields(4)

'
    RS.Close
Set RS = Nothing

شكرا لكم

السلام عليكم

اقتباس

وماذا لو تكررت البيانات بالكمبو ؟؟

مشكلة تواجهنى

ظننتك تريد ملء كمبو بوكس بحقل موجود علي جدول من دون تكرار

البيانات علي الكمبو حتي لو تكررت في الجدول .

:)

اخى ابراهيم ما يحدث لدى هو العكس لان التكرار لدى لازم

انا امليء اداة الكمبو من خلال جدول المقاسات الذى يحتوى على البيانات التالية مثلا :

1200R20

1200R20

1200R24

1200R24

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

1200R20

1200R20

1200R24

1200R24

واداة الكمبو تحتوى على المقاسات فقط وما اريدة اننى عندما اختار المقاس الاول : 1200R20 يعطينى بياناته التى هى مثلا = 12345

وعندما اختار المقاس المكرر ايضا :1200R20 يعطينى مثلا = 2468

المخزن بنفس الجدول ونفس الحقل

إذا البيانات لدى (اقصد المقاسات) تتكرر ولكن كود المقاس هو الوحيد الذى لا يتكرر ولازم ان يتم مليء اداة الكمو بالمقاسات وعندما اختار المقاس يعطينى بياناته

اعتقد اننى اطلت الشرح لكى اوصل سؤالى

اتمنى ان اجد حل

شكرا ,,,,

أخى عرفة

إضافة قد تفيدك بصورة أو بأخرى

Sql="SELECT Distinct BluckType  FROM TypeStokePrice  Order By BluckType"
Dim R as Long
Combo1.Clear
 Set RS = Cn.Execute(SQL)
If Rs.RecordCount>0 then
Rs.MoveLast: Rs.MoveFirst
For R=0 To Rs.RecordCount -1
Combo1.AddItem Rs!BluckType
Rs.MoveNext
Next R
End If

الفائدة من هذا الكود الحصول على المقاسات بدون تكرار فى الكمبوبوكس

وفى مشاركة أخرى ذكرت لك أنك أن كنت تريد كل السجلات التى تتبع نفس المقاس ، تنفذ الاستعلام الذى ذكرته بالأعلى ولكن تعرض النتائج فى جريد أو تحملهم لكومبو آخر بنفس الأسلوب

ومادمت تعبت لهذا الحد فيمكنك وضع مثال من بياناتك ونحاول تعديله لك ليصبح كما تريده بإذن الله.

اعتقد اننى ارفق مثال يوضح ذلك سيكون افضل

وانا شاكر جدا لاهتمامك ومساعدتك