Access - Sigo con problemas con el codigo vb

   
Vista:

Sigo con problemas con el codigo vb

Publicado por Ana (5 intervenciones) el 17/12/2007 14:50:25
He probado varias formas para poder asignar el valor de un campo de una consulta a una variable pero no hay forma de que funcione.
Esto es lo que tengo y a ver si se alguien me puede ayudar:

Private Sub Cuadro67_Click()

Dim Valor As String
Dim mRs As Recordset
Dim datos As Database

Set datos = Access.CurrentDb

Set mRs = datos.OpenRecordset("SELECT tblCarParkPlace.CarParkPlaceNumber FROM CarParkPlacesNoAvariables ORDER BY tblCarParkPlace.CarParkPlaceNumber ASC", dbOpenSnapshot)

'donde tblCarParkPlace.CarParkPlaceNumber es el campo
' y CarParkPlacesNoAvariables es el nombre de la consulta

Valor = mRs!CarParkPlaceNumber

End Sub

Cuando se ejecuta aparece el siguiente mensaje:
Error 3061....pocos parámetros se esperaban 2 y me marca la linea del Set mRS=.....

NECESITO AYUDA!!!! Gracias!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Sigo con problemas con el codigo vb

Publicado por Victoria (1530 intervenciones) el 17/12/2007 15:14:50
Hola:

Tienes mal la cadena SELECT, sería:

SELECT CarParkPlaceNumber FROM CarParkPlacesNoAvariables ORDER BY CarParkPlaceNumber ASC"

Se hace:

SELECT campo FROM tabla

o

SELECT campo FROM consulta

Además, si quieres capturar el PRIMER VALOR, has de poner TOP 1 de esta forma

SELECT TOP 1 CarParkPlaceNumber FROM CarParkPlacesNoAvariables ORDER BY CarParkPlaceNumber ASC"

Un saludo
Victoria
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar