جستجو بوسیله کمبو باکس

[new.comer]

با عرض سلام
دوستان ازتون تقاضا دارم یه تیکه برنامه بهم بدین که با استفاده از کمبو باکس بتونم یه جستجو بسازم
میخوام اینجوری باشه که مثلن تو فیلد کد و نام و سن جستجو داشته باشم
با تشکر :قلب:

[ALIMAHDE54]

با عرض سلام
من اصلا متوجه سوال شما نشدم شما میخواهید چطوری با کمبو باکس جستجو کنید در حالی که این کار باعث کاهش زیبایی برنامه میشه
شما میتوانید به کمبو باکس شرط بزارید که وقتی نا انتخاب شد با استفاد از نام جستجو کنه اگه نام خانوادگی رو انتخاب کرد با استفاده از نام خانوادگی جستجو کنه
من در زیر چند خط کد میذارم که این کار رو با لیست باکس انجام میده
Private Sub List1_Click()
Select Case List1.ListIndex
Case 0
lblname.Visible = False
lbllname.Visible = False
lblphon.Visible = False
lblshshnasnamh.Visible = False
txtname.Visible = False
txtlname.Visible = False
txtphon.Visible = False
txtshshnasnamh.Visible = False
txtcode.Visible = True
lblcode.Visible = True
txtcode.Text = ""
txtcode.SetFocus
Case 1
lblname.Visible = True
lbllname.Visible = True
lblphon.Visible = False
lblshshnasnamh.Visible = False
txtname.Visible = True
txtlname.Visible = True
txtphon.Visible = False
txtshshnasnamh.Visible = False
txtcode.Visible = False
lblcode.Visible = False
txtname.Text = ""
txtlname.Text = ""
txtname.SetFocus
Case 2
lblname.Visible = False
lbllname.Visible = False
lblphon.Visible = False
lblshshnasnamh.Visible = True
txtname.Visible = False
txtlname.Visible = False
txtphon.Visible = False
txtshshnasnamh.Visible = True
txtcode.Visible = False
lblcode.Visible = False
txtshshnasnamh.Text = ""
txtshshnasnamh.SetFocus
Case 3
lblname.Visible = False
lbllname.Visible = False
lblphon.Visible = True
lblshshnasnamh.Visible = False
txtname.Visible = False
txtlname.Visible = False
txtphon.Visible = True
txtshshnasnamh.Visible = False
txtcode.Visible = False
lblcode.Visible = False
txtphon.Text = ""
txtphon.SetFocus
End Select
End Sub
Private Sub txtcode_Change()
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "Select * From farde Where code='" & txtcode.Text & "'"
Adodc1.Refresh
End Sub
Private Sub txtlname_Change()
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "Select * From farde Where lname='" & txtlname.Text & "'"
Adodc1.Refresh
End Sub
که شما میتوانید با یکم ویرایش این کد به نتیجه ای که میخواین برسین
من یه کاربر مبتدی هستم و احتمالا مشکلات زیادی داشته باشم
از اساتید اگه در این کدها ایرادی دیدن خبر بدن تا همه یاد بگیرن من هم به اشکللات خودم پی ببرم
ممنون

[new.comer]

میتونید کدو تو یه برنامه بزارید ؟
الان نا مفهومه !
راستی چرا زیبایی برنامه رو از بین میبره ؟

[new.comer]

خواهشن یکی بیاد راهنماییم کنه

با تشکر

[new.comer]

چرا کسی کمکم نمیکنه ؟؟؟؟:ناراحت:

[new.comer]

سلام

:متفکر::متفکر:

کمک نمیکنه کسی ؟

[M.T.P]

اگه Rs رکوردست شما باشه:


If Rs.State = 1 Then Rs.Close
Select Case Combo1.ListIndex
Case 0: Rs.open "Select * From Users Where Name =" & StrSearch
Case 1: Rs.open "Select * From Users Where Family =" & StrSearch
Case 2: Rs.open "Select * From Users Where Mobile =" & StrSearch
Case 3: Rs.open "Select * From Users Where Adress =" & StrSearch
End Select