مشکل این کد چیه؟

[Yasser80]

یه listbox داریم به اسم LstCode و یه textbox به اسم TxtDes. میخوایم وقتی رو لیست کلیک میکنیم اطلاعات متناظرش تو textbox که تو فیلد Descript قرار داره نشون داده بشه. ولی کار نمیکنه کجاش ایراد داره؟ recordcount هم همیشه صفره. خودم فکر میکنم قسمت (Trim(LstCode.Text باید اشتباه باشه ولی درستشو نمیدونم. مرسی از راهنماییتون.

Private Sub LstCode_Click()

    Adodc1.RecordSource = "SELECT * FROM Charge WHERE Code=' " & Trim(LstCode.Text) & " '"
    Adodc1.Refresh
    If Adodc1.Recordset.EOF = False And Adodc1.Recordset.BOF = False Then
        TxtDes = Adodc1.Recordset!Descript
    Else 'If Not Adodc1.Recordset.EOF = False And Adodc1.Recordset.BOF = False Then
        MsgBox ...
        CmdAddCost.SetFocus
    End If
End Sub

 

[h4sh3m]

یه listbox داریم به اسم LstCode و یه textbox به اسم TxtDes. میخوایم وقتی رو لیست کلیک میکنیم اطلاعات متناظرش تو textbox که تو فیلد Descript قرار داره نشون داده بشه. ولی کار نمیکنه کجاش ایراد داره؟ recordcount هم همیشه صفره. خودم فکر میکنم قسمت (Trim(LstCode.Text باید اشتباه باشه ولی درستشو نمیدونم. مرسی از راهنماییتون.

Private Sub LstCode_Click()

    Adodc1.RecordSource = "SELECT * FROM Charge WHERE Code=' " & Trim(LstCode.Text) & " '"
    Adodc1.Refresh
    If Adodc1.Recordset.EOF = False And Adodc1.Recordset.BOF = False Then
        TxtDes = Adodc1.Recordset!Descript
    Else 'If Not Adodc1.Recordset.EOF = False And Adodc1.Recordset.BOF = False Then
        MsgBox ...
        CmdAddCost.SetFocus
    End If
End Sub

اونو با اين عوض كن اگه جواب نداد برنامه رو بفرست تا برطرفش كنم.

rtrim(ltrim(lstcode.tec))​