Tengo un problema con el movimiento de un recordset dentro de un datalist. Les explico.
Tengo un Datalist correctamente conectado a una tabla llamada ciudades pretendo que al hacer click o mover el cursor de una ciudad a otra muestre información referente a la ciudad en unos Textbox.
El problema es que el recordset siempre apunta a la primer ciudad el Datalist, con las flechas del teclado no es posible moverme.
Con el mouse de alguna manera forzo el recordset y he logrado ver las ciudades que selecciono pero al querer editar los datos de ésta ciudad mi recordset vuelve a apuntar a la primer posición del datalist.
Me pueden ayudar...
Al cargar el form.. muestro todas las cd. en el Datalist y se manda llamar lo siguiente
Public Sub ListarPlazas()
Dim Sql As String
Sql = "Select Director, gerente, "
Sql = Sql & ",Cp, Ciudad, Estado from Plaza order by ciudad"
If Rs.State <> adStateClosed Then
Rs.Close
End If
Rs.CursorLocation = adUseClient
Rs.Open Sql, Cn, adOpenStatic
Set DataList1.RowSource = Rs
DataList1.ListField = "Ciudad"
DataList1.BoundColumn = "Ciudad"
End Sub
Y para mostrar la información deseada
Private Sub DataList1_Click()
Dim Sql As String
ciudad = DataList1.Text
MsgBox TxtCiudad.Text = Rs!ciudad
Sql = "Select * From Plaza Where Ciudad= '" & ciudad & "'"
If Rs.State <> adStateClosed Then
Rs.Close
End If
Rs.CursorLocation = adUseClient
Rs.Open Sql, Cn, adOpenStatic
TxtDirector.Text = Rs!Director
TxtGerente.Text = Rs!Gerente
TxtCiudad.Text = Rs!ciudad
TxtEstado.Text = Rs!estado
Rs.Close
ListarPlazas
End Sub
Gracias por leerme..
