محدود نمودن کمبوباکس به یک فیلد

[ali190]

باسلام و عرض خسته نباشید
دوستان عزیز چطور میتونم در نمونه زیر کمبوباکس رو تنها به اطلاعات فیلد محدود کنم و در صورتی که کاربر عبارتی رو در این کمبو باکس تایپ نمود که در آن فیلد وجود نداشت به کاربر پیغام دهد
نمونه رو جهت ویرایش خدممتون قرار میدم
ممنون و متشکر
یاعلی

[ali190]

سلام دوستان
بنده نمونه رو تا حدی اصلاح نمودم ، ولی باز هم مشکل دارد

Do While Adodc1.Recordset.EOF = False
If Adodc1.Recordset.Fields("user") = Trim(Me.DataCombo1.Text) Then
MsgBox "ok"
Me.Text1.Text = Me.DataCombo1.Text
Exit Sub
Else
End If
Adodc1.Recordset.MoveNext
Loop
MsgBox "not ok"
زمانیکه شما یک عبارت دلخواه را خودتا تایپ میکنید و روی دکمه تائید کلیک میکنید پیغام not ok را میدهد که درست است اما بعد که روی یک عبارت از داخل کمبو باکس انتخاب میکنم بازهم پیغام not ok دریافت میکنم
نمونه را جهت ویرایش خدمتتون قرار میدم
یاعلی

[butterfly8528]

سلام دوست عزیز .


Private Sub Command2_Click()

Adodc1.Recordset.MoveFirst

For i = 1 To Adodc1.Recordset.RecordCount
If Text1.Text = Adodc1.Recordset.Fields("user") Then
MsgBox "OK"
Exit Sub
Exit For
Else
If Adodc1.Recordset.EOF = False Then Adodc1.Recordset.MoveNext
End If
Next i

MsgBox "Not OK"

End Sub

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\bank.mdb;"
Adodc1.RecordSource = "SELECT User FROM Table1"
Adodc1.Refresh
End Sub


در کد های بالا خواستم تقریبا به روش خودتون عمل کنم ، وگرنه به یک Select ساده میشد حلش کرد !

موفق و پیروز باشید .

[ali190]

سلام
این هم روش SelecT


Private Sub DataCombo1_Validate(Cancel As Boolean)
Adodc2.RecordSource = "SELECT * FROM Table1 WHERE User='" & DataCombo1.Text & "'"
Adodc2.Refresh
If Adodc2.Recordset.RecordCount = 0 Then
MsgBox "not ok"
Cancel = True
Else
MsgBox "ok"
Me.Text1.Text = Me.DataCombo1.Text
Cancel = False
End If
End Sub
Private Sub Form_Load()
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\bank.mdb;"
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\bank.mdb;"
Adodc1.RecordSource = "SELECT User FROM Table1"
Adodc1.Refresh
End Sub
یاعلی

[milad-fa]

با سلام؛
علی آقا ببین مشکلت رو تونستم تو این سورس حل کنم :
موفق باشی.

[Javad-2010]

علی آقا ببین مشکلت رو تونستم تو این سورس حل کنم :
کدوم سورس !!!!!!!!!!!!!!!!!!!!