Me supongo que las dos tablas se relacionan por medio de un campo, y lo que muestras en el subformulario es el registro que se relaciona con el registro del formulario. Puedes utilizar elmismo evento que te envié anteriormente con unos cambios:
Private Sub Fecha de Desembolso_Exit(Cancel As Integer)
If Not IsNull(Me.Fecha de Desembolso) Then
[Form_coloca el nombre del subformulario].Status="Desembolsado"
Else
[Form_coloca el nombre del subformulario].Status=Null
End If
[Form_coloca el nombre del subformulario].Requery
End Sub
Nota: Como estas en el control del formulario debes hacer mención al subformulario con los corchetes, la palabra Form_ es obligatoria, después del piso(_) colocas el nombre del subformulario y cuando cierres con ] y coloques el punto(.) debe abrir una ventana para seleccionar el campo, que en este caso es Status(si así lo llamastes en la tabla o en el subformulario).
En el evento, si la fecha es diferente de nulo, blanco, se coloca en el status "Desembolsado", pero si la fecha es nula o blanco se coloca en blanco el status. Pero tu hablas de Pendiente, Desembolsado, etc., por lo tanto debes colocar lo que corresponda cuando no tiene fecha seleccionada.
Si tienes algun problema, enviame la base de datos para revisarla y hacerte las correcciones.
Mi correo es
[email protected]