Access - Habilitar Registros para una nueva insercion

Hola a todos .... Debo estar loca por poner un post en visperas de Navidad .... es que esto me urge muchisimo. He estado leyendo en el foro para solucionar el tema de bloqueo y activacion de registros pero realmente no encontre la solucion a lo que necesito y es por eso que me remito a un nuevo mensaje.
El tema es el siguiente:
Yo bloque todos los registros (como me ha enseniado Enrique) con este codigo

Option Compare Database
Dim Campos As Object
Option Explicit

Private Sub Form_Load()
For Each Campos In Me.Controls
If TypeOf Campos Is TextBox Or TypeOf Campos Is ComboBox Then
Campos.Locked = True
End If
Next Campos
MontoCompensa.Locked = False
End Sub

Esto funciona a la perfeccion. Pero el problema viene cuando quiero dar de alta un nuevo registro. Vieron ... cuando le doy clic a >* (o algo asi al pie del formulario). Necesito que los campos esten activados nuevamente y no se en que lugar debo colocar el c'odigo para que solo se activen los campos cuando los doy de alta.

Vale aclarar que el formulario en cuestion esta en vista HOJA DE CALCULO y es un subformulario incrustado dentro de otro formulario.

Lo he puesto en la seccion Private Sub Form_Current() pero me los activa sin que yo les de la orden de dar de alta.
Espero no haberlos abrumado.
Les mando un saludos y muy feliz navidad desde Argentina.
Sandra!!!

Buenos dias:

Lo que yo haría sería crear un procedimiento de esta forma:

Private Sub bloquear(bloqueo As Boolean)
For Each Campos In Me.Controls
If TypeOf Campos Is TextBox Or TypeOf Campos Is ComboBox Then
Campos.Locked = bloqueo
End If
Next Campos
MontoCompensa.Locked = False

End Sub

La llamas de esta forma:

Private Sub Form_Load()

bloquear True 'Llamada al procedimiento: bloquea

End Sub

Y ya tienes lo mismo que ahora.

Pero, ahora la puedes llamar cuando quieras dar de alta un registro, creando, por ejemplo, un botón que agrege registros:

Private Sub añadirReg_Click()
On Error GoTo Err_Comando4_Click

bloquear False 'Llamada al procedimiento, habilita

DoCmd.GoToRecord , , acNewRec


Exit_Comando4_Click:
Exit Sub

Err_Comando4_Click:
MsgBox Err.Description
Resume Exit_Comando4_Click

End Sub

Y después de insertar el nuevo registro, vuelves a bloquear:

Private Sub Form_AfterInsert()
bloquear True 'Llamada al procedimiento, bloquea
End Sub

Si tienes alguna duda más, preguntame

Felices Fiestas
Victoria

Hola Victoria, Muchas gracias por tu sugerencia ... la estoy aplicando. Me gustaría preguntarte si es posible escribir todo este código en el Formulario Principal, pero que en realidad se aplique en el Sub-Formulario que esta incrustado en el mismo? Se entiende?
Aguardo anciosa tu respuesta y nuevamente un millon de gracias!
Sandra!

Hola Enrique .... gracias por tu respuesta .... lo que me decis es verdad .... podría hacer las modificaciones desde este formulario .... pero conociendo a las personas que van a usarlo .... es mejor ponerselos en otro módulo.
Ademas no es solo un ABM de registros ... sino un módulo de compensaciones de FC que es un poco mas complejo.
Enrique .... te agradezco mucho, mucho tu ayuda y si Dios quiere me voy de vacaciones los primeros días de Enero y vas a poder descansar de mis preguntas.
Te mando un fuerte abrazo.
Sandra!