Unload form/Close all recordsets
Posted on 2001-07-09
I have a password logon(A).
If password successful,mainform(B) will appeared.
>>Then I need to unload A.
There will be another query form(C) for user to enter the product name.
If it successful,Add form(D) will appeared.
>>Then I need to unload C.
In form D,there are 7 textboxes,1 listbox,6 combox boxes,2 option buttons,3 buttons,1 datetimepicker control, 1 maskeditedbox control, 2 datacombo.
User need to input data...error checking will be performed.If it is successful,mainform will be enabled true and form D will be unload.
>>I'm using enabled properties to active the active form.
>>How to unload a form fast?
Method 1(OTHER FORM):
'Exit from the whole system
Private Sub exit_1_Click(Index As Integer)
Dim intCount As Integer
While Forms.Count > 1
'find first form besides "me" to unload
intCount = 0
While Forms(intCount).Caption = Me.Caption
intCount = intCount + 1
'last thing to do
HOW COME IT TAKE ALMOST 10 to 15 seconds to unload form D?
Can anyone tell me the correct steps in manipulating one form after another?
Regarding recordset,is there any function to check and close all the opened recordset when form unload?