Query result in a textfield VBA

[kpetas]

I have this code:

Private Sub codProyecto_Change()
Dim strSQL As String

strSQL = "SELECT *"
strSQL = strSQL & "FROM Proyecto "
strSQL = strSQL & "WHERE [Nombre proyecto]='" & codProyecto.Text & "'"

Me.lstResultado.RowSource = strSQL

End Sub

This code take a name for a TextField(codProyecto) and show de query in a listbox(lstResultado), now I want to show the result of the query in a textfield in spite of in a listbox, Thnak you

 

[PHV]

In Access VBA you may consider the DLookUp function.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886