Ptrsafe li halini ekledim

Arşivimde bir zamanlar indirdiğim Kod Bankası var.

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

Merhaba.

Gifteki gibi olay.isteyen inceleyebilir.Onur_can hocanın yardımıyla nihayyete erdi dosya.