Thanks DBGuy! Based on your suggestion, I put together the following, which appears to be working. Would you confirm that I have correct syntax here?
Private Sub Form_Current()
If Day(Date) = 1 Then
Me.txtClick1 = DateAdd("m", -1, DateSerial(Year(Date), Month(Date), 1)) 'if 1st of month...