Solved Make command button appear only 1 day a month

[donkey9972]

Hi,

I have a form with a command button on it, and I need it to only appear on the 1st day of every month and hidden every other day. I have no idea how to accomplish this at all, so I have no code to start with. I have googled and searched forums but I am having no luck with my search. I have found a way to make something flash on and off, but that is the most advanced my search came up with (for me this was a huge accomplishment. Any ideas for my current issue though?

 

[Eugene-LS]

Any ideas for my current issue though?

Private Sub Form_Current()
    If Day(Date) = 1 Then
        Me.cmdYourCommandButtonName.Enabled = True ' = 1st day of every month
        'Or:
        Me.cmdYourCommandButtonName.Visible = True
    Else
        Me.cmdYourCommandButtonName.Enabled = False
        'Or:
        Me.cmdYourCommandButtonName.Visible = False
    End If
End Sub

 

[isladogs]

Similar to above but use the Load event, make the button hidden / disabled by default and you can then omit the Else section
It could be done like this:

Private Sub Form_Load()
     Me.cmdYourCommandButtonName.Visible = Day(Date) = 1 'only visible on 1st day of every month
End Sub

 

[Eugene-LS]

Similar to above but use the Load event

You're absolutely right, it's better if the user doesn't work at night ...

 

[isladogs]

A quick translation for anyone interested....!

 

[donkey9972]

That worked perfectly thank both. All the help has gotten what I needed accomplished.

 

[donkey9972]

Similar to above but use the Load event, make the button hidden / disabled by default and you can then omit the Else section
It could be done like this:

Private Sub Form_Load()
     Me.cmdYourCommandButtonName.Visible = Day(Date) = 1 'only visible on 1st day of every month
End Sub

Okay, so doing it this way, I have 2 other buttons I need to make invisible on the 1st only. How would I get that done using the one line of code? I figured out how to do it using Eugene-LSs code, but without the true/false ability I have no idea how to make it work.

 

[donkey9972]

Never mind I figured it out.

 

[cheekybuddha]

A quick translation for anyone interested....!

View attachment 100033

Interesting spelling of 'swop'!

 

[moke123]

Can't help but to ask, What is this button for? What happens if the 1st is on a Sunday or some day you're not available to click it?

 

[isladogs]

Interesting spelling of 'swop'!

Swop = noun ; swap = verb
I could have used either ... but chose the noun to denote the two textboxes being exchanged

 

[isladogs]

Never mind I figured it out.

Its always helpful to others if you supply your solution
For example, with cmdButton1 hidden by default & cmdButton2 & cmdButton3 made visible by default, then

Private Sub Form_Load()
    Me.cmdButton1.Visible = Day(Date) = 1
    Me.cmdButton2.Visible = Not (Day(Date) = 1)
    Me.cmdButton3.Visible = Not (Day(Date) = 1)
End Sub

If you have another good solution, please post it.

 

[Gasman]

What happens if the computer is not on when it is the first of the month?, bank holiday etc?

 

[moke123]

What happens if the computer is not on when it is the first of the month?, bank holiday etc?

My guess is the OP is resetting something for the upcoming month not realizing that it could be automated without any user intervention.

 

[donkey9972]

What happens if the computer is not on when it is the first of the month?, bank holiday etc?

Honestly that is not an issue, there is always someone in the building 365 days a year, 366 on leap years.

 

[moke123]

The reason we ask follow up questions is to get a better sense of what it is your doing. Its very likely what your doing can be done without any user intervention.

Edit: Now that I see your other post it would seem you have a data problem.