Listwievden Secilen İsleme gore user form çalıştırma

[ASMET67]

Merhaba.
Anamenu olarak kullanıdığım bir acces ve AltmenuOlarak Kullanıdığım access dosyası var. ana formda 2 Lisview nesnesi var. listwiev1 de ana menu dosyasını çekiyorum. Burdan yapılan seçime göre listwiev2 ye Altmenu dosyası gelyor.

Altmenu Acsses dosyayısında MenuAdı, Form olarak 2 sutun ar. Listwiev2 den seçtiğim menuadını acceste bulun 2. sutundaki formu ekrana getirmesini isitiyorum. bunu nasıl yapabilirim.

 

[Zeki Gürsoy]

Merhaba,

İstediğiniz mümkün. Kullanım açısından pek pratik görünmüyor. 1 ana menu elemanı için 20 alt menu, 20 form olabilir.

Tercih sizin elbette...

Aşağıdaki gibi parametrik olarak form açabilirsiniz.

Sub test()
    Dim f As Object 'UserForm

    If Form_Ekranda_mi("AltMenuFormAdı") Then
        MsgBox "Form zaten ekranda"
    Else
        Set f = UserForms.Add("AltMenuFormAdı")
        f.Show
    End If

End Sub

Function Form_Ekranda_mi(frm As String) As Boolean
    Dim f As Object  'UserForm
    
    For Each f In UserForms
        If f.Name = frm Then
            Form_Ekranda_mi = True
            Exit For
        End If
    Next
    
End Function

http://www.cpearson.com/Excel/showanyform.htm