Multiple if statment

[Frothingslosh]

You can simplify that with this:

Private Sub TF_Ben_O_P_Click()
    Me.TF_Ben_B_S_Date.Value = Nz(TF_Ben_B_S_Date, Now())
End Sub

Nz does what your entire if statement is trying to do, with less effort and processor cycles.

 

[Tor_Fey]

Thanks Frothingslosh;

I have gone with your code and rolled it out.

Kind Regards
Tor Fey

You can simplify that with this:

Private Sub TF_Ben_O_P_Click()
    Me.TF_Ben_B_S_Date.Value = Nz(TF_Ben_B_S_Date, Now())
End Sub

Nz does what your entire if statement is trying to do, with less effort and processor cycles.