I've got this code that allos me to make my forms un-editable, and if I want to edit it I just click a button and I can edit all the Fields in the Form. When I go to the next Record it reverts back to it's non-editable state.

That works fine, but...I also have buttons that allow me to add a day to the Date Field and subract a day from the Date Field. Using these buttons still allows me to edit the Date Field while it's in non-editable mode.

Didn't think this was possible, is there a way I can make those buttons also non-clickable when I'm in the non-editable mode?

Here's my code:

Option Compare Database

Private Sub DwnOneBtn_Click()

    CreateDate = CreateDate - 1
    
End Sub

Private Sub EditBtn_Click()

    Me.AllowEdits = True
    Me.AllowDeletions = True
    Me.Caption = "EXAMPLE FORM - EDITABLE FORM"
    
End Sub

Private Sub Form_Current()
    Me.AllowEdits = False
    Me.AllowDeletions = False
    Me.Caption = "EXAMPLE FORM - NON EDITABLE FORM"
End Sub

Private Sub TmrwBtn_Click()

    CreateDate = Date + 1
    
End Sub

Private Sub TodayBtn_Click()

    CreateDate = Date
    
End Sub

Private Sub UpOneBtn_Click()

    CreateDate = Nz(CreateDate, Date) + 1
    
End Sub