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