Access - consulta insert into no agrega registro

   
Vista:

consulta insert into no agrega registro

Publicado por juan manuel fusero (6 intervenciones) el 05/03/2009 00:07:08
Hola de nuevo.

al hacer una consulta insert into pasando un formulario como parametro para usar los controles del mismo en dicha consulta, me sucede que no me da ningun error en la ejecucion del formulario, pero no se agrega ningun dato en la tabla.

el codigo que use es el siguiente:
Public Sub agregar_registro(ByVal txtdni As TextBox, ByVal frmpaso As Form)

'se crea una variable que va a ser usada para insertar el número de registro
Dim id As Integer
id = 0

'esta linea de código incrementa en 1 el valor de la clave del ultimo registro en la tabla
id = Nz(DMax("clave", "Padrones"), 0) + 1

'ejecuta la consulta y se agregan el registro a la tabla
CurrentDb.Execute "INSERT INTO Padrones(clave,fecha,historia_clinica,DNI,apellido s,nombres,edad,sexo,fecha_nacimiento,calle,nro,loc alidad,telefonos,obra_social,grupo_sanguineo,facto r,pertenece,medico_cabecera,observaciones,recibio_ hc)" & _
" VALUES(" & id & ",'" & Nz(frmpaso.Controls.Item("txtfecha")) & "','" & Nz(frmpaso.Controls.Item("txthistoria")) & "','" & txtdni.Value & "','" & frmpaso.Controls.Item("txtapellidos") & "'," & _
"'" & frmpaso.Controls("txtnombres") & "','" & Nz(frmpaso.Controls("txtedad")) & "','" & Nz(frmpaso.Controls("txtsexo")) & "'," & _
"'" & Nz(frmpaso.Controls.Item("txtfechanac")) & "','" & Nz(frmpaso.Controls.Item("txtcalle")) & "','" & Nz(frmpaso.Controls.Item("txtnro")) & "'," & _
"'" & Nz(frmpaso.Controls.Item("txtlocalidad")) & "','" & Nz(frmpaso.Controls.Item("txtel")) & "','" & Nz(frmpaso.Controls.Item("txtobrasocial")) & "'," & _
"'" & Nz(frmpaso.Controls.Item("txtgrupo")) & "','" & Nz(frmpaso.Controls.Item("txtfactor")) & "','" & Nz(frmpaso.Controls.Item("txtdonante")) & "','" & Nz(frmpaso.Controls.Item("txtmedico")) & "'," & _
" '" & Nz(frmpaso.Controls.Item("observaciones")) & "','" & Nz(frmpaso.Controls.Item("txtretiro")) & "')"

¿es correcto pasar un formulario coimo parametro o es mas acertado usar un array?

¿a que se debe que no me agrega ningun registro sin que me de ningun error para depurar? aclaro que instale el service pack 2 de office 2003.
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:consulta insert into no agrega registro

Publicado por jose manuel (59 intervenciones) el 05/03/2009 21:34:23
prueba otra cosa.

realiza la consulta con el generador de consultas y luego miras el codigo sql que ha generado acces
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