[parvin]

من نتونستم از لیست باکس استفاده کنم. میشه لطفا کمک کنین

[parvin]

آقا امین چرا لیست باکس وقتی به بانک وصل میکنم محتویات بانک رو نشون نمیده؟

[Amin_Mansouri]

سورستو بزار

[parvin]

ببینید من تو برنامه یه textbox دارم و listbox . از یه کنترل data هم استفاده کردم. textbox محتویات بانک رو نشون میده ولی listbox نشون نمیده. چرا؟

[Amin_Mansouri]

با دستور
List1.AddItem Text1.Text
محتوای تکست باکسو بریز تو لیست باکس

[parvin]

این دستور هر چی تو تکست باکس هست رو میبره به لیست باکس. من می خوام همه محتویات بانک یه جا دیده بشه

[parvin]

دوستان این برنامه ای که ضمیمه کردم رو ببینید. وقتی یه کلمه رو سرچ میکنم همه محتویات بانک رو میاره. چرا؟ میشه بگید ایرادش کجاست؟

[Amin_Mansouri]

این کدو جایگدین کد قبلیت کن :

کد:

Private Sub Command2_Click()
'Data1.Recordset.FindNext "name like" & "'" & Text1 & "'"
Form1!Data1.Recordset.FindFirst "[name] like '*" & Text1 & "*'"
If Data1.Recordset.NoMatch Then
    MsgBox "!!ãÊÇÓÝÇäå ãæÑÏí íÏÇ äÔÏ", vbExclamation
    Text1.Text = ""
    Text1.SetFocus
Else
   ' Form1.Show
   ' Form2.Text1.Text = ""
   ' Form2.Hide
    With Data1.Recordset
    Do Until .EOF
    If .Fields("name") = Text1.Text Then lstFind.AddItem .Fields("name") & ", " & .Fields("last") & ", " & .Fields("melikod")
                
                .MoveNext
            Loop
            End WithEnd If
End Sub

[parvin]

درست شد. دستت درد نکنه
حالا که نتایج رو نشون میده می خوام تو لیست باکس رو هر اسم که کلیککردم تو تکس باکس مشخصات همون فرد دیده بشه. باید چیکار کنم؟

[Amin_Mansouri]

کد:

Private Sub lstFind_Click()
MsgBox lstFind.List(lstFind.ListIndex)
End Sub