Skip to main content

AccessTr.neT


Current İle Open Arasındaki Farklardan Biri

Current İle Open Arasındaki Farklardan Biri

#1
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
@benbendedeilem
Cevapla
#2
Load olayında olmuyor mu?
Cevapla
#3
Merhaba, eklediğiniz kod, Open olayında da, load olayında da çalışır.
Cevapla
#4
Open için denediniz mi
Bende open olayında çalışmadı neden olabilir acaba. Load denemedim
Son Düzenleme: 28/03/2020, 16:47, Düzenleyen: accessman.
Cevapla
#5
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.
.rar butongizlefunc.rar (Dosya Boyutu: 23,65 KB | İndirme Sayısı: 3)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da