UserForm' da Sağ click menü hata hk.

[tamer42]

Merhaba,
Ekli dosyada userform' da sağ click ile ilgili olarak Class Module ile ilgili bir çalışma yapıyorum.
Multipage' de Alanlar adındaki multipage' e girmesi için
[Üretim-A] sayfasında Listbox üzerinde sağ tıklayınca 2. menüde Alanlar' a tıklayınca hata veriyor.

Aşağıdaki satırda hata veriyor.

Set objCtl = objCtl.ActiveControl
işin doğrusu bu fonksiyonun ne işe yaradığını anlayamadım.

desteğiniz için teşekkürler,
iyi Çalışmalar.

Private Function m_ActiveListBox() As Boolean
'
    Dim objCtl As Object
   
    Set objCtl = m_objParent.ActiveControl
   
    Do While UCase(TypeName(objCtl)) <> "LISTBOX"
        If UCase(TypeName(objCtl)) = "MULTIPAGE" Then
            Set objCtl = objCtl.Pages(objCtl.Value).ActiveControl
        Else
            Set objCtl = objCtl.ActiveControl
        End If
    Loop
   
    m_ActiveListBox = (StrComp(objCtl.Name, m_LstBox.Name, vbTextCompare) = 0)
   
ErrActiveListBox:
    Exit Function
   
End Function
[code]

 

[tamer42]

Merhaba,
Ekli dosyada userform' da sağ click ile ilgili olarak Class Module ile ilgili bir çalışma yapıyorum.
Multipage' de Alanlar adındaki multipage' e girmesi için
[Üretim-A] sayfasında Listbox üzerinde sağ tıklayınca 2. menüde Alanlar' a tıklayınca hata veriyor.

Aşağıdaki satırda hata veriyor.

Set objCtl = objCtl.ActiveControl
işin doğrusu bu fonksiyonun ne işe yaradığını anlayamadım.

desteğiniz için teşekkürler,
iyi Çalışmalar.

Private Function m_ActiveListBox() As Boolean
'
    Dim objCtl As Object
  
    Set objCtl = m_objParent.ActiveControl
  
    Do While UCase(TypeName(objCtl)) <> "LISTBOX"
        If UCase(TypeName(objCtl)) = "MULTIPAGE" Then
            Set objCtl = objCtl.Pages(objCtl.Value).ActiveControl
        Else
            Set objCtl = objCtl.ActiveControl
        End If
    Loop
  
    m_ActiveListBox = (StrComp(objCtl.Name, m_LstBox.Name, vbTextCompare) = 0)
  
ErrActiveListBox:
    Exit Function
  
End Function

Fonksiyon Kodunun en üstüne;

On Error GoTo ErrActiveListBox

ekleyince sorun çözüldü, fakat olayın kök nedenini hala anlayamadım
iyi Akşamlar.