consulta muy simple a tabla ( POR FAVOR URGENTE)

21/10/2003 - 12:54 por fcampanero | Informe spam
Buenos días.
Estoy intentando hacer una consulta desde un formulario a
un campo de texto y me da error. el campo que le paso es
tipo texto pero no me deja poner " " en el where.
Lo hago de la siguiente forma:

Dim dbs As Database, qdf As QueryDef, cadSQL As String
Set dbs = CurrentDb
cadSQL = "SELECT * FROM Datos_Personales WHERE Nombre = &
MiNombre & ;"
Set qdf = dbs.CreateQueryDef("Nombres", cadSQL)

DoCmd.OpenForm "frmBusDatosPersonales", , , cadSQL,
acFormEdit

En MiNombre tengo Nombre = "Francisco"

me dá el siguiente error:
se ha producido el error 3075 .

Gracias de antemano
 

Leer las respuestas

#1 Búho
21/10/2003 - 13:29 | Informe spam
Hola. El error se trata de que estas metiendo dentro de la cadena de la
consulta, una variable tambien String. Debes utilizar el entercomillado
correctamente...
cadSQL = "SELECT * FROM Datos_Personales WHERE Nombre = '" & MinOmbre & "'"

Ojo,que ando un poco atontao hoy, pero creo que esta bien asi

Saludos desde Valladolid
Francisco Javier García Aguado

http://www.buho.tk
http://www.clikear.com/webs/accessbhuo/
http://groups.msn.com/Access2000VisualBasic/

Gracias por no enviarme preguntas a mi correo.
"fcampanero" escribió en el mensaje
news:091701c397c1$bcc475e0$
Buenos días.
Estoy intentando hacer una consulta desde un formulario a
un campo de texto y me da error. el campo que le paso es
tipo texto pero no me deja poner " " en el where.
Lo hago de la siguiente forma:

Dim dbs As Database, qdf As QueryDef, cadSQL As String
Set dbs = CurrentDb
cadSQL = "SELECT * FROM Datos_Personales WHERE Nombre = &
MiNombre & ;"
Set qdf = dbs.CreateQueryDef("Nombres", cadSQL)

DoCmd.OpenForm "frmBusDatosPersonales", , , cadSQL,
acFormEdit

En MiNombre tengo Nombre = "Francisco"

me dá el siguiente error:
se ha producido el error 3075 .

Gracias de antemano

Preguntas similares