consulta parametrizada para insertar

Hola:

Supongamos la tabla de nombre "Tb" y los campos "Ct1" de
tipo texto y "Cn2" de tipo numérico... y los controles del
formulario se llaman "Ct" y "Cn", deberías de construir la
sentencia en una variable de tipo "String" y ejecutarla
con "Execute", algo así:

Sub Graba
Dim sSql As String

sSql = "INSERT INTO Tb (Ct1, Cn2) SELECT "
sSql = sSql & "'" & Me.Ct & "' AS Expr1 "
sSql = sSql & Me.Cn & " AS Expr2"

CurrentDb.Execute sSql
End Sub

Fíjate que los campos de tipo texto EXIGEN la existencia
de comillas simples y los numéricos no.

Saludos,
CarCa
MVP-Access

Hola a todos gracias de antemano.

Mi problemas es que necesito insertar un registro en una
tabla por codigo mediante una consulta de insercion del
tipo

INSERT INTO tabla(campos) VALUES valores

Pues bien al hecer esto necesito que los valores me los
pille de editbox de un formulario, creo que debe de ser
parametrizado, per es que no consigo relaizar dicha orden
sql dentro del codigo.
Si pongo en los valores las referencias a los editbox me
dice que se esperan parametros. La verdad es que no se
como solucionarlo.

Si alguien pudiera ayudarme por favor lo agradeceria
mucho.
.

Muchas gracias por contestarme, pero no consigo realizar
la consulta que me pones ahi en el codigo me da error de
compilacion si fueses tan amable de ponerla otra vez con
los datos que tengo. La tabla seria esta:

Usuarios(nombre,direccion,localidad,cp,telefono,nif)
todos son de texto.

los controloes con me.nombre, me.direccion y asi con todos

Si fueras tan amable de poner como quedari con todos los
campos. Otra pregunta es si alguno de los campos son
vacios es decir que no se tienen por lo que sea ¿seguiria
funcionando?

Muchisimas gracias por vuestra ayuda.

mas o menos asi:

Dim cnn as Connection
Dim rst as Recordset

Set cnn = currentproject.Connection

strSQL = "SELECT nombre, direccion, localidad, cp, telefono, nif " _
& "FROM Usuarios WHERE [nombre] = '" & Me.txtNombre & "'"

rst.Open strSQL, cnn, vbOptimistic

If rst.EOF Then ' (existen registros)
With rst
Me.txtDireccion = !direccion
Me.txtLocalidad = !localidad
Me.txtCP = !cp
Me.txtTelefono = !telefono
Me.txtNIF = !nif
End with
Else
' aqui indicas que no existe registro
MsgBox ("No se encontro el nombre solicitado","Error")
End If

rst.Close
cnn.Close
Set rst = Nothing
Set cnn = Nothring ' para liberar la memoria usada

(cierras la sub)

esto lo pones en un modulo de VBA y lo llamas desde, digamos, Al Perder el
Enfoque del cajon de texto Me.txtNombre, donde has escrito el nombre que
buscas.


Victor Delgadillo MS-MVP Access
Miami, Florida

Mensajes a los grupos de noticia, asi todos nos beneficiamos!



wrote in message
news:01c401c3966c$04f7aa00$

Muchas gracias por contestarme, pero no consigo realizar
la consulta que me pones ahi en el codigo me da error de
compilacion si fueses tan amable de ponerla otra vez con
los datos que tengo. La tabla seria esta:

Usuarios(nombre,direccion,localidad,cp,telefono,nif)
todos son de texto.

los controloes con me.nombre, me.direccion y asi con todos

Si fueras tan amable de poner como quedari con todos los
campos. Otra pregunta es si alguno de los campos son
vacios es decir que no se tienen por lo que sea ¿seguiria
funcionando?

Muchisimas gracias por vuestra ayuda.