Aviso Auto. Al Abrir formulario

Neckkito, junto con saludarte, y felicitarte por vuestra página, tengo una duda, he bajado el formulario de nombre Aviso Automático al Abrir un formulario, en mi BD tengo dos tablas una de nombre Fecha_notaria y la otra fecha_regreso_notaria.

He reemplazado el código en base al nombre de estas tablas, pero tengo un problema, al ejecutar el código este me inserta una fecha dependiendo de la cantidad de días que le asigne, esta fecha queda ingresado en la tabla de nombre fecha_regreso_notaria, y no quiero eso, necesito que quede en blanco.

Esta es la secuencia que le asignaste a tu ejemplo.

Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("nomina_contratos", dbOpenTable)
If rst.RecordCount = 0 Then GoTo salida
With rst
.MoveFirst
.Edit
.Fields("fecha_regreso_notaria").Value = date + 30
.Update
End With
salida:
rst.Close
Set rst = Nothing
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "Formulario_Menu_principal"

Me podrías ayudar por favor.-

Ahora esta es la otra secuencia, me podrías decir si esta bien estructurada.

On Error GoTo sol_err

Dim rst As Recordset
Dim vFecha As Date
Dim vAhora As Date
Dim vfecha_regreso_notaria As Boolean
vAhora = Date
Set rst = CurrentDb.OpenRecordset("nomina_contratos", dbOpenSnapshot)
If rst.RecordCount = 0 Then GoTo salida
rst.MoveFirst
Do Until rst.EOF
vfecha_regreso_notaria = rst.Fields("fecha_regreso_notaria").Value
vFecha = rst.Fields("fecha_regreso_notaria").Value
If vFecha >= vAhora And vFecha <= vAhora + 30 Then
If vfecha_regreso_notaria = False Then
Dim resp As Integer
resp = MsgBox("Existen próximos vencimientos" _
& vbCrLf & vbCrLf & "¿Desea ver un informe?" _
, vbInformation + vbYesNo, "AVISO")
If resp = vbYes Then
DoCmd.OpenReport "informe_prueba", acPreview
Exit Do
End If
Exit Do
End If
End If
rst.MoveNext
Loop
salida:
rst.Close
Set rst = Nothing
sol_err:
Exit Sub