karolinavb
Typ:
neutral
Postów: 468
Zarejestrowany: Jan 2003
|
|
Mariuszu ( uprzejmie informuję niektórych forumowiczów, że nie jest to próba identyfikacji, lecz imię jest pod nickiem napisane  )
Może tak, bo nic innego nie przychodzi mi w tej chwili do głowy:
Private Sub CmdZamknij_Click()
Dim sNazwaFormy As String
sNazwaFormy = "FormDaoRS"
Call ZamknijForme(sNazwaFormy)
End Sub
Function ZamknijForme(ByVal sNazwaFormy As String)
Dim i As Long
Do While i < Forms.Count
If Forms(i).Name = sNazwaFormy Then
Unload Forms(i)
End If
i = i + 1
Loop
End Function
[Post edytowany dnia 16-04-2005 20:13 przez karolinavb]
_____________________________________________
Karolina
|