Pravq si chat

Zdraveite, moje li nqkoi da mi pomogne za edna poprincip prosto no za mene neqsna rabota? Taa rabotata e slednata:

1. Imam prozorec QUERY i iskam toi da se otvarq poveche ot edin pat!
2. Trqbva mi da suzdam list sas otvorenite query-ta

Blagodarq mnogo predvaritelno

За да можеш да отваряш това Query повече от един път пробвай така:

Dim QueryCollection As New Query

Private Sub ShowQuery()
QueryCollection.Show 'или както го показваш там
End Sub

А за това как да създадеш листа при отварянето на всяко Query му задай функция да се записва в този лист и при затварянето добави код за махането му от листа ако трябва...

Westside Nation" don't smoke.More...™

Добави празна форма frmQuery. Във Form1 сложи Command1 и Command2 и paste този код:

Option Explicit



Private Sub OpenQueryWindow()

    Dim oFrm        As New frmQuery

    

    oFrm.Show

End Sub



Private Function GetQueriesList() As Collection

    Dim oFrm        As Object

    

    Set GetQueriesList = New Collection

    For Each oFrm In Forms

        If TypeOf oFrm Is frmQuery Then

            GetQueriesList.Add oFrm

        End If

    Next

End Function



Private Sub Command1_Click()

    OpenQueryWindow

End Sub



Private Sub Command2_Click()

    MsgBox GetQueriesList.Count & " window(s) open", vbExclamation

End Sub

cheers,
</wqw>