Modo de seleccionar el mes anterior al actual, en el Formulario "Entradas"

En el formulario "Entradas", primera línea del evento "Al Cargar (Form_Load)", poner:
Call MesDefecto.

Al final de todos los procecimientos del formulario "Entradas" poner este procedimiento:
Private Sub MesDefecto()
If Mid(Date, 4, 2) = "11" Or Mid(Date, 4, 2) = "12" Then Texto21 = Mid(Date, 4, 2) - 1
If Mid(Date, 4, 2) = "10" Then Texto21 = "0" & Mid(Date, 4, 2) - 1
If Mid(Date, 4, 1) = "0" Then Texto21 = "0" & Mid(Date, 5, 1) - 1
End Sub

En "Valor predeterminado" del control "Texto21", quitar la instrucción que hay.


En el control "Texto36" (Suma de Importes), poner =CDoble([TotalMes]![TotalVent])