AccessTr.neT

Tam Versiyon: Current İle Open Arasındaki Farklardan Biri
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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.