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
Visual Basic Code
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.
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
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ı: 2)
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da