Actualizar campos de tabla rango inicio-fin

Tengo una tabla ALMACEN en la que mediante un formulario independiente introduzco datos de entrada.

Los campos del formulario son:

Fecha, concepto, inscripcion, incio serie, fin serie, observaciones.

Con el evento en el botón GUARDAR: 

Private Sub GUARDAR_Click()
Dim ISERIE, FSERIE As String
Dim FECHA As Date
IANILLA = Me.InicioSerie
FANILLA = Me.FinSerie
For i = IANILLA To FANILLA
CurrentDb.Execute "INSERT INTO ALMACEN(FECHAENTRADA, INSCRIPCION, SERIE, TIPOENTRADA, OBSERVACIONES) VALUES (#" & Me.FECHA & "#, '" & Me.INSCRIPCION & "', '" & Format(i, "00000") & "', '" & Me.Concepto & "', '" & Me.OBSERVACIONES & "')"
Next i
MsgBox "ANILLAS GRABADAS EN SU ALMACEN", vbInformation, "PROCESO COMPLETADO"
End Sub

Me funciona perfectamente, gracias a respuestas de este foro.

Ahora quiero a través de otro formulario independiente modificar algunos campos de esta tabla. He hecho lo miso en otro formulario independiente, pero he cambiado el evento en el botón guardar por:

Private Sub GUARDAR_Click()
Dim ISERIE, FSERIE As String
Dim FECHA As Date
IANILLA = Me.InicioSerie
FANILLA = Me.FinSerie
For i = IANILLA To FANILLA
CurrentDb.Execute "UPDATE ALMACEN SET UDSALIDA = 1, TIPOSALIDA = '" & Me.Concepto & "', OBSERVACIONES = '" & Me.OBSERVACIONES & "' WHERE SERIE = '" & i & "'"
Next i
MsgBox "ANILLAS GRABADAS EN SU ALMACEN", vbInformation, "PROCESO COMPLETADO"
End Sub

Realiza el proceso y muestra el mensaje de completado sin darme ningún error,  pero entro en la tabla y no ha hecho nada. 

No sé si esta es la manera correcta de hacerlo, el caso es que no funciona y no sé por qué, no me da ningún error.

1 Respuesta

Respuesta
2

Como i es un número, el criterio deberías ponerlo como:

... WHERE Serie=" & i

Muchísimas gracias. Funciona perfectamente así. 

Ahora tengo un "pequeño problema", seguramente será una tontada, pero no consigo arreglarlo, en la tabla ALMACEN tengo un campo calculado que une los campos INSCRIPCIÓN, que es texto, Y SERIE, que es número, pero al hacerlo me borra los ceros a la izquierda del campo SERIE, y necesitaría mantenerlos, no sé como puedo darle formato en el generador de expresiones o en las propiedades del campo. 

Muchas gracias, otra vez. 

Usa la función Format() en el campo Serie. Por ejemplo, si quieres que Serie tenga 5 dígitos al encadenar:

Inscripcion & Format(Serie;"00000")

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

¿Cómo vincular un formulario con un subformulario?

Mi pregunta para aquellos que entiendan les resultará una tontería, pero llevo más de 20 minutos dándole vuelta y no lo consigo hacer. Tengo un formulario con estos datos: Un campo con 2 selectores que son: "Clase" y "Examen", otro que es introducir...
1 respuesta

Como actualizar un registro de un Tabla "A" de Access después de actualizar un campo de otra Tabla "B" de Access?

Es un caso de Control de Inventario. Tengo 2 Tablas: "Tabla de AdE" y "Tabla de PyE" y necesito que, al actualizar y guardar el valor del campo "Existencia" de la "Tabla de AdE" se me actualice automáticamente el valor del campo de "Existencia" de la...
2 respuestas

Insertar un registro de una tabla a otra y eliminarlo mediante código

Cree una tabla que se llama abonos y cancelados la cual tiene varios datos entre ellos una casilla de verificación (si/no) que brinda el sistema al momento de crear los campos. Bueno lo que quisiera seria que después de que este el registro ingresado...
1 respuesta

Validar fecha del cuadro de texto con la tabla

Tengo una tabla en la que hay un campo fecha, y hay un formulario que hace referencia a dicha tabla. En el formulario debo de agregar la fecha, por medio del almanaque para que no haya error de escritura, y al hacer clic en un botón este la agrega....
1 respuesta

Generar número automático en access

Y estoy manejándolo para afrontar un registro de libros antiguos. La cuestión es que sigo la catalogación del fondo, que es secuencial, y quiero generar automáticamente esa secuencia de números, que es mi Campo ID, y no tener que introducirlos uno a...
2 respuestas

¿Como escribir correctamente un insert into en access usando varias variables en values?

Tengo un problema con el siguiente código, pretendo que al hacer clic en un botón de comando se ejecute esta macro que toma los valores de fechaInicio y FechaFin de dos cuadros de texto del mismo formulario[InsFormCursoB], y que tome el valor...
1 respuesta

Poner formato correcto a expresión fecha

Con el código que me paso ayer Sveinbjorn El Rojo para realizar un INSERT INTO a una tabla histórico, que es este: Private Sub Imagen113_Click() Dim respuesta As String Dim cSql As String Dim vFecha As Variant respuesta = MsgBox("ELIMINARÁ EL...
2 respuestas

Copiar por medio de una consulta a otra tabla ingresando solo rango de fechas inicial y final pero consecutivas Access 2013

Tengo una base de datos que por medio de un formulario ingreso rango de fechas inicial y final en una tabla, lo que quiero es que por medio de una consulta ingresar las fechas inicial y final consecutivamente, ejemplo: Fecha inicial 20/03/2017 y...
1 respuesta

Código para pasar registro a Tabla Histórico

Tengo una tabla de material, donde he creado un botón con el siguiente código: Private Sub Imagen789_Click() Dim respuesta As String Dim cSql As String respuesta = MsgBox("ELIMINARÁ EL REGISTRO ACTUAL,¿DESEA CONTINUAR?", vbYesNo, "CONFIRMAR") If...
2 respuestas

Access 2010 y campos del tipo Datos adjuntos

Y pedir perdón por mi bajo nivel en estos temas. Tengo una duda con la que estoy peleándome y no consigo nada. Estoy desarrollando una miniaplicación para gestionar un supuesto negocio. Tengo una tabla de Facturas, enlazada con la de Clientes y hasta...
1 respuesta