Az önce deneme yanılma yoluyla keşfettim Eğer Open olayına şu kod ile buton gizleme yaparsanız sonuç alamazsınız

Private Function isVisibleControl(tagname As String, deger As Boolean) As Boolean

On Error GoTo Err_hata

    Dim result As Boolean

    result = False



    Dim ctl As Control

    For Each ctl In Me.Form

        If InStr(1, ctl.Tag, tagname) <> 0 Then

            If (ctl.ControlType = acCommandButton) Then

                ctl.Visible = deger

            End If

        End If

    Next ctl

    Set ctl = Nothing



    result = True



Exit_kod:

    isVisibleControl = result

    Exit Function



Err_hata:

    result = False

    MsgBox Err.Description

    Resume Exit_kod



End Function

çünkü open olayında daha butonlar falan daha yüklenmiş değil
onun için bu kodu "Current" olayına yazmanız lazım