من نتونستم از لیست باکس استفاده کنم. میشه لطفا کمک کنین
آقا امین چرا لیست باکس وقتی به بانک وصل میکنم محتویات بانک رو نشون نمیده؟
ببینید من تو برنامه یه textbox دارم و listbox . از یه کنترل data هم استفاده کردم. textbox محتویات بانک رو نشون میده ولی listbox نشون نمیده. چرا؟
با دستور
List1.AddItem Text1.Text
محتوای تکست باکسو بریز تو لیست باکس
این دستور هر چی تو تکست باکس هست رو میبره به لیست باکس. من می خوام همه محتویات بانک یه جا دیده بشه
دوستان این برنامه ای که ضمیمه کردم رو ببینید. وقتی یه کلمه رو سرچ میکنم همه محتویات بانک رو میاره. چرا؟ میشه بگید ایرادش کجاست؟
این کدو جایگدین کد قبلیت کن :
کد:
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
درست شد. دستت درد نکنه
حالا که نتایج رو نشون میده می خوام تو لیست باکس رو هر اسم که کلیککردم تو تکس باکس مشخصات همون فرد دیده بشه. باید چیکار کنم؟
کد:
Private Sub lstFind_Click()
MsgBox lstFind.List(lstFind.ListIndex)
End Sub