Javi
04 de Febrero del 2005

Hola, estoy usando el siguiente c贸digo para obtener el valor de un elemento seleccionado en un lista y necesito usar ese valor para realizar una consulta y actualiza tres cuadros de textos. Dicho c贸digo me da un error al hacer la consulta. A ver si alguien me echa un cable, porque no tengo forma de encontrar la soluci贸n.

Private Sub Lista5_Click()

Dim r As Recordset
Dim bd As Database
Dim valor As String

Set bd = CurrentDb()

'For i = 0 To Lista5.ListCount - 1
If Lista5.Value <> "" Then
valor = [Lista5].Value
Set r = bd.OpenRecordset("SELECT Programas.Ubicacion, Programas.Documentacion, Programas.Descripcion FROM Programas WHERE (((Programas.Nombre)= valor));", dbOpenSnapshot)
End If
'Next i



'[Texto1].????
'[Texto2].????
'[Texto3].????

End Sub

Javi
04 de Febrero del 2005

Much铆simas gracias Juan. Un saludo.

Juan
04 de Febrero del 2005

hacelo asi:

Set r = bd.OpenRecordset("SELECT Ubicacion, Documentacion, Descripcion FROM Programas WHERE Nombre='" & valor & "';", dbOpenSnapshot)


Si el campo Nombre es numerico, sacale la comilla simple

Si vas a usar variables para formar la consulta, tenes que unir las cadenas con &

Como lo estas haciendo la consulta pregunta por nombre igual a la palabra valor y no por el contenido de la variable valor.

Un saludo

linamary
04 de Febrero del 2005

Hola

Estoy creando una base de datos para calidad y necesito que las fechas de las tareas sean enviadas segun su fecha de cumplimiento por medio de un mensaje en outlook.
Es posible?

te agradeceria cualquier informaci贸n sobre esto.

Gracias

LINA