Hola a todos, no sé si este mensaje va aquí pero creo que sí. Os cuento mi problema tengo un formulario en un BBDD Acess y lo que quiero que al meter un nuevo registro me ejecute el siguiente código:
Private Sub Form_Current()
If Me.NewRecord Then
If Not (ConsultaNuevoAño) Then
NuevoAño.NuevoAño = True
Año.Año = Year(Date)
Me.nOrden10.DefaultValue = "'" & Format(DMax("Num", "ConsultaContador") + 1) & "IF" & Year(Date) & "'"
End If
Else
Me.nOrden10.DefaultValue = "'" & Format(DMax("Num", "ConsultaContador") + 1) & "IF" & Year(Date) & "'"
End If
End Sub
Os cuento que ConsultaNuevoAño accede a una tabla que tiene un campo booleano. Y lo que supuestamente tiene que hacer el código es comprobar si se ha producido cambio de año, es decir, si hemos pasado al 2010 por ejemplo... Si se ha producido el cambio tendría que cambiar el valor del campo booleano y actualizar el campo Año de la tabla Año poniendo el año actual....
Me da error y no sé porque, alguien me puede ayudar... Seguramente se pueda hacer de otra forma mucho más fácil pero no caigo ahora.
Gracias y un saludo
