Search from listbox

[Clive Ellul]

Hi folks, and congratulations on your forum.

I have a problem when using a List Box to search a DB. The query below populates my list box using a search criteria, this works fine.

SELECT Clientes.Cliente, Clientes.Molde, Clientes.Estantería, Clientes.Fecha, Clientes.Orden FROM Clientes WHERE (((Clientes.Cliente) Like ([Forms]![BUSCAR_FRM]![txtSearchString])+"*"))
ORDER BY Clientes.Cliente;

The problem is that when I double click the record desired it goes to the first record of the recordset for that client instead of going to the actual record. The keyID field in the table is "Orden" (which displays on the ListBox on the 5th column). Check code below.

Private Sub ListaCliente_DblClick(Cancel As Integer) On Error GoTo Err_ListaCliente_DblClick
 
Dim stDocName As String
Dim stLinkCriteria As String
 
    stDocName = "Clientes"
    stLinkCriteria = "[Cliente]=" & "'" & Me![ListaCliente] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_ListaCliente_DblClick:
Exit Sub
 
Err_ListaCliente_DblClick:
MsgBox Err.Description
Resume Exit_ListaCliente_DblClick
End Sub

I have limited knowledge of VB and would appreciate any help.

Thanks Clive

[mjf1]

Hi there. Don't know if you are the same Clive Ellul who used to live in North London and pal about with Eric there. If so, you may remember me, Moray (Scottish bloke) from way back in the day (way back!). If not, sorry to have troubled you!!!

[ADezii]

@Clive Ellul
Try, assuming [Orden] is Numeric:

Dim stDocName As String 
Dim stLinkCriteria As String 
 
stDocName = "Clientes" 
 
stLinkCriteria = "[Orden]=" & Me![ListaCliente].Column(4) 
 
DoCmd.OpenForm stDocName, , , stLinkCriteria