NO Insertar un nuevo registro
Publicado por Sandra Verónica (203 intervenciones) el 07/02/2008 17:46:46
Hola a Todos .... necesito saber como hacer para insertar un nuevo registro en una tabla para agregarles los datos de los campos de un formulario. Ej. se registra una nueva acta y esos datos tambien los debo tener en una Tabla que se llama RegComp. Es en esa tabla en donde debo poner los datos. Si alguien me puede chequear el codigo porfavor .... ya que no da el resultado esperado. No me graba el registro.
Dim GrabaMaestro, RCSql As String
Dim TempRC As DAO.Recordset
Set TempRC = CurrentDb.OpenRecordset("SELECT * FROM RegComp", dbOpenDynaset)
DoCmd.GoToRecord acDataTable, "RegComp", acNewRec
RCSql = "UPDATE RegCom SET RgNroCliente = me.Cuenta, RgRazon = Me.Razon, RgNroActa = " & nActa & ", RgAnoActa = YEAR(DATE()),RgEstadoActa = 'Borrador', RgMontoCompensa = me.Texto106, RgSdoTeco = Me.Texto88 , RgSdoProv = Me.Texto86"
DoCmd.SetWarnings False
DoCmd.RunSQL RCSql
DoCmd.SetWarnings True
TempRc.Close
Set TempRc = Nothing
Desde ya muchas gracias
Sandra!!
Dim GrabaMaestro, RCSql As String
Dim TempRC As DAO.Recordset
Set TempRC = CurrentDb.OpenRecordset("SELECT * FROM RegComp", dbOpenDynaset)
DoCmd.GoToRecord acDataTable, "RegComp", acNewRec
RCSql = "UPDATE RegCom SET RgNroCliente = me.Cuenta, RgRazon = Me.Razon, RgNroActa = " & nActa & ", RgAnoActa = YEAR(DATE()),RgEstadoActa = 'Borrador', RgMontoCompensa = me.Texto106, RgSdoTeco = Me.Texto88 , RgSdoProv = Me.Texto86"
DoCmd.SetWarnings False
DoCmd.RunSQL RCSql
DoCmd.SetWarnings True
TempRc.Close
Set TempRc = Nothing
Desde ya muchas gracias
Sandra!!
Valora esta pregunta


0