AccessTr.neT
Current İle Open Arasındaki Farklardan Biri - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Current İle Open Arasındaki Farklardan Biri (/konu-current-ile-open-arasindaki-farklardan-biri.html)



Current İle Open Arasındaki Farklardan Biri - accessman - 28/03/2020

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


Cvp: Current İle Open Arasındaki Farklardan Biri - feraz - 28/03/2020

Load olayında olmuyor mu?


Cvp: Current İle Open Arasındaki Farklardan Biri - ozanakkaya - 28/03/2020

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


Cvp: Current İle Open Arasındaki Farklardan Biri - accessman - 28/03/2020

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


Cvp: Current İle Open Arasındaki Farklardan Biri - ozanakkaya - 30/03/2020

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.