AccessTr.neT

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

Load olayında olmuyor mu?

Merhaba, eklediğiniz kod, Open olayında da, load olayında da çalışır.

Open için denediniz mi
Bende open olayında çalışmadı neden olabilir acaba. Load denemedim

Ekli örnekte open, load, current adlarında 3 form var. Formların açıldığında, yüklendiğinde ve geçerli olduğunda olaylarında ayrı ayrı kod yazılı. Formlar açıldığında buton gizleniyor.